Hallo zusammen,

wie kann ich die Spaltennamen einer Tabelle ermitteln und diese als String in eine Combobox schreiben ?

Bekannt ist mir nur der Tabellenname.

Gruss

Holger

Hast es mal hiermit probiert?
Diese Property sollte dir den Namen des ersten Feldes zurückgeben.

Dataset.Fields[0].FieldName

Mit einem
SELECT * FROM <Tabelle> where 1=2 bekommst du alle Felder zurück mit gemappten Delphi-Datentyp.

Willst du den Feldtyp auf der DB mußt du in die Systemtabellen schauen.


Übrigens: Muss es noch BDE sein? Ist doch schon seit 10 Jahren abgekündigt

Danke schon mal,

und wie kann ich der Query dann die Feldnamen entlocken ?

Ich habe am Anfang eine "leere Query".
Danach fülle ich diese mit dem SQL-String: "SELECT * FROM TABELLE1 WHERE 1=2"
Nun mache ich ein "Query.Open";

Wenn ich nun folgendes mache:

markieren

Delphi-Quellcode:

for I := 0 to QueryAW_Variabel.DataSource.DataSet.FieldCount - 1 do
begin

 CB_Spalte1.Items.add(QueryAW_Variabel.DataSource.DataSet.Fields[I].FieldName);

end;

klappt es nicht ? Was muss ich tuen ?

Gruss

Holger

Hallo,

reicht da nicht

markieren

Delphi-Quellcode:

for I := 0 to QueryAW_Variabel.FieldCount - 1 do
begin
  CB_Spalte1.Items.add(QueryAW_Variabel.Fields[I].FieldName);
end;

aus?

Was für eine Query benutzt Du?
TQuery?

Die hat das Attribut FieldList, ein Nachfahre von TStrings. Bei TAdoQuery und TIBQuery müsste das auch gehen.

Da dürfte dann auch so ein EinzeilerCB_Spalte1.Items.Text := QueryAW_Variabel.FieldList.Text; im Rahmen des Möglichen sein.

Hallo DP'ler,

Ich bin neu hier aber war vor drei Jahren schon mal hier. Grüsse an Alle.

So funktioniert das:

markieren

Delphi-Quellcode:

  for I := 0 to ADOQuery1.FieldCount - 1 do
    begin
      cb1.Items.add(ADOQuery1.Fields[I].FieldName);
    end;

Grüsse an Alle!

Red doch gerne mit Wänden

Vielen dank an euch.

Das klappt

Gruss

Holger