Доступ к БД из сценариев

В продолжение к статье “Получение информации во Frontol Win32 из сторонней внешней базы данных” представляем альтернативный, бесплатный ODBC драйвер для доступа к БД о создателей Firebird.

Скачать его можно по ссылке http://www.firebirdsql.org/en/odbc-driver/. Тестирование проводилось на следующих версиях драйвера:

  • Firebird_ODBC_2.0.1.152_Win32
  • Firebird_ODBC_2.0.1.152_x64

В отличие от рассматриваемого в вышеозвученном примере IBProvider’а драйвер от создателей Firebird является бесплатным и дистрибутив его составляет всего порядка 1Мб. Для работы ADO (интерфейс для работы с базами данных) с этим драйвером нужно использовать Microsoft OLE DB Provider for ODBC Drivers, который входит в поставку Windows и по умолчанию есть даже в Windows семейства Embedded.

Пример подключения с использованием данного драйвера может выглядеть, например, следующим образом:

DB = “DRIVER=Firebird/InterBase(r) driver; DBNAME=localhost:E:\\Frontol\\MAIN.GDB;UID=sysdba;PWD=masterkey”;

var Conn = new ActiveXObject(“ADODB.Connection”);
Conn.Provider = “MSDASQL.1″;
Conn.Open(DB);
Conn.BeginTrans;

var qSelect = new ActiveXObject(“ADODB.Command”);
qSelect.ActiveConnection = Conn;
qSelect.CommandText = “SELECT * FROM SPRT”;
var Wares = qSelect.Execute;

var displaystr = “”, selectstr = “”;
while (!Wares.EOF)
{
displaystr += Wares.Fields.Item(“CODE”) + ‘ ‘ + Wares.Fields.Item(“NAME”) + “\n”;
selectstr += Wares.Fields.Item(“CODE”) + “\n”;
Wares.MoveNext();
}
if (selectstr == “”)
AO.ShowError(“Нет товаров”);
var Code = AO.SelectString(“Выберите товар”, displaystr, selectstr);
if (Code == null)
AO.ShowError(“Необходимо выбрать товар”);

AO.ShowMessage(“Выбран товар ” + Code);

Firebird_ODBC_2.0.1.152_Win32.exe

Рубрики Мастер класс · Таги

Speak Your Mind

Tell us what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!

You must be logged in to post a comment.