local llFirst
if empty(thisform.nSQL)
	SQLSetProp( 0 , 'DispWarning', .F.)
	SQLSetProp( 0 , 'DispLogin',  3 )
	thisform.nSQL = SQLStringConnect("Driver={SQL Server};SERVER=...;DATABASE=...;UID=...;Pwd=...")
	if thisform.nSQL <  0 
		MessageBox('Не удалось соединиться с SQL-сервером')
		thisform.nSQL =  0 
	else
		SQLSetProp(thisform.nSQL, "Asynchronous", .t.)
		llFirst = .t.
	endif
endif

if thisform.nSQL >  0 
	if llFirst
		lnRet = SQLExec(thisform.nSQL, ThisForm.edtQuery.value, "res")
	else
		lnRet = SQLExec(thisform.nSQL, '')
	endif
	do case
		case lnRet <  0 
			aerror(laErr)
			MessageBox('Ошибка № ' + str(laErr[ 1 , 1 ]) + ' ' + laErr[ 1 , 2 ])
			SQLDisconnect(thisform.nSQL)
			thisform.nSQL =  0 
		case lnRet >  0 
			* Здесь обрабатываем полученное
			SQLDisconnect(thisform.nSQL)
			thisform.nSQL =  0 
	endcase
endif

if thisform.nSQL =  0 
	this.Interval =  0 
endif