Database Components

[DArc]

Hey Delphianer!

Ich habe ein Problem mit den Zeos Komponenten, undzwar kann ich mit diesem Code

Delphi-Quellcode:

  Form1.ZConnection1.HostName := 'localhost';
  Form1.ZConnection1.Protocol := 'mysql';
  Form1.ZConnection1.Port := StrToInt('3306');
  Form1.ZConnection1.User := 'root';
  Form1.ZConnection1.Password := '';
  Form1.ZConnection1.Connect;
  Form1.ZQuery1.SQL.Text := 'SHOW DATABASES';
  Form1.ZQuery1.Open;
  ShowMessage(ZQuery1.FieldByName('Database').AsString);

die Datenbanken nicht anzeigen ... ich bekomme lediglich als Result eine "0".
Ich habe die Zeos Components auch mit einem TDBGrid verbunden. Beim TDBGrid
werden alle Datenbanken aufgezählt. Die Anzahl der Datenbanken ist richtig,
jedoch bekomme ich als Result für jede Reihe im TDBGrid eine "0".

Nun mein Problem:
Ich will die Namen der Datenbanken angezeigt bekommen.
Gibt es als Alternative irgendwelche anderen NEUEREN Komponenten?

Mfg DArc

[haentschman]

Hallo...

wenn das DBGrid die Daten anzeigt sind sie auch im Dataset.

Zitat:

jedoch bekomme ich als Result für jede Reihe im TDBGrid eine "0".

was meinst du damit ?

[DArc]

naja show database sollte doch die namen der datenbanken wiedergeben,
ich bekomme lediglich eine 0

Ich habe kurz ne PHP Variante geschrieben

Code:

<?php

mysql_connect("","root","");
$res = mysql_query("SHOW DATABASES");
while ($row = mysql_fetch_row($res))
{
    echo $row[0],"<br/>";
}

?>

Das Ergebnis ist

Zitat:

information_schema
cdcol
forum
mario
mo
mysql
phpmyadmin
storagedatr
test
trast

Das möchte ich auch in Delphi erreichen.
Wobei mir fällt grad auf, dass man vllt wie bei PHP ein array einbinden müsste
(echo $row[0],"<br/>";) weiß aber nicht wie das mit Zeos funktionieren soll:shock:

Mfg DArc

[DeddyH]

Delphi-Quellcode:

Form1.ZConnection1.HostName := 'localhost';
  Form1.ZConnection1.Protocol := 'mysql';
  Form1.ZConnection1.Port := 3306;  //wozu das String-Geraffel?
  Form1.ZConnection1.User := 'root';
  Form1.ZConnection1.Password := '';
  Form1.ZConnection1.Connect;
  Form1.ZQuery1.SQL.Text := 'SHOW DATABASES';
  Form1.ZQuery1.Open;
  while not Form1.ZQuery1.EOF do
    begin
      ShowMessage(Form1.ZQuery1.Fields[0].AsString); 
      Form1.ZQuery1.Next;
    end;

[DArc]

dieses geraffel tu ich normal nicht, hab da normal das stehen, musste es aber ersetzen, da es lästig war immer wieder einzugeben

Delphi-Quellcode:

Form1.ZConnection1.Port := StrToInt(edtx.Text);

bei mir kommt trotzdem 0 raus

Code:

---------------------------
Project1
---------------------------
0
---------------------------
OK   
---------------------------

kann das pls wer compilen, testen und berichten, obs bei ihm geht?

[omata]

Warum eigentlich so spezialisiert?

Delphi-Quellcode:

var Liste:TStringList;
    i:integer;
begin
  Liste:=TStringList.Create;
  try
    ZConnection.GetTableNames('', Liste);
    for i:=1 to Liste.Count do
      ShowMessage(Liste[i-1]);
  finally
    Liste.free;
  end;
end;

Ok, wer lesen kann ist klar im Vorteil, sorry...

[DeddyH]

Mal ganz doof gefragt: die Query ist aber mit der Connection verbunden, oder?

[haentschman]

Moin...
ich zitiere nochmal weil ja keiner drauf hört :zwinker:

Zitat:

Ich habe die Zeos Components auch mit einem TDBGrid verbunden. Beim TDBGrid
werden alle Datenbanken aufgezählt. Die Anzahl der Datenbanken ist richtig,
jedoch bekomme ich als Result für jede Reihe im TDBGrid eine "0".

...dieser Aussage zufolge ist das kein DB oder Verbindungsproblem sondern ein "Auswertungsproblem" des Datasets.

Zitat:

ich bekomme lediglich eine 0

...wo holst du die 0 her und wie visualisierst du sie ?

[DArc]

Hab mal das Beispiel Projekt hochgeladen.
Ich möchte alle Datenbanken angezeigt bekommen, die Anzahl stimmt, nur die Namen sind falsch.

Achja, um das Beispiel nachzuvollziehen braucht ihr lediglich einen MySQL Server mit ein paar Datenbanken.

[mkinzler]

Schon mal mit Omata's allgemeinen/db-unabhängigen Vorschlag versucht?