From Visual FoxPro to .NET

Plateforme Level Extreme

Abonnement

Profil corporatif

Produits & Services

Support

Légal

English

From Visual FoxPro to .NET

Message

21/03/2004 00:49:07

Michel Fournier
Level Extreme Inc.
Petit-Rocher, Nouveau-Brunswick, Canada

Tous

Information générale

Forum:

ASP.NET

Catégorie:

Bases de données

Titre:

From Visual FoxPro to .NET

Divers

Thread ID:

00888258

Message ID:

00888258

Vues:

I have the following code in Visual FoxPro that I need to convert into VB.NET:

SELECT * FROM Client INTO CURSOR Temp
lcXML=ToXML()


* Return a cursor to XML
FUNCTION ToXML
LOCAL lcHtml
CURSORTOXML(ALIAS(),'lcHtml',1,48,0,'1')
RETURN ToXMLRemoveCharacter(lcHtml)


* Filtering for characters
FUNCTION ToXMLRemoveCharacter()
PARAMETERS tcHtml
LOCAL lcHtml
lcHtml=tcHtml
lcHtml=STRTRAN(lcHtml,CHR(1),'')
lcHtml=STRTRAN(lcHtml,CHR(2),'')
lcHtml=STRTRAN(lcHtml,CHR(3),'')
lcHtml=STRTRAN(lcHtml,CHR(4),'')
lcHtml=STRTRAN(lcHtml,CHR(5),'')
lcHtml=STRTRAN(lcHtml,CHR(6),'')
lcHtml=STRTRAN(lcHtml,CHR(11),'')
lcHtml=STRTRAN(lcHtml,CHR(17),'')
lcHtml=STRTRAN(lcHtml,CHR(18),'')
lcHtml=STRTRAN(lcHtml,CHR(21),'')
lcHtml=STRTRAN(lcHtml,CHR(26),'')
lcHtml=STRTRAN(lcHtml,CHR(27),'')
lcHtml=STRTRAN(lcHtml,CHR(29),'')
lcHtml=STRTRAN(lcHtml,CHR(30),'')
RETURN lcHtml

About the SELECT, lets assume that I am opening a free table and that I need to return all rows in it. Any help on that conversion would be appreciated.

Michel Fournier
Level Extreme Inc.
Designer, architect, owner of the Level Extreme Platform
Subscribe to the site at https://www.levelextreme.com/Home/DataEntry?Activator=55&NoStore=303
Subscription benefits https://www.levelextreme.com/Home/ViewPage?Activator=7&ID=52

Répondre

Fil

Voir

Click here to load this message in the networking platform