**************************************  
  CLOSE DATABASES all  
  SQLDISCONNECT(0)  
  CLEAR  
  SET MULTILOCKS ON  
    
  LOCAL nAutoRefreshConn as Integer  
    
 * Change connection string to connect to a different SQL Server  
  nAutoRefreshConn=SQLSTRINGCONNECT("DRIVER=SQL Server;SERVER=(local);Trusted_Connection=Yes;")  
  IF (nAutoRefreshConn <1)  
   ? "Failed to connect!!!"  
   AERROR(aerrs)  
   DISPLAY MEMORY LIKE aerrs  
   return  
  ENDIF  
    
  TEXT TO cSQL NOSHOW  
   CREATE TABLE #CAAutoRefreshDemo  
   (  
    f0 int NOT NULL IDENTITY PRIMARY KEY,  
    f1 int NOT NULL UNIQUE,  
    f2 varchar(10) NULL DEFAULT '00000',  
    f3 timestamp  
   )  
  ENDTEXT  
    
  IF SQLEXEC(nAutoRefreshConn ,cSQL)!=1  
   ? "Failed to create demo table!!!"  
   AERROR(aerrs)  
   DISPLAY MEMORY LIKE aerrs  
  ENDIF  
    
  SQLEXEC(nAutoRefreshConn ,"INSERT INTO #CAAutoRefreshDemo (f1,f2) values (1,'demo1')")  
  SQLEXEC(nAutoRefreshConn ,"INSERT INTO #CAAutoRefreshDemo (f1,f2) values (2,'demo2')")  
    
  oCA=CREATEOBJECT("CAAutoRefreshDemo")  
  ?oCA.AutoOpen()  
  SELECT CATest   
  INSERT INTO CATest (f1,f2) values (3,'demo3')  
  INSERT INTO CATest (f1,f2) values (4,'demo4')  
  GO RECNO()  
    
  MESSAGEBOX("Unique F1 should be entered for new records.",0)  
  BROWSE  
    
  SQLDISCONNECT(nAutoRefreshConn )  
  return  
    
  DEFINE CLASS CAAutoRefreshDemo AS CursorAdapter  
   Alias = "CATest"  
    
   DataSource= nAutoRefreshConn  
   DataSourceType="ODBC"  
   MapBinary= .T.  
   MapVarchar= .T.  
   SelectCmd="select * from #CAAutoRefreshDemo"  
   FetchMemo= .T.  
    
   Tables="#CAAutoRefreshDemo"  
   KeyFieldList="f0"  
   UpdatableFieldList="f1,f2"  
   UpdateNameList="f1 #CAAutoRefreshDemo.f1, f2 #CAAutoRefreshDemo.f2, "+ ;  
    "f3 #CAAutoRefreshDemo.f3, f0 #CAAutoRefreshDemo.f0"  
    
   TimestampFieldList="f3"  
    
   && automatically refresh Timestamp field after each Insert/Update  
   RefreshTimestamp= .T.  
   && automatically refresh IDENTITY field and f2 field after Insert  
   InsertCmdRefreshFieldList="f0,f2"  
   && use alternative key to refresh fields after Insert as we don't know  
   && the value for f0 (IDENTITY)  
   InsertCmdRefreshKeyFieldList="f1"  
    
    
   WhereType=4 && DB_KEYANDTIMESTAMP  
   ConflictCheckType= 3  
  ENDDEFINE  
 ************************************************