Подключение к Firebird

Добавил: JohnConnor

Firebird

Firebird FB SQL
	Если ЭлементыФормы.ФайлИмпорта.Значение = "" Тогда
		Предупреждение("Неуказан файл");
		Возврат;
	КонецЕсли;
	СтрокаПодключения =  "Driver=Firebird/InterBase(r) driver;" ;
	СтрокаПодключения = СтрокаПодключения + "Dbname=Localhost:"+ ЭлементыФормы.ФайлИмпорта.Значение + ";";
	СтрокаПодключения = СтрокаПодключения + "UID=SYSDBA;PWD=masterkey;CHARSET=WIN1251";		
	// Подключаемся к базе данных 	
	Connection = Новый COMОбъект("ADODB.Connection");
	Connection.ConnectionTimeout = 15; 
	Connection.CursorLocation = 3;
	Connection.ConnectionString = СтрокаПодключения; 
	Connection.Open();
	Сообщить("Соединение успешно уставнолено !!!");
Назад к списку

Комментарии

allexus
14 июня 2016 14:01: #1

Я бы еще попытку сделал при вызове open(), чтобы не было нелепых системных сообщений с кнопками Завершить/Закрыть/Конфигуратор


FastCode - сервис поиска кода 1С

Уже более 1000 разработчиков используют FastCode в работе!