>*-- 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 >>>>