close databases all

local lcConnString, lnConnection, ;
	loMyCAD as CursorAdapter, ;
	laErrors[ 1 ]

text to lcConnString noshow pretext  15 
	Driver=SQL Native Client;
	SERVER=...;
	DATABASE=....;
	uid=sa;
	pwd=as;
endtext	

lnConnection = sqlstringconnect(lcConnString)
if lnConnection<= 0 
   messagebox('не подцепился')
   return 
endif

text to lcSqlCmd noshow pretext  7 
	if object_id('tempdb..#t') is not null drop table #t
	create table #t ( id int, bigDate datetime, nnn int, timestamp datetime )
	insert into #t 
			values ( 1 , getdate(),  0 , getdate())
	insert into #t 
			values ( 2 , getdate(),  0 , getdate())
endtext
if sqlexec(lnConnection, lcSqlCmd)< 0 
	messagebox('не создал табличку')
    return 
endif 

loMyCAD = createobject('CursorAdapter')
with loMyCAD
	.Alias              = 'MyAlias'
	.DataSourceType     = 'ODBC'
	.DataSource         = lnConnection
	.SelectCmd          = "select * from #t"
	.Tables             = 't'
	.BufferModeOverride =  5 
	.cursorschema       = "id i, bigDate d(8,0), nnn i, timestamp t"
	.keyFieldList	= 'Id'
	.UpdatableFieldList = 'bigDate, nnn, timestamp'
	.updateNameList     = 'Id t.id, bigDate t.bigDate, nnn t.nnn, timestamp t.bigDate'
	if .CursorFill(!empty(.cursorschema),.f.)
		select * ;
			from (.alias) ;
			into cursor tt readwrite 
		append blank 
		append blank 
		append blank 
		.cursorattach("tt")
		set multilocks on
		cursorsetprop("Buffering", 5 )
		tableupdate(.t., .f.)
		.cursorrefresh()
		browse
		go top
		replace nnn with  1 
		tableupdate(.t., .f.)
		.cursorrefresh()
		browse
	else
		aerror(laErrors)
		messagebox(laErrors[ 2 ])
	endif .CursorFill(.t.)
endwith

if object_id('tempdb..#t') is not null drop table #t
create table #t ( id int, bigDate datetime, nnn int, timestamp datetime )
insert into #t 
values ( 1 , getdate(),  0 , getdate())
insert into #t 
values ( 2 , getdate(),  0 , getdate())
go
select * from #t
go
exec sp_executesql N'UPDATE t SET nnn=@P1  WHERE id=@P2  AND nnn=@P3 ',N'@P1 float,@P2 int,@P3 int', 1 , 1 , 0 
go