Vielleicht so:
Delphi-Quellcode:
Var
i : Integer;
Begin
With Query Do
Begin
SQL.Text := Format(
'
SELECT t.*' + #10 +
'
FROM %s t'
, [Edit1.Text]);
Execute;
Memo1.Lines.Clear;
For i := 0
To pred(FieldCount)
Do
Memo1.Lines.Add(Fieldname(i));
End;
End;
Ist aber ziemlich Quick'n Dirty.
Gibt es in
mySQL Systemtabellen (à la Oracles all_tab_columns), in denen die Spalten von Tabellen aufgelistet sind?
Wenn ja, kannst du dort nicht nur deine Spaltennamen, sondern bestimmt auch noch zusätzl. Infos herbekommen (Keys,...)
Nachtrag: Funktioniert "Describe" in
MySQL?