[MySQL 3.23] "Show Tables" angezeigt in Listview

[KyroxX]

dankeschön - geht:

also für alle die das gleiche prob haben *g

Hier nochmal der ganze quellcode:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
ListBox.Clear;
query.SQL.Add('SHOW TABLES');
query.Open;
query.First;
for i := 1 to query.RecordCount do
begin
  ListBox.Items.Add(query.FieldByName('Tables_in_Datenbankname').AsString);
  query.Next;
end;
end;

THX