MySql Direct - Zeigt nur manchmal etwas an

[citybreaker]

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?

[soulies]

Zitat:

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;

versuch mal hier hinter noch ein 'freeandnil(fresult)'

Zitat:

q := 'SELECT * FROM test';

greifst du damit auf die MySQL eigene Datenbank 'test' zu ?

edit: Code umgestellt ...

Delphi-Quellcode:

procedure Auflisten;
var ex: boolean;
    q: string;
    i, records: 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);
    records := fResult.RowsCount;

    MainFrm.lview.Clear;    
    
    for i:=0 to records-1 do
    begin      
      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;
    FreeAndNil(fResult);
  end;
end;

cya

[citybreaker]

Danke für den Tipp, funktionieren tut es leider trotzdem noch nicht.
Ich habe das Gefühl, dass das ganze mit der ListView zusammenhängt. Wenn
ich einen der Werte in einer ShowMessage anzeigen lassen steht dort etwas
drinne, die ListView hingegen bleibt leer. :(

[soulies]

was passiert wenn du statt

Zitat:

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'));

verwendest

Delphi-Quellcode:

MainFrm.LView.Items[i].Caption := fResult.FieldValue(0);
      MainFrm.LView.Items[i].SubItems.Add(fResult.FieldValue(1));
      MainFrm.LView.Items[i].SubItems.Add(fResult.FieldValue(2));

vllt. stimmt etwas mit deinen feldbezeichnungen nicht


cya