Имя: Пароль:
1C
 
v8: Подключение к MSSQL SERVER через OLE DB
0 AlexandrMS
 
18.07.05
11:21
Скажите как правильно подключиться через 1с к MS SQL Server 2000 используя OLE DB соединение.
Пытался таким образом:
ИмяПользователя = "sa";
Пароль = "123456";
ИмяСервера = "(local)";
ИмяБазы = "DATA";
стрПодключения = "Driver = {SQL Server};";
стрПодключения = стрПодключения +"Data Source="+ИмяСервера+";";
стрПодключения = стрПодключения +"Uid="+ИмяПользователя+";";
стрПодключения = стрПодключения +"Pwd="+Пароль+";";
стрПодключения = стрПодключения +"DataBase="+ИмяБазы+";";

Connection = Новый COMОбъект("ADODB.Connection");
Connection.OpenServer = стрПодключения;
...
Connection.Close();
просто формировал строку подключения, при попытке подключиться выдается сообщение : Ошибка при установке атрибута контекста: Нет поименованных аргументов.
В чем дело?
1 alexsy
 
18.07.05
11:43
2 Ядрена Матрена
 
18.07.05
11:45
Функция CreateConnection() Экспорт
   Возврат_ = Истина;
   Попытка
       ADOConnection = Новый COMОбъект( "ADODB.Connection" );    
   Исключение
       Возврат_ = Ложь;
       Сообщить( "Неудачная попытка создания объекта: ADODB.Connection" );
   КонецПопытки;
   Возврат Возврат_;
КонецФункции

Функция CreateCommand() Экспорт
   Возврат_ = Истина;
   Попытка
       ADOCommand = Новый COMОбъект( "ADODB.Command" );    
   Исключение
       Возврат_ = Ложь;
       Сообщить( "Неудачная попытка создания объекта: ADODB.Command" );
   КонецПопытки;
   Возврат Возврат_;
КонецФункции

Функция CreateRecordset() Экспорт
   Возврат_ = Истина;
   Попытка
       ADORecordset = Новый COMОбъект( "ADODB.Recordset" );    
   Исключение
       Возврат_ = Ложь;
       Сообщить( "Неудачная попытка создания объекта: ADODB.Recordset" );
   КонецПопытки;
   Возврат Возврат_;
КонецФункции

Функция Connect() Экспорт
   Возврат CreateConnection() И CreateCommand() И CreateRecordset();
КонецФункции

Функция InitConnection() Экспорт
   Возврат_ = Истина;
   ADOConnection.Provider = "SQLOLEDB.1";
   ADOConnection.Properties( "Data Source" ).Value = СокрЛП( СерверБД );    //"HU-AL";
   ADOConnection.Properties( "Initial Catalog" ).Value = СокрЛП( БазаДанных ); //"Oracle";
   ADOConnection.Properties( "User ID" ).Value = СокрЛП( Пользователь ); //"sa";
   ADOConnection.Properties( "Password" ).Value = СокрЛП( Пароль ); //"***";
   Попытка
       ADOConnection.Open();
   Исключение
       Сообщить( "Неудачная попытка подключения к серверу" );
       Возврат_ = Ложь;
   КонецПопытки;
   СтатусПодключения = Возврат_;
   Возврат Возврат_;
КонецФункции

Функция PrepareConnection() Экспорт
   Возврат_ = Истина;
   Если Не СтатусПодключения Тогда
       Сообщить( "Нет подключения к серверу" );
       Сообщить( "Попытка подключения к серверу..." );
       Если InitConnection() Тогда
           Сообщить( "Подключение к серверу прошло успешно" );
       Иначе
           Сообщить( "Неудачная попытка подключения к серверу" );
           Возврат_ = Ложь;
       КонецЕсли;
   КонецЕсли;
   Возврат Возврат_;
КонецФункции