[MySQL 3.23] "Show Tables" angezeigt in Listview

[KyroxX]

Hallo,

nutze die ZEOS und möchte meine Datenbanktabellen anzeigen.
Dafür nutze ich folgenden code:

"query.SQL.Text:='SHOW TABLES;';
query.Open;"

nun möchte ich diese Daten in mein ListView(liste2) eintragen.
Etwa so:

"while not query.Eof do
begin
ListItem := liste2.Items.Add;
ListItem.Caption:=query.FieldByName('WAS kommt HIER hin? *g').AsString;
query.Next;
end;

Also was kommt hinter FieldByName?
Table? Tables?

irgendwie blick ichs nich lol

*grins*

(sicher wieder der übelst blödeste feher den gibbt ^^)

schonmal thx *g

[Chewie]

Der Name der Spalte bzw., falls du die Abfrage mit AS abgeschickt hast, den Alias, den du definiert hat.

[KyroxX]

der name der spalte..ja
bloss: wie is die spaltenüberschrift der database für ne tabelle?

table?

hmm geht nich...

p.s.: Ich würd mal vermuten man muss erst die DATABASE holen und dann die Tables der Database checken.
Nur wie?

SHOW DATABASE
SELECT TABLE FROM DATABASE oder wie?

[Chewie]

Uups, tut mir leid, ich hab mir deinen Query nicht angekuckt

Versuchs mal mit Tables_in_<Name der Datenbank> (ohne die Spitzen Klammern)

[Gollum]

Hallo,

mit dem Spaltennamen bin ich mir nicht ganz sicher:

MySQLFront und PhpMyAdmin geben "Tabels_in_[DBName]" zurück. Wobei [DBName] der Name der aktuellen Datenbank ist.

Eine andere Möglichkeit wäre:

  ListItem.Caption:=query.Fields[0].AsString;

[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

[Chewie]

Ich würde dir aber empfehlen, in diesem Falle auf die Zahlenindexierung zurückzugreifen. Bei MySQL mag es so noch funktionieren, aber spätestens, wenn du auf eine andere Datenbank wechselst, kann es zu Problemen kommen.

[KyroxX]

da steckt noch nen kleiner bug irgendwo.
Wenn man 2 ma diesen procedure ausführt dann bekommste nen netten SQL error.
Mal schaun

[Gollum]

Hallo,

wenn schon, denn schon:

Delphi-Quellcode:

  ...
  ListBox.Clear;
  query.Close;
  query.SQL.Text:='SHOW TABLES';
  query.Open;
  while not query.Eof do
  begin
    ListBox.Items.Add(query.Fields[0].AsString);
    query.Next;
  end; // while
  ...