Einzelnen Beitrag anzeigen

citybreaker
(Gast)

n/a Beiträge
 
#1

MySql Direct - Zeigt nur manchmal etwas an

  Alt 25. Jun 2008, 16:38
Datenbank: MySql • Zugriff über: MySql Direct
Hallo!

Um ein paar Daten aus meiner Datenbank auszulesen benutze ich folgenden Code.
Delphi-Quellcode:
procedure Auflisten;
var ex: boolean;
    q: string;
    i: Integer;
begin
  if fMySql.Connect then begin
    if assigned(FResult) then begin
      if FMysql.Status<>MYSQL_STATUS_READY then
        FreeAndNil(FResult);
    end;

    q := 'SELECT * FROM test';
    fResult := fMySql.query(q,true,ex);

    MainFrm.lview.Clear;
    i := -1;
    fResult.First;
    while not fResult.Eof do begin
      i := i+1;
      MainFrm.LView.Items.Add;
      MainFrm.LView.Items[i].Caption := fResult.FieldValueByName('id');
      MainFrm.LView.Items[i].SubItems.Add(fResult.FieldValueByName('name'));
      MainFrm.LView.Items[i].SubItems.Add(fResult.FieldValueByName('mail'));
      fResult.Next;
    end;
  end;
end;

// Beim Start verbinden und auflisten
procedure TMainFrm.FormCreate(Sender: TObject);
begin
  ConnectMySql;
  Auflisten;
end;

// ListView aktualisieren
procedure TMainFrm.Button1Click(Sender: TObject);
begin
  Auflisten;
end;
Wenn ich nun das ganze starte, werden die Daten aufgelistet, nach dem ich aber Button 1 zum aktualisieren
gedrückt habe passiert gar nichts. Nicht einmal wenn ich einen neuen Datensatz eingefügt habe.
Lasse ich Auflisten in der OnCreate weg, passiert auch nichts nach dem Button drücken.

Hat vielleicht jemand ne Idee woran das liegen könnte?
  Mit Zitat antworten Zitat