|
0
YF
16.12.11
✎
09:08
|
//------- © YF --------------------
// Устанавливает соединение с внешней ИБ. Возвращает
//com-объект. При ошибке соединения возвращает Неопределено
Функция УстановитьСоединение(_внешняяИБ = Неопределено) Экспорт
Перем сомОбъект;
// Получим строку соединения
строкаПодключения_ = ПолучитьЗначениеПараметраЗагрузки(_внешняяИБ, "СтрокаПодключения");
// Подключимся к базе
Если строкаПодключения_ = Неопределено Тогда
Возврат Неопределено;
ИначеЕсли Не ( ЗначениеЗаполнено(СокрЛП(строкаПодключения_)) ) Тогда
Возврат Неопределено;
Иначе
сомОбъект = Новый COMОбъект("V82.Application");
результатСоединения_ = сомОбъект.Connect(строкаПодключения_);
Если результатСоединения_ Тогда
Возврат сомОбъект;
Иначе
Возврат Неопределено;
КонецЕсли;//результатСоединения_
КонецЕсли;//строкаПодключения_ = Неопределено
КонецФункции // УстановитьСоединение()
// Получаю сом-объект
сомОбъект = УстановитьСоединение(внешняяИБ);
При этом открывается база + после отработки процедуры сом-объект не закрывается ...
1) Как сделать, чтобы окно не открывалось?
2) Как сделать, чтобы закрывался сом-объект?
|
|