>>>nAccessHandle = sqlstringconnect( "DRIVER=Microsoft Access Driver (*.mdb, *.accdb); DBQ=C:\Ndb5.mdb;" ) >>> >>>if nAccessHandle < 1 >>> messagebox( "Invalid connection to access database" ) >>> return >>>endif >>> >>>nSQLAns = SQLExec( nAccessHandle, "select number, name, phone, name1 from directory", "tbcurs" ) >>> >>>if nSQLAns < 1 >>> messagebox( "Unable to get any data..." ) >>> sqldisconnect( nAccessHandle ) >>> return >>>endif >>> >>> >>>select tbcurs >>>use c:\TB order gcode in 0 alias TB >>>set relation to left(number,6) into tb >>>replace name1 with tb.unit for !eof('tb') >>> >>>=tableupdate(1,.t.,) && does not work!! >>>>>
go top scan csql="update directory set name1='"+tbcurs.name1+"' where number='"+tbcurs.number+"'" =sqlexec(nAccessHandle,csql) endscan