| shall@uaex.edu 2005-06-30, 9:24 am |
| I was trying to read memo fields from ACCESS database and update
records in Foxpro ( V6). Here's how I got it to work. I hope
this can help someone else.
====================
====================
===============
USE pdPromotion IN 0 SHARED
oConn=CreateObject("adodb.connection")
oConn.Open("dsnPDAccess") && Access DSN
lcTest=oConn.Connectionstring
loRS = CreateObject("ADODB.Recordset")
loRS.CursorLocation = 3 && adUseClient
loRs.CursorType = 3 && adOpenStatic
loRs.LockType = 3 && adLockOptimistic
loRS.ActiveConnection= oConn
loRS.Open("SELECT MyID,MyComments FROM MyTable WHERE 1=1")
loRS.MoveFirst
DO WHILE NOT loRS.EOF
lcAA=lors.Fields(0).value
lcMemo=lors.Fields(1).value
SELECT pdPromotion
Locate for MyID=lcAA
IF FOUND()
Replace Promohis with lcMemo,Lastchange with Datetime()
ELSE
Append blank
Replace MyID with lcAA,Promohis with lcMemo;
,Lastchange with Datetime()
ENDIF
loRS.MoveNext
ENDDO
loRs.Close
oConn.CLose
return
|