define wind
acti wind
@say
@get

close databases all

local lcConnString, lnConnection, ;
	loMyCAD as CursorAdapter, ;
	laErrors[ 1 ]
text to lcConnString noshow pretext  15 
	Driver=SQL Server;
	SERVER=beaver\l00;
	DATABASE=Kot_MyTest;
	uid=kot;
	pwd=;
endtext	
lnConnection = sqlstringconnect(lcConnString)
if lnConnection<= 0 
   messagebox('не подцепился')
   return 
endif

loMyCAD = createobject('CursorAdapter')
with loMyCAD
	.Alias              = 'MyAlias'
	.DataSourceType     = 'ODBC'
	.DataSource         = lnConnection
	.SelectCmd          = "select * from testBigDate"
	.Tables             = 'testBigDate'
	.BufferModeOverride =  5 
	.cursorschema       = "bigDate d(8)"
	.UpdatableFieldList = 'bigDate'
	.updateNameList     = 'bigDate testBigDate.bigDate'
	.usetransactions    = .f.
	if .CursorFill(.t.)
		for i= 1  to  10 
		   insert into MyAlias values (date())
		endfor
		select MyAlias
		brow
		if !tableupdate(.t.,.t.,.Alias)
			aerror(laErrors)
		    messagebox(laErrors[ 2 ])
		endif
	else
		aerror(laErrors)
		messagebox(laErrors[ 2 ])
	endif .CursorFill(.t.)
endwith

exec sp_executesql N'INSERT INTO testBigDate (bigDate) VALUES (@P1 )', N'@P1 datetime', 'Dec 12 2006 12:00:00:000AM'
go
exec sp_executesql N'INSERT INTO testBigDate (bigDate) VALUES (@P1 )', N'@P1 datetime', 'Dec 12 2006 12:00:00:000AM'
go
exec sp_executesql N'INSERT INTO testBigDate (bigDate) VALUES (@P1 )', N'@P1 datetime', 'Dec 12 2006 12:00:00:000AM'
go
exec sp_executesql N'INSERT INTO testBigDate (bigDate) VALUES (@P1 )', N'@P1 datetime', 'Dec 12 2006 12:00:00:000AM'
go
exec sp_executesql N'INSERT INTO testBigDate (bigDate) VALUES (@P1 )', N'@P1 datetime', 'Dec 12 2006 12:00:00:000AM'
go
exec sp_executesql N'INSERT INTO testBigDate (bigDate) VALUES (@P1 )', N'@P1 datetime', 'Dec 12 2006 12:00:00:000AM'
go
exec sp_executesql N'INSERT INTO testBigDate (bigDate) VALUES (@P1 )', N'@P1 datetime', 'Dec 12 2006 12:00:00:000AM'
go
exec sp_executesql N'INSERT INTO testBigDate (bigDate) VALUES (@P1 )', N'@P1 datetime', 'Dec 12 2006 12:00:00:000AM'
go
exec sp_executesql N'INSERT INTO testBigDate (bigDate) VALUES (@P1 )', N'@P1 datetime', 'Dec 12 2006 12:00:00:000AM'
go
exec sp_executesql N'INSERT INTO testBigDate (bigDate) VALUES (@P1 )', N'@P1 datetime', 'Dec 12 2006 12:00:00:000AM'
go

если а= 1 
   если бубен.Позвени(ляля)
       сообщение('ура')
   иначе
       ошибка('а, все плохо')
иначе
    ....
конецЕсли

this.caliasWithDataFromFile = sys( 2015 )
if !this.ПоднятьФайлВДбф()
   this.cError = 'Не шмог поднять ...'
   return .f.
endif
if !this.проверитьДбф()
   this.cError = 'Не шмог проверить ...'
   return .f.
endif
if !this.показатьрезультат()
   this.cError =  'Вообще косяк'
endif