8.х Конект из 1С 8.1 к базе SQL Server 2005

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем abc_asup4, 13 окт 2011.

  1. TopicStarter Overlay
    abc_asup4
    Offline

    abc_asup4 Опытный в 1С

    Регистрация:
    14 фев 2010
    Сообщения:
    292
    Симпатии:
    1
    Баллы:
    29
    Вот текст кода:

    Соединение = New COMobject("ADODB.Connection");
    СтрПодключения= "DRIVER=SQLServer;SERVER="+Сервер+";uid=sa;psw=nix;"+"DATABASE="+База;

    Попытка
    Соединение.Open(СтрПодключения);
    Исключение
    Сообщить("Ошибка, подключение не выполнено" + ОписаниеОшибки());
    КонецПопытки;


    Выдает ошибку: Значение не являеться значением объектного типа :angry:
  2. TopicStarter Overlay
    abc_asup4
    Offline

    abc_asup4 Опытный в 1С

    Регистрация:
    14 фев 2010
    Сообщения:
    292
    Симпатии:
    1
    Баллы:
    29
    SQLConnection = Новый COMОбъект("ADODB.Connection");

    //ServerName = "192.168.1.159"; //имя или IP-адрес сервера
    ServerName = "***";
    DSN = "***"; //имя базы данных
    UID = "***"; //логин пользователя SQL-сервера
    PWD = "***"; //пароль пользователя SQL-сервера
    ConnectString = "Provider=SQLOLEDB;" +
    "Data Source=" + ServerName +
    ";Initial Catalog=" + DSN +
    ";UID=" + UID + ";PWD=" + PWD;
    SQLConnection.ConnectionString = ConnectString;
    SQLConnection.ConnectionTimeOut = 15;
    SQLConnection.CommandTimeout = 30 ;

    Попытка

    SQLConnection.Open();
    //Удаление
    //ТекстЗапроса = "Delete from [Lic].[dbo].[Pitanie]";
    ТекстЗапроса = "DELETE FROM lic";
    Cmd = Новый COMObject("ADODB.Command");
    Cmd.ActiveConnection = SQLConnection;
    Rs = Новый COMObject("ADODB.RecordSet") ;
    Cmd.CommandText=ТекстЗапроса;
    Rs = Cmd.Execute();
    //Rs.Close();
    //Cmd.
    SQLConnection.Close();

    Исключение
    Сообщить("Ошибка, подключение не выполнено" + ОписаниеОшибки());
    КонецПопытки;

Поделиться этой страницей