Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
From Visual FoxPro to .NET
Message
From
21/03/2004 00:49:07
Michel Fournier
Level Extreme Inc.
Petit-Rocher, New Brunswick, Canada
 
 
To
All
General information
Forum:
ASP.NET
Category:
Databases
Title:
From Visual FoxPro to .NET
Miscellaneous
Thread ID:
00888258
Message ID:
00888258
Views:
50
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
Next
Reply
Map
View

Click here to load this message in the networking platform