* Сохранение некоторых настроек
LOCAL llDispWarning, lnDispLogin
llDispWarning=SQLGetProp (0 ,'DispWarning')
lnDispLogin=SQLGetProp (0 ,'DispLogin')
* Установка этих настроек в значения, препятствующие выдаче системных сообщений об ошибке
SQLSetProp (0 ,'DispWarning',.F.)
SQLSetProp (0 ,'DispLogin' ,3 )

LOCAL lcStringConnect
lcStringConnect='DRIVER=SQL Server;'+;
'SERVER=MyServer;'+;
'UID=UserName;'+;
'PWD=PassWord;'+;
'DataBase=DataBaseName;'+;
'LANGUAGE=русский'

* Если надо, чтобы при подключении к серверу использовалось 
* доверительное соединение, то
lcStringConnect=m.lcStringConnect+';Trusted_Connection=Yes'
* В этом случае UID и PWD - игнорируются и используется логин и пароль
* введенные при включении Windows

* Собственно установка соеднинения

LOCAL lnCH
lnCH=sqlstringconnect(m.lcStringConnect)
IF m.lnCH< =0 
* Соединение установить не удалось
ENDIF

* Восстановление исходных настроек
SQLSetProp (0 ,'DispWarning',m.llDispWarning)
SQLSetProp (0 ,'DispLogin',m.lnDispLogin)

* Теперь, используя установленное соединение можно работать с сервером

* Формирую команду в синтаксисе MS SQL
LOCAL lcStringSQL
lcStringSQL =  "UPDATE schet SET schet.d930=schet_d.d930 " +;
 "FROM schet, schet_d WHERE schet.d938=schet_d.d938" 

* И посылаю ее на сервер
LOCAL lnExec
lnExec = SQLExec(m.lnCH,m.lcStringSQL)
IF m.lnExec&lt ;0 
* Произошла ошибка на сервере
LOCAL MyError (1 )
=AERROR(MyError)
* Массив MyError содержит информацию о произошедшей ошибке
ENDIF