1С
- 1 ответ
- 0 вопросов
1
Вклад в тег
//вытянем данные из базы
СистемнаяИнформация=Новый СистемнаяИнформация;
ВерсияПлатфомы=Лев(СистемнаяИнформация.ВерсияПриложения,3);
Если ВерсияПлатфомы="8.0" Тогда
Коннектор=Новый COMОбъект("V8.COMConnector");
ИначеЕсли ВерсияПлатфомы="8.1" Тогда
Коннектор=Новый COMОбъект("V81.COMConnector");
ИначеЕсли ВерсияПлатфомы="8.2" Тогда
Коннектор=Новый COMОбъект("V82.COMConnector");
Иначе
Предупреждение("Вы используете марсианскую версию программы. Эта обработка предназначена только для жителей Земли.");
//Возврат Ложь;
КонецЕсли;
Попытка
// Если подключаешься к файловой базе
глСоединениеСЦБ = Коннектор.Connect("file='"+ПутьКОсновнойБазе+"'; usr='"+ИмяПользователяБазы+"'; pwd='"+ПарольПользователяБазы+"';");
// если к скульной
глСоединениеСЦБ=Коннектор.Connect("Srvr='Имя сервака';Ref='База в нем'; usr='Пользователь'; pwd='пароль';");
Исключение
Сообщить(ОписаниеОшибки());
//Возврат Ложь;
КонецПопытки;