******************************************
CLOSE DATABASES all
CLEAR
CREATE CURSOR Table1 ;
(;
Tab1ID Int AUTOINC,;
Tab1Data Character(15);
)
INSERT INTO Table1 (Tab1Data ) VALUES ("Tab1_1")
INSERT INTO Table1 (Tab1Data ) VALUES ("Tab1_2")
CREATE CURSOR Table2 ;
(;
Tab1ID Int,;
Tab2ID Int AUTOINC,;
Tab2Data Character(15);
)
INSERT INTO Table2 (Tab1ID,Tab2Data ) VALUES (1,"Tab2_1")
INSERT INTO Table2 (Tab1ID,Tab2Data ) VALUES (1,"Tab2_2")
INSERT INTO Table2 (Tab1ID,Tab2Data ) VALUES (2,"Tab2_3")
INSERT INTO Table2 (Tab1ID,Tab2Data ) VALUES (2,"Tab2_4")
CREATE CURSOR Table3 ;
(;
Tab2ID Int,;
Tab3ID Int AUTOINC,;
Tab3Data Character(15);
)
INSERT INTO Table3 (Tab2ID,Tab3Data ) VALUES (1,"Tab3_1")
INSERT INTO Table3 (Tab2ID,Tab3Data ) VALUES (3,"Tab3_2")
* set relations between tables
SELECT Table3
INDEX ON Tab2ID TAG Tab2ID
SELECT Table2
INDEX ON Tab1ID TAG Tab1ID
SET RELATION TO Tab2ID INTO Table3
SELECT Table1
SET RELATION TO Tab1ID INTO Table2
LOCAL oXA as XMLAdapter
oXA=CREATEOBJECT("XMLAdapter")
* Set RespectNesting=.T. to instruct XMLAdapter to generate
* nested XML and to instruct AddTableSchema method to nest
* tables based on the current SET RELATION schema
oXA.RespectNesting= .T.
oXA.AddTableSchema("Table1")
oXA.AddTableSchema("Table2")
oXA.AddTableSchema("Table3")
oXA.ToXML("nested.xml",,.T.)
MODIFY COMMAND nested.xml NOWAIT
******************************************