общий концепт подключения такой, если кому нужен только механизм
СтрокаПодключения = "";
Если Не АутентификацияWindows Тогда
Если НЕ ПустаяСтрока(Пользователь) Тогда
СтрокаПодключения = СтрокаПодключения + ";Usr = """ + Пользователь + """";
КонецЕсли;
Если НЕ ПустаяСтрока(Пароль) Тогда
СтрокаПодключения = СтрокаПодключения + ";Pwd = """ + Пароль + """";
КонецЕсли;
КонецЕсли;
СтрокаПодключения = СтрокаПодключения + ";";
//V8 или V81 или V83
ВерсияПлатформы = "V83";
Попытка
ProgID = ВерсияПлатформы +".COMConnector";
COMПодключение = Новый COMОбъект(ProgID);
COMОбъект = COMПодключение.Connect(СтрокаПодключения);
Исключение
СтрокаСообщенияОбОшибке = "При попытке соединения с COM-сервером произошла ошибка:" + Символы.ПС
+ ОписаниеОшибки();
Сообщить(СтрокаСообщенияОбОшибке);
Возврат Неопределено;
КонецПопытки;
Возврат COMОбъект;
далее можно работать с данными подключенной базы, для примера обход документов и запрос по одному из них.
ОбъектПодключения = ПодключитсяКИнформационнойБазе();
Если НЕ ОбъектПодключения = Неопределено Тогда
Сообщить("Подключение выполнено! " + ТекущаяДата());
Для Каждого ЭлМетаданных ИЗ ОбъектПодключения.Метаданные.Документы Цикл
Запрос = ОбъектПодключения.NewObject("Запрос");
Текст = "ВЫБРАТЬ
| КОЛИЧЕСТВО(*) КАК КоличествоДокументов
|ИЗ
| Документ."+ЭлМетаданных.Имя+" КАК Документ";
Запрос.Текст = Текст;
Выборка = Запрос.Выполнить().Выбрать();
Выборка.Следующий();
ВсегоДокументов = Выборка.КоличествоДокументов;
Сообщить(ЭлМетаданных.Имя + " - " + ВсегоДокументов);
Прервать;
КонецЦикла;
КонецЕсли;
при ошибке "Ошибка при вызове конструктора (COMОбъект): -2147221005(0x800401F3)" не забываем регистрировать библиотеку, через
regsvr32 bin\comcntr.dll
для БСП есть вот такой способ подключения.
БСП, Общий модуль, ОбщегоНазначенияКлиентСервер
Функция УстановитьВнешнееСоединение(Параметры, СтрокаСообщенияОбОшибке = "", ОшибкаПодключенияКомпоненты = Ложь) Экспорт
ps: спасибо комментатору awk
Вступайте в нашу телеграмм-группу Инфостарт
