cCadCon = "Provider=VFPOLEDB;Data Source=" +_Samples +"data estdata.dbc"
oCon = Createobject("AdoDb.Connection")oCon.ConnectionString = cCadCon
oCon.Open
oCon.Open
oRS = oCon.Execute("Select * From Customer")
xDOM = Newobject("MSXML.DOMDocument")
oRS.Save(xDOM, 1)
oRS.CloseoCon.Close
oRS.Save(xDOM, 1)
oRS.CloseoCon.Close
XmlToCursor(xDOM.XML, "MyCursor", 1028)Select MyCursorBrowse
Niciun comentariu:
Trimiteți un comentariu