вторник, 21 августа 2012 г.

1с 8.2 подключение к 1с 8 по COM

Попытка
        Состояние("Выполняется подключение к 1С база  ...");

        cntr    = Новый COMObject("V82.COMConnector");//Для базы 1с 8.1 - "V81.COMConnector"
        Usr        = "ИмяПользователя";
        Pwd        = "Пароль";
//Вариант SQL базы приемника:
        СтрокаСоединения = "Srvr=""buh"";Ref=""ИмяБазы"";"+?(ПустаяСтрока(Usr),"","Usr = """+Usr+""";") +?(ПустаяСтрока(Pwd),"","Pwd = """+Pwd+""";");
//Вариант файловой базы;
        //СтрокаСоединения = СокрЛП("File=""D:\DATA\BUH\1CV8\КА"";")+?(ПустаяСтрока(Usr),"","Usr = """+Usr+""";") +?(ПустаяСтрока(Pwd),"","Pwd = """+Pwd+""";");
        СоединениеС1С_ = cntr.Connect(СтрокаСоединения);   
        Возврат Истина;
    Исключение
        Сообщить_(ОписаниеОшибки());
        Возврат Ложь;
    КонецПопытки;