Пример подключения к информационной базе через COMConnector

23.10.19

Интеграция - Внешние источники данных

Пример подключения создан для обычной и управляемой формы. Позволяет подключиться "На сервере 1С:Предприятия" и "На данном компьютере или на компьютере в локальной сети", подключение производится через логин/пароль или с помощью аутентификации Windows.

Скачать исходный код

Наименование Файл Версия Размер
Пример подключения к информационной базе через com (COMConnector):
.epf 14,64Kb
10
.epf 14,64Kb 10 Скачать

общий концепт подключения такой, если кому нужен только механизм

СтрокаПодключения = "";
Если Не Аутентификация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

См. также

SALE! 10%

Перенос данных из УПП 1.3 в ERP 2 / УТ 11 / КА 2. Переносятся документы, справочная информация и остатки

Обмен между базами 1C Платформа 1С v8.3 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос документов, начальных остатков и справочной информации из УПП 1.3 в ERP 2 | из УПП 1.3 в УТ 11 | из УПП в КА 2 | Правила конвертации (КД 2) в продаже с 2015 года, постоянно работаем над их развитием | Более 360 предприятий выполнили переход с использованием этого продукта! | Сэкономьте время - используйте готовое решение для перехода! | Позволяет перенести из УПП 1.3 в ERP / УТ 11 / КА 2 всю возможную информацию | В переносе есть фильтр по организации и множество других опциональных параметров выгрузки | Есть несколько алгоритмов выгрузки остатков на выбор

50722 45650 руб.

04.08.2015    160277    356    268    

349

SALE! 15%

[ED3] Обмен для ERP 2.5, КА 2.5, УТ 11.5 БП 3.0, Розница, УНФ и других с EnterpriseData (универсальный формат обмена), правила обмена

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, КА 2.5, УТ 11.5, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

25080 руб.

12.06.2017    135547    729    291    

391

Перенос данных из Парус 8 в ЗГУ 3

Зарплата Внешние источники данных Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 8 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

84000 руб.

19.08.2020    22613    19    1    

22

SALE! 10%

Перенос данных из ERP 2 / КА 2 / УТ 11 в БП 3.0. Переносятся документы, начальные остатки и справочники

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос данных из ERP в БП 3 | из КА 2 в БП 3 | из УТ 11 в БП 3 | из ЕРП в БП 3 | В продаже с 2019г. | Воспользовались более 176 предприятий! | Сэкономьте время - используйте готовое решение для перехода! | Перенос разработан в формате КД 2 (правила конвертации данных) | Переносятся все возможные виды документов, начальных остатков и нормативно-справочная информация| Можно опционально выгружать каждую пару "номенклатура+характеристика" как отдельную номенклатуру | Есть выгрузка настроек счетов учета и зарплатных данных из ERP / КА 2 | Можно проверить на вашем сервере перед покупкой, обращайтесь!

38500 34650 руб.

15.04.2019    68833    181    139    

111

Перенос данных из УПП 1.3 в БП 3.0. Переносятся документы (обороты за период), справочная информация и остатки

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УПП 1.3 (1.3.226.x) и БП 3.0 (3.0.151.x). Правила подходят для версии ПРОФ и КОРП.

28000 руб.

15.12.2021    20608    136    38    

94

Перенос данных из УТ 10.3 в УТ 11.5. Переносятся документы (обороты за период), справочная информация и остатки

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 10 1С:Управление торговлей 11 Россия Управленческий учет Платные (руб)

Перенос данных из 1С:Управление торговлей 10.3 в 1С:Управление торговлей 11.5 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УТ 10.3 (10.3.87.x) и УТ 11.5 (11.5.16.x).

28000 руб.

23.07.2020    46755    199    64    

162

SALE! 10%

Перенос данных из БП 3.0 в УТ 11 / КА 2 / ERP 2. Переносятся начальные остатки, документы и справочники

Обмен между базами 1C Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

В продаже с 2014г. | Воспользовались более 122 предприятий! | Перенос данных из БП 3.0 в УТ 11 | из БП 3.0 в КА 2 | из БП 3.0 в ERP | Сэкономьте свое время - используйте готовое решение для перехода! | Постоянно работаем над развитием переноса данных | Обновляем на новые релизы 1С | Есть фильтр выгрузки по организациям | Переносятся начальные остатки на выбранную дату, документы за период времени и вся возможная справочная информация | Перенос сделан на технологии КД 2 (правила конвертации данных)

50722 45650 руб.

31.10.2014    231898    125    327    

296

SALE! 10%

Перенос данных из БП 3.0 в УНФ 3.0 / УНФ 1.6. Переносятся остатки, документы и справочная информация

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление нашей фирмой 3.0 Россия Платные (руб)

В продаже с 2018г. | Воспользовались более 41 предприятия! | Правила конвертации (КД 2) для переноса данных из БП 3 в УНФ | Переносятся все виды документов, начальные остатки и вся возможная справочная информация | Есть фильтр по организациям | Оперативно обновляем на новые релизы | Оказываем техподдержку | В комплект файлов входит инструкция, авторская версия обработки "Универсальный обмен...", актуальные правила переноса данных и архив старых версий переноса | Учет в БП 3 должен быть корректным, некорректные данные не переносятся | Можно бесплатно проверить на вашем сервере до покупки!

50722 руб.

10.07.2018    67752    41    123    

46
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. dsdred 3324 23.10.19 11:48 Сейчас в теме
Похоже мамонт по имени COM еще долго не вымрет...
IncomeGroup; +1
10. jaa_cool 24.10.19 09:53 Сейчас в теме
(1)Просто не вымрут те, у кого при слове WS/HS округляются глаза... зачем что-то новое, когда на коленке все работает
dsdred; +1
11. dsdred 3324 24.10.19 10:00 Сейчас в теме
(10)Линукс бы им в помощь ))
Для ускорения процесса изучения нормальных современных методик.
+
12. jaa_cool 24.10.19 10:15 Сейчас в теме
(11)Ага, Slackware, а не какой-то там халявный redhat подобный гыгы
+
2. zabaluev 462 23.10.19 11:51 Сейчас в теме
100500 раз об одном и том же. Что здесь нового?
mrChOP93; John_Dow; awk; wowik; +4
3. awk 741 23.10.19 14:03 Сейчас в теме
БСП, Общий модуль, ОбщегоНазначенияКлиентСервер

// Устанавливает внешнее соединение с информационной базой по переданным параметрам подключения и возвращает указатель
// на это соединение.
// 
// Параметры:
//  Параметры - Структура - параметры для установки внешнего соединения с информационной базой.
//                          Свойства см. в функции
//                          ОбщегоНазначенияКлиентСервер.СтруктураПараметровДляУстановкиВнешнегоСоединения):
//
//    * ВариантРаботыИнформационнойБазы             - Число - Вариант работы информационной базы: 0 - файловый; 1 -
//                                                            клиент-серверный;
//    * КаталогИнформационнойБазы                   - Строка - Каталог информационной базы для файлового режима работы;
//    * ИмяСервера1СПредприятия                     - Строка - Имя сервера1С:Предприятия;
//    * ИмяИнформационнойБазыНаСервере1СПредприятия - Строка - Имя информационной базы на сервере1С:Предприятия;
//    * АутентификацияОперационнойСистемы           - Булево - Признак аутентификации операционной системы при создании
//                                                             внешнего подключения к информационной базе;
//    * ИмяПользователя                             - Строка - Имя пользователя информационной базы;
//    * ПарольПользователя                          - Строка - Пароль пользователя информационной базы.
// 
//  СтрокаСообщенияОбОшибке - Строка - если в процессе установки внешнего соединения возникает ошибка,
//                                     то подробное описание ошибки помещается в этот параметр.
//  ОшибкаПодключенияКомпоненты - Булево - (возвращаемый параметр) устанавливается Истина, если была ошибка при подключении.
//
// Возвращаемое значение:
//  COMОбъект, Неопределенно - в случае успешной установки внешнего соединения возвращается указатель на COM-объект соединения;
//    в случае ошибки возвращается Неопределенно.
//
Функция УстановитьВнешнееСоединение(Параметры, СтрокаСообщенияОбОшибке = "", ОшибкаПодключенияКомпоненты = Ложь) Экспорт
Показать
twiny; saggi0212; mrChOP93; login1020; IncomeGroup; user774630; +6
6. IncomeGroup 36 23.10.19 17:50 Сейчас в теме
(3) о, это полезно, об этом я не знал, спасибо.
+
4. azhilichev 213 23.10.19 15:32 Сейчас в теме
ВсегоДокументов = Запрос.Выполнить().Выбрать().Количество();

Занавес...
jaa_cool; dsdred; erutan; awk; +4
5. IncomeGroup 36 23.10.19 17:33 Сейчас в теме
(4) это для примера.
+
7. azhilichev 213 24.10.19 05:15 Сейчас в теме
(5)Дело не в том, "подожгло" или "не подожгло". Вы выкладываете статью. Скорее всего позиционируете ее как обучающую. И скорее всего код, который в статье, используете в своей работе. Есть большая вероятность, что кто-то позаимствует код из вашего примера. Давайте я объясню, что меня "подожгло".

Вы используете очень неэффективную проверку количества объектов в таблице:
ВсегоДокументов = Запрос.Выполнить().Выбрать().Количество();


Предположим, что у вас SQL-база. Здесь вы выбираете все ссылки на документы из таблицы. Эти данные передаются с сервера БД на сервер 1С. Хорошо, если таблицы по размеру небольшие. Плохо, если в таблицах сотни миллионов или миллиарды записей. Все это кэшируется и память сервера 1С неслабо засирается. Далее вы берете этот дохулион записей и просите платформу посчитать количество.

Правильно будет делать так:
"ВЫБРАТЬ
    КОЛИЧЕСТВО(*) КАК КоличествоДокументов
ИЗ
    Документ.[Имя_Вашего_Документа] КАК [Псевдоним_Таблицы]"

Выборка = Запрос.Выполнить().Выбрать();
Выборка.Следующий();


И тогда Выборка.КоличествоДокументов как раз и будет содержать определяемое значение. При этом подходе мы просим СУБД посчитать для нас количество записей в таблице.
kaaasteeen; saggi0212; ArchLord42; levante90; jaa_cool; mrChOP93; dsdred; Denis_CFO; +8
8. Denis_CFO 48 24.10.19 05:53 Сейчас в теме
(7) Спасибо, за простое разъяснение.
saggi0212; +1
9. IncomeGroup 36 24.10.19 09:48 Сейчас в теме
(7) Все ж обучение не в этом, но да правильное замечание, учту.
+
13. awk 741 24.10.19 10:27 Сейчас в теме
(7) Эх... Махнув перо в г...но, накину и я на вентилятор... :))))

Правильно (а точнее безопастнее) будет:


Если Выборка.Следующий() Тогда

fomix; +1
14. azhilichev 213 24.10.19 10:43 Сейчас в теме
(13) А в чем опасность?
Выборка.Следующий();

Запрос на получение количества без выборки каких-либо других данных и без соединений с другими таблицами всегда вернет 1 запись. Даже если строк в таблице нету, то в этой единственной записи будет значение 0.
+
15. IncomeGroup 36 24.10.19 11:07 Сейчас в теме
(14) в типовых кстати такое есть, от ситуации зависит.
+
16. awk 741 24.10.19 12:57 Сейчас в теме
(14) Все так, все так.... Пока так... А завтра? Добавили группировку, соединение и вуаля... Выборка.Следующий() = Ложь, а Выборка.КоличествоДокументов = Неопределено...
+
17. IncomeGroup 36 24.10.19 13:40 Сейчас в теме
(16) напишите письмо в фирму 1С, возможно вас послушают.
+
18. awk 741 24.10.19 13:52 Сейчас в теме
(17) Вот сейчас не совсем понял. Зачем? Что фирма 1С должна сделать? Если вы думаете, что пример надуман, то нет. Он из жизни... И ошибка: "преобразование к значению типа Число не может быть выполнено", правилась мной на этой неделе.
+
19. azhilichev 213 25.10.19 02:51 Сейчас в теме
(16) Это проблема не исходного решения. А того, кто доработал решение, даже не осмыслив, что он дорабатывает и какой объем правок надо сделать.
+
20. awk 741 25.10.19 09:35 Сейчас в теме
(19) Эту проблему можно избежать, просто проверив результат запроса. Обнаружить же такую ошибку, не имея модульных тестов , зачастую просто не реально. Но это уже перфекционизм, реакция на ваше:


позиционируете ее как обучающую


Сам такой... Прочитал ваш пост, как в зеркало посмотрел.
+
21. slavyan_arena 05.08.21 13:56 Сейчас в теме
Спасибо,
думаю многим будет полезно, кто пишет конфу с нуля
+
Оставьте свое сообщение