Подключение к файлу .fbd через 1С

&НаКлиенте
Процедура ПодключитьсяКБазе();
	ПутьКБазе = "localhost:E:\ibnet.fdb";
	мСоединение=Новый COMОбъект("ADODB.Connection");
	мСоединение.ConnectionString="driver=Firebird/InterBase® driver; 
	|Dialect=3; 
	|CHARSET=utf-8; 
	|Uid=SYSDBA;
	|Pwd=masterkey;
	|Role=rdb$admin;
	|Dbname="+СокрЛП(ПутьКБазе);
	мСоединение.ConnectionTimeOut=180; // и хватит
	мСоединение.CursorLocation=3;
	Попытка
	    мСоединение.Open(мСоединение.ConnectionString);
		ПоказатьОповещениеПользователя("ОК",,"Соединение успешно установлено!");
	Исключение
		Сообщить("Ошибка при установке соединения: "+ОписаниеОшибки());
		мСоединение=Неопределено;
	КонецПопытки;	
КонецПроцедуры

&НаКлиенте
Процедура Подключиться(Команда)
	ВыполнитьЗапрос();
КонецПроцедуры

&НаКлиенте
Функция ВыполнитьПодключениеКБД()
	ПутьКБазе = "localhost:E:\ibnet.fdb";
	мСоединение=Новый COMОбъект("ADODB.Connection");
	мСоединение.ConnectionString="driver=Firebird/InterBase® driver; 
	|Dialect=3; 
	|CHARSET=utf-8; 
	|Uid=SYSDBA;
	|Pwd=masterkey;
	|Role=rdb$admin;
	|Dbname="+СокрЛП(ПутьКБазе);
	мСоединение.ConnectionTimeOut=180; // и хватит
	мСоединение.CursorLocation=3;
	Попытка
		мСоединение.Open(мСоединение.ConnectionString);
		ПоказатьОповещениеПользователя("ОК",,"Соединение успешно установлено!");
	Исключение
		Сообщить("Ошибка при установке соединения: "+ОписаниеОшибки());
		мСоединение=Неопределено;
	КонецПопытки;
	Возврат мСоединение;
КонецФункции

&НаКлиенте
Функция ВыполнитьЗапрос()
	ЗагруженоНовыхСотрудников = 0;
	Connection = ВыполнитьПодключениеКБД();
	
	RecordSetDepartanent = Новый COMОбъект("ADODB.Recordset");
	RecordSetDepartanent.ActiveConnection = Connection;
	RecordSetDepartanent.CursorType = 1;
	RecordSetDepartanent.LockType = 3;
	Try
		RecordSetDepartanent.Open("SEL ECT OW_FIRSTNAME, OW_MIDDLENAME, OW_LASTNAME,OW_WS_ID FR OM OWNER", Connection);
	Except  
		Сообщить("Не удалось выполнить запрос " + ОписаниеОшибки());
		Connection.Close();
		Return Connection;
	EndTry;  
	// Обработка результатов запроса
	Пока(RecordSetDepartanent.EOF() = 0)Цикл
		НаименованиеСотрудников 	 = String(RecordSetDepartanent.Fields("OW_LASTNAME").Value)+" " 
										+ String(RecordSetDepartanent.Fields("OW_FIRSTNAME").Value) + " " 
											+String(RecordSetDepartanent.Fields("OW_MIDDLENAME").Value) ;
		//Подразделение 				 = String(RecordSetDepartanent.Fields("WS_FULLNAME").Value); 
		RecordSetDepartanent.MoveNext();
	КонецЦикла;
	// Не забываем закрыть набор данных !!!
	RecordSetDepartanent.Close();
	Connection.Close();
КонецФункции

&НаСервереБезКонтекста
Функция ПолучитьСсылкуПоНаименованиюСотрудника(Наим)
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	Сотрудники.Ссылка КАК Ссылка,
	|	Сотрудники.Наименование КАК Наименование
	|ИЗ
	|	Справочник.Сотрудники КАК Сотрудники
	|ГДЕ
	|	Сотрудники.Наименование = &Наименование";
	
	Запрос.УстановитьПараметр("Наименование", Наим);
	РезультатЗапроса = Запрос.Выполнить();
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Возврат ВыборкаДетальныеЗаписи.Ссылка;	
	КонецЦикла;
	Возврат Неопределено;
КонецФункции

&НаСервереБезКонтекста
Процедура ЗаписатьНовогоСотрудника(НаименованиеСотрудников,НаименованиеСотрудника,Подразделение,ЗагруженоНовыхСотрудников)
	СпрСотрудники = Справочники.Сотрудники;
	СпрПодразделение = Справочники.Подразделения;
	
	НаименованиеСотрудников  				 = НаименованиеСотрудника;
	НайтиНаименованиеСпрСотр 				 = СпрСотрудники.НайтиПоНаименованию(НаименованиеСотрудников,Истина);
	НайтиЭлПодразделения					 = СпрПодразделение.НайтиПоНаименованию(Подразделение,Истина);
	
	Если НайтиНаименованиеСпрСотр.Пустая = СпрСотрудники.ПустаяСсылка() Тогда
		НовЭл = СпрСотрудники.СоздатьЭлемент();
		ЗагруженоНовыхСотрудников = ЗагруженоНовыхСотрудников + 1;
		
		Если ПустаяСтрока(НайтиЭлПодразделения) Тогда
			НовЭлПодразделения = СпрПодразделение.СоздатьЭлемент();
			НовЭлПодразделения.Наименование = Подразделение;
			НовЭлПодразделения.Записать();
			НовЭл.Подразделение = НовЭлПодразделения.Ссылка;
		Иначе
			НовЭл.Подразделение = НайтиЭлПодразделения;
		КонецЕсли;
	Иначе
		ВыборкаДетальныеЗаписи = НайтиНаименованиеСпрСотр;
	КонецЕсли;
КонецПроцедуры