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?