>>*-- build connection string >>lcConnectionStr = "DRIVER={Microsoft Access Driver (*.mdb)};" +; >> "Dbq=d:\max\conversions\cec\them\as3snapshot.mdb;" +; >> "Uid=Admin;" +; >> "Pwd=;" >> >>*-- connect to MS Access >>lnAccess = SQLSTRINGCONNECT(lcConnectionStr) >> >>*-- import Access table into an SPT cursor >>SQLEXEC(lnAccess, "SELECT * FROM AILSRAC1100'") >>BROWSE >>>>
>>>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 >>>>>>