Nabend, ich hab ein Problem. Ich möchte den Server von meinem Projekt komplett neuschreiben. Der erste Schritt dazu soll sein, das er die Daten nichtmehr wie jetzt aus INI Files bezieht, sondern aus einer lokalen MySQL Datenbank.

Der Server verbindet sich bereits, und führt auch erfolgreich Befehle aus. Das Problem ist: Wie fange ich das ergebnis der ausgeführten Befehle ab? Wenn ich mittels select das Passwort abfragen will, dann wird der Befehl zwar ausgeführt, jedoch bekomme ich kein Ergebnis.

markieren

Delphi-Quellcode:

SQLQuery := TSQLQuery.Create(Self);
  SQLQuery.SQLConnection := SQLConnection1;
  SQLQuery.SQL.Text := 'Select * from test';
  SQLQuery.Active := True;

Was heißt, Du bekommst keine Daten? Hast Du ein Grid mit der Query verknüpft, oder steht das einfach nur so da wie im Code gezeigt? Im letzteren Fall müsstest Du durch die Datenmenge iterieren.

markieren

Delphi-Quellcode:

while not SQLQuery.EOF do
  begin
    ShowMessage(SQLQuery.Fields[0].AsString);
    SQLQuery.Next;
  end;

Ah damit funktioniert es, super!

Edit: Für alle die ein ähnliches Problem haben:

zusammenfalten · markieren

Delphi-Quellcode:

var
  Form1 : TForm1;
  SQLQuery : TSQLQuery;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
  i : byte;
begin
  SQLQuery.SQL.Text := 'Select * from Users';
  SQLQuery.Active := True;

  while not SQLQuery.EOF do
    begin
      for i := 0 to 6 do
        Memo1.Lines.Add(SQLQuery.Fields[i].AsString);
        SQLQuery.Next;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SQLQuery := TSQLQuery.Create(Self);
  SQLQuery.SQLConnection := SQLConnection1;
end;

end.