lcConStr = "Provider=vfpoledb;Data Source="+HOME(2) + "northwind\northwind.dbc" oCon = CreateObject("ADODB.connection") oRs = CreateObject("ADODB.RecordSet") oCon.Open(lcConStr) oRs.ActiveConnection = oCon oRs.Open("SELECT * FROM Employees") oCa = CreateObject("CursorAdapter") oCa.DataSourceType=[ADO] oCA.Alias=[MyCursor] oCa.CursorFill(,,,oRS) SELECT MyCursor INDEX ON EmployeeID TAG EmployeeID INDEX ON LastName TAG LastName BROWSE LAST NOWAIT>Hi all, I'm parsing an ADO recordset to a VFP cursor using cursoradapter like this:
>oCa = CreateObject("CursorAdapter") >oCa.DataSourceType=[ADO] >oCA.Alias=[MyCursor] >oCa.CursorFill(,,,myADORecordset) >>