Spaltennamen einer Tabelle ermitteln

[HolgerCW]

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

[spaxxn]

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

Delphi-Quellcode:

Dataset.Fields[0].FieldName

[Bernhard Geyer]

Mit einem

SQL-Code:

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

[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

[nahpets]

Hallo,

reicht da nicht

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 Einzeiler

Delphi-Quellcode:

CB_Spalte1.Items.Text := QueryAW_Variabel.FieldList.Text;

im Rahmen des Möglichen sein.

[R2009]

Hallo DP'ler,

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

So funktioniert das:

Delphi-Quellcode:

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

Grüsse an Alle!

[spaxxn]

Red doch gerne mit Wänden :)

[HolgerCW]

Vielen dank an euch.

Das klappt

Gruss

Holger