Попытка Соединение = Новый COMОбъект("ADODB.Connection"); СтрокаПодключения = "Provider=MSDAORA;Database=DBPIKCO;" + "Persist Security Info=True;" + "Password="+ЭтаФорма.Пароль+ ";User ID="+ЭтаФорма.Пользователь; Соединение.ConnectionString = СтрокаПодключения; Соединение.Open(); Исключение Сообщить("Ошибка: " + ОписаниеОшибки()); Возврат; КонецПопытки;
DBPIKCO = (description = (address= (protocol = tcp) (host = SUPER) (port = 1521)) (CONNECT_DATA = (SERVICE_NAME = DBPIKCO)))