Код

Перем RS;


Процедура ВыборФайла(ИмяФайла, Фильтр="xml")

	Каталог = "";
	Стр = "Файл БД (*." + Фильтр + ")|*." + Фильтр + "";

	Если ФС.ВыбратьФайл(0, ИмяФайла, Каталог, "Выберите файл", Стр, , ) = 1 Тогда
	    ИмяФайла = Каталог + ИмяФайла;
	КонецЕсли;

КонецПроцедуры		//	ВыборФайла()


Процедура ПриНачалеВыбораЗначения(ИдЭлементаДиалога, Фл)

	Если ИдЭлементаДиалога = "ПутьКБД"	Тогда

		ВыборФайла(ПутьКБД, "*");

	КонецЕсли;

КонецПроцедуры		//	ПриНачалеВыбораЗначения()



//
//
Функция СоединитсяСБД(ПутьКФайлу)

	Если ПустоеЗначение(ПутьКФайлу) = 1 Тогда
		Возврат 0;
	КонецЕсли;

	Если ФС.СуществуетФайл(ПутьКФайлу) = 0 Тогда
		Возврат 0;
	КонецЕсли;

	СтрокаСоединения = "Driver=Firebird/InterBase(r) driver;Uid=SYSDBA;Pwd=masterkey; DbName=127.0.0.1:" + ПутьКФайлу + ";Charset=WIN1251;";

	База = СоздатьОбъект("ODBCDatabase");
	База.Соединение(СтрокаСоединения);

	RS = СоздатьОбъект("ODBCRecordset");
	RS.УстБд(База);

	Возврат 1;

КонецФункции