8.х Вывести список баз на сервере SQL

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем A|_E><Ey, 4 апр 2017.

  1. TopicStarter Overlay
    A|_E><Ey
    Offline

    A|_E><Ey Опытный в 1С

    Регистрация:
    13 дек 2012
    Сообщения:
    357
    Симпатии:
    2
    Баллы:
    29
    Здравствуйте уважаемые форумчане! Подскажите пожалуйста, может кто - нибудь сталкивался с этой проблемой. Необходимо вывести список баз на сервере sql.

    Код:
    /// Подключение проходит нормально ///
       
        Попытка
            Соединение  = Новый COMОбъект("ADODB.Connection");
            Команда     = Новый COMОбъект("ADODB.Command");
            ConnectionString = "driver={SQL Server};" +
            "server="+ИмяСервераSQL+";"+
            "uid="+ПользовательSQL+";"+
            "pwd="+ПарольSQL+";"+
            "database="+БазаДанныхSQL+";";
    
            Соединение.ConnectionString =
            "driver={SQL Server};" +
            "server="+ИмяСервераSQL+";"+
            "uid="+ПользовательSQL+";"+
            "pwd="+ПарольSQL+";"+
            "database="+БазаДанныхSQL+";";
            Соединение.ConnectionTimeout = 30;
            Соединение.CommandTimeout = 600;
            Соединение.Open();
            Команда.ActiveConnection   = Соединение;
            Сообщить("Успешное подключение!");
        Исключение
            Сообщить(ОписаниеОшибки());
        КонецПопытки;
       
        // Здесь начинается засада, ругается и все.
       
        Попытка
            Агент = Соединение.ConnectAgent(ИмяСервераSQL);
        Исключение
            Сообщить(ОписаниеОшибки());
        КонецПопытки;
        
    Пишет ошибку:
    Произошла исключительная ситуация (ADODB.Connection): Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
  2. nomad_irk
    Online

    nomad_irk Гуру в 1С

    Регистрация:
    20 окт 2008
    Сообщения:
    9.411
    Симпатии:
    974
    Баллы:
    204

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