Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: час
Dim strSQL As String Dim lngRecsAff As Long Dim cn As ADODB.Connection Set cn = New ADODB.Connection With cn .Provider = "SQLOLEDB" .CommandTimeout = 0 .Properties("User Id") = "vvv" .Properties("Password") = "" .Properties("Data Source") = "2-Q\SQLEXPRESS" ' .Properties("Initial Catalog") = "2-Q\DATA" .Properties("Persist Security Info") = True .Open .DefaultDatabase = "CLIENT" End With
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.