>CLOSE DATABASES >OPEN DATABASE (HOME(2)) + "Northwind\northwind.dbc" > >* Create XML >SELECT 0 >USE northwind!OrderDetails >SET ORDER TO ORDERID && 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.) >***Modify Command Orders.xml > >CLOSE DATABASES ALL > >* Load XML >oXA = CREATEOBJECT("XmlAdapter") >oXA.LoadXML("Orders.xml",.T.) >FOR i=1 TO oXA.Tables.Count > oXA.Tables(i).Tocursor() >ENDFOR >SET > >>