Expert Software Company : News

duminică, 28 octombrie 2012

Convertire ADO in Cursor cu ajutorul XML-ului


cCadCon = "Provider=VFPOLEDB;Data Source=" +_Samples +"data estdata.dbc"
oCon = Createobject("AdoDb.Connection")oCon.ConnectionString = cCadCon
oCon.
Open
oRS = oCon.Execute("Select * From Customer")
xDOM = Newobject("MSXML.DOMDocument")

oRS.
Save(xDOM, 1)
oRS.
CloseoCon.Close
XmlToCursor(xDOM.XML, "MyCursor", 1028)Select MyCursorBrowse

Niciun comentariu:

Trimiteți un comentariu