MySQL Tabellen anfragen

[Pump3r]

Moin, ich würd gerne wissen, wie ich aus meiner Datenbank, alle meine Tabellen auslesen kann und in eine SringList speichern kann.

Ist das möglich? ich benutze die Zeos Komponenten.



Gruß Pump, :angel:

[RavenIV]

Willst Du den Tabellenaufbau oder den Tabelleninhalt auslesen?

übrigens sind bei den ZEOS einige Beispiele dabei, in denen der grundlegende Umgang mit diesen Komponenten beschrieben wird.
Ich hab das mit den ZEOS auch so gelernt.

[Pump3r]

den inhalt aus einer einzelnen tabelle auslesen, weiß ich eigentlich wie das geht.


ich will die einzelnen tables aus meiner datenbank abfragen.

MySQL Befehl: show tables;

das was da kommt, will ich in eine StringList speichern.

ich weiß nur nicht wie ich das shwo tables sende und die rückgabe abfangen kann.

:(


EDIT: Hat sich erledigt, habs ...

Delphi-Quellcode:

procedure TForm1.gettables;
var
liste : TStringList;
begin
try
liste := TStringList.Create;
ZQuery2.Active := false;
ZQuery2.SQL.Text:='SHOW TABLES';
ZQuery2.active := true;
while not zquery2.Eof do
  begin
  liste.Add(ZQuery2.Fields[0].AsString);
  zquery2.Next;
  end;
zquery1.Active := false;
liste.savetofile(ExtractFilePath(application.ExeName)+'test.txt');

finally
liste.Free;
end;
end;

[Sharky]

Hai Christian,

nur als Ergänzung ;-)

Delphi-Quellcode:

procedure TDemoForm.btn_testClick(Sender: TObject);
var
  pattern : string;
begin
  pattern := ''; // Oder '%blubb' für alle Tabellen die mit blubb enden, oder 'meow%' für alle die mit meow anfangen
  ZConnection1.GetTableNames(pattern, ListBox1.Items);
end;