>CLOSE DATABASES all >CLEAR > >con=SQLCONNECT("alekseyt5") >?con > >TEXT TO cSql NOSHOW > create table #test (f1 int,f2 varchar(10)) > insert into #test values (1,'1111') > insert into #test values (2,'2222') > insert into #test values (3,'3333') >ENDTEXT > >?SQLEXEC(con,cSql) > >oCA=CREATEOBJECT("CursorAdapter") >oCA.DataSourceType="ODBC" >oCA.DataSource=con >oCA.SelectCmd="select * from #test" >oCA.Tables = "#test" >oCA.UpdatableFieldList="f1,f2" >oCA.KeyFieldList="f1" >oCA.UpdateNameList="f1 #test.f1, f2 #test.f2" >?oCA.CursorFill() > >GO 2 >?"Original field values-",f1,f2 > >?SQLEXEC(con,"update #test set f2='44444' where f1=2") > >TRY > REFRESH() >CATCH > ? "REFRESH() failed as expected." >ENDTRY >? >?"Set properties to make REFRESH work" >CURSORSETPROP("Tables", oCA.Tables) >CURSORSETPROP("UpdatableFieldList",oCA.UpdatableFieldList) >CURSORSETPROP("KeyFieldList",oCA.KeyFieldList) >CURSORSETPROP("UpdateNameList",oCA.UpdateNameList) > >REFRESH() >?"Refreshed field values-",f1,f2 > >USE >SQLDISCONNECT(con) >return >>