CA=CREATEOBJECT("CURSORADAPTER") xa=CREATEOBJECT("xmladapter") xa.LoadXML("myxml.xml",.T.) ca.SelectCmd="xa.tables.item(1)" ca.DataSourceType="XML" ca.CursorFill() xa.Tables.Item(1).ToCursor() xa.ReleaseXML(.F.) browse xa.ToXML('updated.xml','',.T.)Cetin
>CA=CREATEOBJECT("CURSORADAPTER") >xa=CREATEOBJECT("xmladapter") >xa.LoadXML("myxml",.T.) >ca.SelectCmd="www.table.item(1)" >?ca.CursorFill() && RETURN .F. , Invalid at top level of document > >XML - myxml >-------- > ><?xml version = "1.0" encoding="UTF-8" standalone="yes"?> ><VFPDataSet> > <xsd:schema id="VFPDataSet" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata"> > <xsd:element name="VFPDataSet" msdata:IsDataSet="true"> > <xsd:complexType> > <xsd:choice maxOccurs="unbounded"> > <xsd:element name="aaa" minOccurs="0" maxOccurs="unbounded"> > <xsd:complexType> > <xsd:sequence> > <xsd:element name="ckey"> > <xsd:simpleType> > <xsd:restriction base="xsd:string"> > <xsd:maxLength value="10"/> > </xsd:restriction> > </xsd:simpleType> > </xsd:element> > <xsd:element name="cclassname"> > <xsd:simpleType> > <xsd:restriction base="xsd:string"> > <xsd:maxLength value="10"/> > </xsd:restriction> > </xsd:simpleType> > </xsd:element> > <xsd:element name="cclasslibrary"> > <xsd:simpleType> > <xsd:restriction base="xsd:string"> > <xsd:maxLength value="20"/> > </xsd:restriction> > </xsd:simpleType> > </xsd:element> > </xsd:sequence> > </xsd:complexType> > </xsd:element> > </xsd:choice> > <xsd:anyAttribute namespace="http://www.w3.org/XML/1998/namespace" processContents="lax"/> > </xsd:complexType> > </xsd:element> > </xsd:schema> > <aaa> > <ckey>0000000000</ckey> > <cclassname>aaaa</cclassname> > <cclasslibrary>aaaa</cclasslibrary> > </aaa> > <aaa> > <ckey>1111111111</ckey> > <cclassname>BBBB</cclassname> > <cclasslibrary/> > </aaa> ></VFPDataSet> >>