Using XmlAdapter to Create and Load Nested XML

Submitted by Sergey on January 1, 2008 - 22:18

An XmlAdapter in VFP 9.0 allows to create and load nested XML.

This is sample code. Add error handling and adjust to your requirements as necessary.

* Create nested XML using Orders and OrderDetails tables from VFP Northwind DBC
CLOSE DATABASES ALL
OPEN DATABASE (HOME(2)) + "Northwind\northwind.dbc"
 
* Create XML
SELECT 0
USE northwind!OrderDetails 
SET ORDER TO ORDERID
SELECT 0
USE northwind!Orders 
SET RELATION TO OrderID INTO OrderDetails
oXA = CREATEOBJECT("XmlAdapter")
* The next setting is required to create nested XML 
oXA.RespectNesting = .T.
oXA.AddTableSchema("Orders")
oXA.AddTableSchema("OrderDetails")
* Save XML in the current directory
oXA.ToXML("Orders.xml",,.T.)
* View created XML
Modify Command Orders.xml 
*
* Now load created XML back
*
CLOSE DATABASES ALL
* Load XML
oXA = CREATEOBJECT("XmlAdapter")
oXA.RespectNesting = .T.
oXA.LoadXML("Orders.xml",.T.)
FOR i=1 TO oXA.Tables.Count
	oXA.Tables(i).Tocursor()
ENDFOR
SET