Einzelnen Beitrag anzeigen

Benutzerbild von pustekuchen
pustekuchen

Registriert seit: 27. Aug 2010
265 Beiträge
 
Delphi 11 Alexandria
 
#1

Firebird: Tabellen abfragen

  Alt 22. Okt 2010, 11:09
Datenbank: Firebird • Version: 2.1 • Zugriff über: Delphi
Guten Tag,

Seit gestern Arbeite ich mich in Firebird + Delphi ein.
Ich möchte jetzt alle Tabellen in einer Datenbank zu einer ComboBox hinzufügen.

Die Select Abfrage,müsste richtig sein, da sie per ISQL einwandfrei funktioniert.

Doch ich weiß nicht genau wo das Ergebnis der Select Abfrage drin steht.
Ich habe folgendes Probiert.

Delphi-Quellcode:
procedure TForm1.fillCBTables(cb: TComboBox);
var Tables: TStringList;
  i, count: integer;
begin
  if Assigned(db) and db.Connected then
  begin
    trans.Active := true;
    dataset.Active := false;
    dataset.SelectSQL.Clear;
    dataset.SelectSQL.Text := 'SELECT RDB$RELATION_NAME FROM RDB$RELATIONS WHERE '
                              +'(RDB$RELATION_NAME NOT STARTING ''RDB$'')'
                              +' AND (RDB$RELATION_NAME NOT STARTING ''TMP$'') '
                              +'AND (RDB$RELATION_NAME NOT STARTING ''MON$'') '
                              +'ORDER BY RDB$RELATION_NAME;';

    dataset.Open;
    cb.Clear;
    for i := 0 to dataset.DataSource.DataSet.FieldCount -1 do
      cb.AddItem(dataset.DataSource.DataSet.Fields.Fields[i].AsString,nil);
    trans.Commit;
  end;
end;
Beim Debuggen hab ich festgestellt das dataset.DataSource = nil ist. Doch wo ist denn sonst das Ergebnis?
Danke schonmal für die Hilfe
Delphi programming is awesome.
  Mit Zitat antworten Zitat