Hi ToAll,
is it posibble to convert this to VB.Net?
CLOSE DATABASES
OPEN DATABASE (HOME(2)) + "Northwind\northwind.dbc"
SELECT 0
USE northwind!OrderDetails
SET ORDER TO ORDERID
SELECT 0
USE northwind!Orders
SET RELATION TO OrderID INTO OrderDetails
oXA = CREATEOBJECT("XmlAdapter")
oXA.RespectNesting = .T.
oXA.AddTableSchema("Orders")
oXA.AddTableSchema("OrderDetails")
oXA.ToXML("Orders.xml",,.T.)
CLOSE DATABASES ALL
oXA = CREATEOBJECT("XmlAdapter")
oXA.LoadXML("Orders.xml",.T.)
FOR i=1 TO oXA.Tables.Count
oXA.Tables(i).Tocursor()
ENDFOR
SET
thanks and regards,
ryan.