Подключение к БД FireBird

[Prostaf]

Здравствуйте, уважаемые. Есть сервер(уже написан), нужно подключиться к удаленной бд firebird. Есть ip и путь где лежит бд(никогда не работал с firebird). Как произвести подключение к этой БД, какие стандартные компоненты delphi в этом помогут?

[Stilet]

Достаточно IBDatabase, IBQuery и IBTransaction если не ошибаюсь.

[Prostaf]

Сообщение от Stilet

Достаточно IBDatabase, IBQuery и IBTransaction если не ошибаюсь.

Если не сложно, можете показать примеры коннекта к бд?

[Stilet]

Описание: http://www.ibase.ru/devinfo/ibx.htm

Я использую такую функцию:

function Connect(Host, path,pass,login: String): boolean;
begin
  if IBQuery.Active then IBQuery.Active:=false;
  if IBDatabase.Connected then IBDatabase.Close;


  with IBDatabase do begin
      DatabaseName:=host+':'+Path;
      with Params do begin  Clear;
       add('user_name='+login);
       add('password='+pass);
       add('lc_ctype=WIN1251');
      end;
      try
       Open;
       Result:=true;
      except
         on E: Exception do begin
          Result:=false;
         end;
      end;
  end;

end;

IBQuery связано с IBDatabase свойством Database.
IBTransaction так же установлено в IBDatabase в соответствующем свойстве

[Prostaf]

Сообщение от Stilet

Описание: http://www.ibase.ru/devinfo/ibx.htm

Я использую такую функцию:

function Connect(Host, path,pass,login: String): boolean;
begin
  if IBQuery.Active then IBQuery.Active:=false;
  if IBDatabase.Connected then IBDatabase.Close;


  with IBDatabase do begin
      DatabaseName:=host+':'+Path;
      with Params do begin  Clear;
       add('user_name='+login);
       add('password='+pass);
       add('lc_ctype=WIN1251');
      end;
      try
       Open;
       Result:=true;
      except
         on E: Exception do begin
          Result:=false;
         end;
      end;
  end;

end;

IBQuery связано с IBDatabase свойством Database.
IBTransaction так же установлено в IBDatabase в соответствующем свойстве

Во! Все понятно! Спасибо!
Тогда сразу задам следующий вопрос.
Мне просто кинули процедуру, которую нужно подвязать к бд.

procedure SB_CHECK (
    TXN_ID varchar(50) not null,
    ACCOUNT varchar(20) not null,
    SUMMA numeric(15,2) not null)
returns (
    OSMP_TXN_ID varchar(50),
    RESULT integer,
    OCOMMENT varchar(50))

Как такую процедуру подвязать к бд и получать от этой бд ответ?

[Аватар]

А нет процедуры, есть только её заголовок

[Stilet]

кинули процедуру

Скорее тебя кинули
Действительно - где тело? куда тело процедуры закопали?

[Prostaf]

Сообщение от Stilet

Скорее тебя кинули
Действительно - где тело? куда тело процедуры закопали?

а вот шеф кинул этот кусок, и ему фиолетово, че, куда и где)

[Stilet]

шеф кинул

Кинь шефа. Напугай люстрацией.

[Vapaamies]

Сообщение от Prostaf

Мне просто кинули процедуру, которую нужно подвязать к бд.

procedure SB_CHECK (
    TXN_ID varchar(50) not null,
    ACCOUNT varchar(20) not null,
    SUMMA numeric(15,2) not null)
returns (
    OSMP_TXN_ID varchar(50),
    RESULT integer,
    OCOMMENT varchar(50))

Это, видимо, существующая процедура в БД, которую нужно вызвать на клиенте? Нужно использовать IBStoredProc.