Я всегда мечтал о том, чтобы моим компьютером можно было пользоваться так же легко, как телефоном; моя мечта сбылась: я уже не могу разобраться, как пользоваться моим телефоном. - Bjarne Stroustrup


Сегодня: 25.07.2017
Яндекс.Метрика

Добавил admin | Категория Наши материалы | 27 Ноября 2014


Доброго времени суток уважаемый читатель, как ты уже наверное успел догадаться сегодня речь пойдет о подключении к БД Firebird используя среду разработки – Delphi. Но с одним но, для подключения мы будем использовать компоненты FIBPlus. Почему? Да потому что это лучшие компоненты для работы с СУБД Firebird. способ подключения описанный в этой статье будет применим практически для всех версий Delphi а продемонстрирован на примере Delphi 2010. Скачать FUBLpus можно вот по этой ссылке.
И так. Создадим новый проект:

окно создания нового приложения

Поместим на форму следующие компоненты:

  • TpFIBDatabase;
  • TpFIBTransaction 2 штуки;
  • TButton;
  • TLabel.

Настройку всех компонент мы сделаем непосредственно в коде, так будет понятней. TpFIBTransaction, первый назовем TrRead а второй TrWrite.

компоненты необходимые для подключения к Firebird

Компонент TpFIBDatabase настроим следующим образом:

Как нужно настраивать компоненты в Delphi для того что бы выполнить подключение к Firebird

Откроем окно свойства “DBParams” и добавим в него строчки как на рисунке ниже:

DBParams тонкости настройки и использования

Осталось настроить наши транзакции и можно перейти к коду, кода будет мало.
Для tread сделаем вот такие вот настройки:

Рисунок показывает как настроить читающию транзакцию в Delphi

Для TrWrite вот такие:

Рисунок показывает как настроить записывающию транзакцию в Delphi

Ну а теперь код подключения к БД Firebird.


  pFIBDatabase1.Close;
  try
    pFIBDatabase1.DatabaseName := 'localhost:C:\DBase.fdb';//если на сервере то вместо localHost имя сервера и алиас
    pFIBDatabase1.ConnectParams.UserName := 'SYSDBA';
    pFIBDatabase1.ConnectParams.Password := 'masterkey';
//    pFIBDatabase1.ConnectParams.RoleName := 'роль если есть, если нет то устанаваливается по умолчанию';
    pFIBDatabase1.Open(True) ;
  Except on E: Exception do
    MessageBox(Handle, PChar(E.Message), 'Error', MB_ICONERROR);
  end;

Не думаю что тут что то нужно комментировать, все до боли просто, но все же если у вас остаются вопросы вы вправе получить на них ответы в своих комментариях, пожалуйста оставляйте комментарии, ставьте лайки и подписывайтесь на наш канал).
p/s у нас нет канала, можете подписаться на нас в соц. сетях.

Скачать программу, Пароль, как обычно qwerty
Обсудить на форуме

Вы можете сохранить данную статью себе вконтакте:


Поделить статьей в социальных медиа

Информация была полезной? Поделись ей
Поделить статьей в социальных медиа


comments powered by Disqus