Spaltennamen einer Tabelle ermitteln

[HolgerCW]

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:

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