Ich bin gerade dabei, eine Anfrage in MySQL zu erstellen und mir das Ergebnis anzuzeigen.
Dazu erst einmal mein vorhandener Code:

markieren

Delphi-Quellcode:

        ZQuery1.SQL.Text := 'SELECT * FROM wcf1_user';
        ZQuery1.Open;
        ZQuery1.First;
        showmessage(ZQuery1.FieldByName('email').AsString);

Doch egal was ich mache, ich bekomme immer nur eine leere MessageBox ausgegeben.
Auch wenn ich statt showmessage folgendes benutze, bekomme ich nichts angezeigt:

markieren

Delphi-Quellcode:

      while not ZQuery1.Eof do
      begin
        Memo1.Lines.Add(ZQuery1.FieldByName('username').AsString);
        ZQuery1.Next;
      end;

Wenn ich mir jedoch showmessage(ZQuery1.FieldList.Text); anzeigen lasse, bekomme ich alle Namen der Columns der Tabelle richtig angezeigt.

Das sind ja auch unterschiedliche Dinge. Eine leere Tabelle enthält zwar (hoffentlich) Felder, aber keine Daten.

Ja das ist mir klar ^^
Damit wollte ich auch nur verdeutlichen, das die Verbindung zwischen Datenbank und meinem Programm besteht.
Es handelt sich hier um eine Lokale Datenbank, die ich mit Xampp erstellt habe.

Und daher weiß nich auch, dass es Daten in dieser Tabelle gibt.
Um genau zu sein 5 Datensätze.
Die Frage ist ja jetzt, wieso mir diese dann nicht angezeigt werden.

Gleicher Benutzer?
Zugriff für den PC freigeschalten?

Du hast die Datensätze aber nicht zufällig in einer noch nicht abgeschlossenen Transaktion angelegt?

Mal ins Blaue geraten:

Müsstest Du nicht
ZQuery1.Active := True; statt ZQuery1.Open verwenden?

Ich nehme mal an, dass Open keine Ergebnismenge zurückliefert (wie ExecSQL)

Die Daten habe ich über PhpMyAdmin angelegt.
Und das ist der erste Aufruf, den nich beim Programmstart mache.

Die nötigen Rechte sind vorhanden.

Ich habe auch schon ZQuery1.Active := True; verwendet.

Zitat von blawen:

Mal ins Blaue geraten:

Müsstest Du nicht
ZQuery1.Active := True; statt ZQuery1.Open verwenden?

Ich nehme mal an, dass Open keine Ergebnismenge zurückliefert (wie ExecSQL)

ZQuery1.Open benutze ich immer dann, wenn ich eine Abfrage (SELECT) machen will. ZQuery1.ExecSQL immer dann wenn ich DELETE, UPDATE, INSERT, TRUNCATE oder DROP verwende.

Zitat von SyntaxXx:

Und das ist der erste Aufruf, den nich beim Programmstart mache.
Die nötigen Rechte sind vorhanden.

Welche Komponenten hast Du auf der Form. Du benötigst TZConnection, TZQuery. Unter Connection die TZConnection. Ist das eingestellt, dann sollte folgender Code funktionieren :

markieren

Delphi-Quellcode:

ZQuery1.SQL.Text := 'SELECT * FROM wcf1_user';
ZQuery1.Open;
while not ZQuery1.Eof do
begin
  Memo1.Lines.Add(ZQuery1.FieldByName('username').AsString);
  ZQuery1.Next;
end;
ZQuery1.Close;

Hallo SyntaxXx,

7.0.4-stable ist nicht 100% fertig für XE4. Bitte lade 7.1 vom SVN herunter.

oder:

ZAbstractRODataSet.Pas

zusammenfalten · markieren

Delphi-Quellcode:

{$IFDEF WITH_TRECORDBUFFER}
function TZAbstractRODataset.GetRecord(Buffer: TRecordBuffer; GetMode: TGetMode;
  DoCheck: Boolean): TGetResult;
{$ELSE}
function TZAbstractRODataset.GetRecord(Buffer: PChar; GetMode: TGetMode;
  DoCheck: Boolean): TGetResult;
{$ENDIF}
var
  RowNo: Integer;
begin
  // mad stub for unidirectional (problem in TDataSet.MoveBuffer) - dont know about FPC
  // we always use same TDataSet-level buffer, because we can see only one row
  {$IFNDEF WITH_FUNIDIRECTIONAL}
  if IsUniDirectional then
    Buffer := Pointer(Buffers[0]); <<< das sollte so aussehen, dann sind die Daten da.
  {$ENDIF}

Also ich habe mir jetzt die Version 7.1 vom SVN geladen, doch da bekomme ich beim Compilieren mehr Fehler als bei der 7.0.4.
Da war es zumindest nur einer ^^

Hmmm, dann muss ich jetzt mal schauen, was ich jetzt mache.