**********************************************************
rrr=SECONDS()
ADBOBJECTS(myArrayName, 'TABLE')
lcFile="c:\test.xml"
*lcXSDFile = "c:\test.xsd"
loAdapter=CREATEOBJECT("XMLAdapter")
loAdapter.Unicode= .F.
loAdapter.RespectCursorCP= .t.
*loAdapter.XMLSchemaLocation='lcXSDFile'

FOR i=1 TO ALEN(myArrayName,1)
    lcDBFname=myArrayName[i]
   IF !USED(lcDBFname)
     USE (lcDBFname) IN 0 EXCLUSIVE
    ENDIF     
    SELECT (lcDBFname)
  loAdapter.AddTableSchema(lcDBFname)
  loAdapter.Tables(i).Alias =lcDBFname
ENDFOR 
********************************************
loAdapter.ToXML(lcFile,"",.T.)
********************************************
FOR i=1 TO ALEN(myArrayName,1)
    lcDBFname=myArrayName[i]
  IF USED(lcDBFname)
     SELECT (lcDBFname)
     USE 
  ENDIF     
ENDFOR 
********************************************
MESSAGEBOX(SECONDS()-rrr)
**********************************************
* Name of an XML file.
lcFile="c:\test.xml"
* Create an XMLAdapter object to load the XML file into.
adapter = CREATEOBJECT("XMLAdapter")
Adapter.Unicode= .F.
Adapter.RespectCursorCP= .t.
*adapter.XMLSchemaLocation = lcXSDFile
* Read the XML file into the XMLAdapter object.
adapter.LoadXML(lcFile,.T.)
* Iterate through all the XMLTables created from the XML file and generate
* cursors.
FOR EACH oXMLTable IN adapter.Tables
    * Create a cursor from one of the XMLTables created from the contents of the 
    * XML file.
    oXMLTable.ToCursor()
ENDFOR
RETURN

clear
CLOSE DATABASES all
CREATE CURSOR foo (f1 D)
APPEND BLANK
APPEND BLANK
replace f1 WITH DATETIME()
list
LOCAL oXA as XMLAdapter
oXA=CREATEOBJECT("XMLAdapter")
oXA.AddTableSchema("foo")
oXA.XMLSchemaLocation="test.xsd"
oXA.ToXML("test.xml",,.T.)
CLOSE TABLES all
oXA.LoadXML("test.xml",.T.,.F.)
oXA.Tables(1).ToCursor()
LIST

SET SAFETY OFF 
clear  
  CLOSE DATABASES all  
    
  CREATE CURSOR foo (f1 T)  
  APPEND BLANK  
  FOR i=1 TO 10000
  APPEND BLANK  
  replace f1 WITH DATETIME()  
  ENDFOR 
  *list  
rrr=SECONDS()    
  LOCAL oXA as XMLAdapter  
    
  oXA=CREATEOBJECT("XMLAdapter")  
  oXA.AddTableSchema("foo")  
  oXA.XMLSchemaLocation="test.xsd"  
  oXA.ToXML("test.xml",,.T.)  
  CLOSE TABLES all  
MESSAGEBOX(SECONDS()-rrr)    
   
   rrr=SECONDS()     
  oXA.LoadXML("test.xml",.T.,.F.)  
  oXA.Tables(1).ToCursor()  
  MESSAGEBOX(SECONDS()-rrr)    
  *LIST