oOleDb = CreateObject("OleDbFox.Utils") oOleDb.RSToCursor(oRecordSet, 'mycursor')You can also retrieve data directly into VFP cursor without using ADO:
mdbfilename = "d:\max\conversions\cec\them\as3snapshot.mdb" oConn = CreateObject("OleDbFox.Connection") oConn.StringOpen(("Provider = Microsoft.JET.OLEDB.4.0;Data Source = " + mdbfilename) oConn.OpenTable("AILSRAC1100", 'mycursor')File #10002 includes also a DBImport utility for importing data into VFP database.
>mdbfilename = "d:\max\conversions\cec\them\as3snapshot.mdb" > >oVFPCOM = CreateObject("vfpcom.comutil") > >oRecordSet = CreateObject('ADODB.RECORDSET') >oRecordSet.CursorType = 3 && adOpenStatic Also adOpenForwardOnly >oRecordSet.LockType = 1 && adLockReadOnly > >loConn = createobject('ADODB.Connection') >loConn.open("Provider = Microsoft.JET.OLEDB.4.0;" + ; > "Data Source = " + mdbfilename) >oRecordSet.ActiveConnection = loConn >oRecordSet.Open('SELECT * FROM AILSRAC1100') > >nError = oVFPCOM.RSToCursor(oRecordSet, 'mycursor') > >BROWSE >>