Код

// ---------------------------------------------------------------
Функция Сам(конт) возврат конт КонецФункции

//*******************************************
Функция Соединение(имяфайла,отключитьпредупреждение=0) экспорт
    // перед попыткой соединения с базой нужно:
	// установить сервер firebird: Firebird-2.0.6.13266_0_win32.exe
	// установить драйвер ODBC fb: Firebird_ODBC_2.0.0.150_Win32.exe
	// убедиться что сервер запущен.
	// работа с iSQL
	// выполнить "C:\Program Files\Firebird\Firebird_2_0\bin\isql.exe"
	// потом:
	// SQL>connect <имя файла (в кавычках)>
	// CON>user 'sysdba' password 'masterkey';
	// потом узнать имена таблиц:
	// SQL>show table;        
	// алиасы для файлов баз данных - в файле "C:\Program Files\Firebird\Firebird_2_0\aliases.conf"
                              

	упреждение);
	стрсоединение="DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME="+имяфайла;

	_база =СоздатьОбъект("ODBCDatabase");  
	Если _база.Соединение(стрсоединение) =0 Тогда
		если отключитьпредупреждение<>1 тогда
			Предупреждение("Ошибка открытия БД "+имяфайла, 60);
		КонецЕсли;
		Возврат 0;
	КонецЕсли;

	_рс =СоздатьОбъект("ODBCRecordSet");
	сам(контекст).УстБД(_база);                        
	возврат 1;                                  

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