FireBird veritabaninandan bilgi cekecek kucuk bir metod!

[mbt]

Asagidaki kod MS ACCESS veritabanina erisim saglayarak sql ile belirtilen field(alan) bilgileri TstringList'e atiyorum.
Bunun icin :

Kod: Tümünü seç

  kayit_set: _RecordSet;

  ADOCommand: TADOCommand;
  ADOConnection: TADOConnection;

siniflarini kullaniyorum. Yani saf kod ile veritabani islemi yapiyorum.

Ben boyle bir sinif Firebird veritabani icin de yazmak istiyorum. Firebird icin
hangi sinif ve kutuphaneleri kullanarak kod ile boyle bir metod yazabilirim ?

Kod: Tümünü seç

Uses ADODB;

procedure TVeritabani.BilgiCek1(vtadi, sql, alan1: string;
  var cikti1: TStringList);

const
  VeriSaglayicim = 'Provider=Microsoft.Jet.OLEDB.4.0;' +
    'Persist Security Info=True;Data Source=';

var
  kayit_set: _RecordSet;

  ADOCommand: TADOCommand;
  ADOConnection: TADOConnection;
begin

  ADOConnection.ConnectionString := VeriSaglayicim + vtadi;
  ADOConnection.Open; // Baglantiyi ac

  ADOCommand.CommandText := sql;
  ADOCommand.Connection := ADOConnection;
  kayit_set := ADOCommand.Execute;

  kayit_set.MoveFirst;

  while not kayit_set.eof do
  begin
    
      cikti1.Add(kayit_set.Fields.Item[alan1].Value);
  
    kayit_set.MoveNext;
  end;

  kayit_set.Close;
  ADOConnection.Close; // Baglantiyi kapat.

end;

[aslangeri]

s.a.
http://www.connectionstrings.com/firebird
adresinden firebird için connectionstring leri bulabilirsin.
adocommand yerine adoquery kullanabilirsin.
kolay gelsin.

[mbt]

Peki bunu DBX4 kullanarak nasil yapabilirim? Bunun hakkinda bilgi verebilir misiniz?