Komplette Tabellenstruktur finden

[shmia]

Du nimmst eine TQuery:

Delphi-Quellcode:

query1.SQL.Text := 'SELECT * FROM '+tablelist[i]+ ' WHERE 0=1';
query1.Open;
for j := 0 to query1.fields.count-1 do
begin
   feldname := query1.fields[j].FieldName;
end;