CLOSE DATABASES ALL CLEAR con=SQLSTRINGCONNECT("DRIVER=SQL Server;SERVER=(local);Trusted_Connection=Yes; ") IF con<1 ?"Failed to connect!!!" AERROR(aerrs) DISPLAY MEMORY LIKE aerrs RETURN ENDIF IF 1!=SQLEXEC(con,[create table #testrequery (id int IDENTITY, f2 int)]) ?"Failed to create table!!!" AERROR(aerrs) DISPLAY MEMORY LIKE aerrs RETURN ENDIF LOCAL oCA as CursorAdapter oCA=CREATEOBJECT("CursorAdapter") oCA.Alias="CATest" oCA.DataSourceType="ODBC" oCA.DataSource=con oCA.SelectCmd="select * from #testrequery" oCA.Tables=[#testrequery] oCA.KeyFieldList="id" oCA.UpdatableFieldList = "id, f2" oCA.UpdateNameList=[id #testrequery.id,f2 #testrequery.f2] IF !oCA.CursorFill() ?"CursorFill failed!!!" AERROR(aerrs) DISPLAY MEMORY LIKE aerrs ELSE SELECT CATest INSERT INTO CATest (f2) VALUES (111) INSERT INTO CATest (f2) VALUES (111) INSERT INTO CATest (f2) VALUES (111) INSERT INTO CATest (f2) VALUES (111) IF !TABLEUPDATE(.T.) ?"TABLEUPDATE failed!!!" AERROR(aerrs) DISPLAY MEMORY LIKE aerrs ENDIF LIST ?REQUERY() LIST ENDIF RETURNHere is the result:
Record# ID F2 1 0 111 2 0 111 3 0 111 4 0 111 1 Record# ID F2 1 1 111 2 2 111 3 3 111 4 4 111Thanks,