Einzelnen Beitrag anzeigen

AnfängerDelphi

Registriert seit: 20. Mai 2010
25 Beiträge
 
#1

ADO - Tabellennamen von einer Datenbank einlesen

  Alt 14. Nov 2012, 23:03
Datenbank: MS Access • Version: 2000 • Zugriff über: ADO
Hallo an alle,

wie muß folgender Code umgestellt werden,das er mit der ADO-Sql-Abfrage funktioniert?
Ich möchte nur die Spaltennamen einer Datenbank einlesen und anzeigen.
Die Ausgabe soll an eine TListBox übergeben werden.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  DbDS.Close;
  DbDS.SelectSQL.Text := 'select * from rdb$relations where NOT (RDB$RELATION_NAME LIKE ''RDB$%'') ORDER BY RDB$RELATION_NAME';
  DbDS.Open;
  DbDS.First;
  i := 0;
  while not DbDS.Eof do begin
    DetailDS.Close;
    DetailDS.SelectSQL.Text := 'SELECT COUNT (*) AS ANZAHL from '+DbDS.FieldByName ('RDB$RELATION_NAME').AsString;
    DetailDS.Open;
    with StringGrid1 do begin
      RowCount := RowCount + 1;
      Cells [0,i] := IntToStr (i);
      Cells [1,i] := DbDS.FieldByName ('RDB$RELATION_NAME').AsString;
      Cells [2,i] := DetailDS.FieldByName ('ANZAHL').AsString;
    end;
    i := i + 1;
    DbDS.Next;
  end;
end;
Mfg
AnfängerDelphi
  Mit Zitat antworten Zitat