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