adoquery.eof -abarbeitung bricht einfach ab

[Susanne]

hallo,

ich hab hier nun ein etwas komisches Phänomen: Ich habe eine TQuery und ich setze ein sql-statement ab - soweit so gut.

Als Ergebnis bekomme ich 33 Datensätze, die ich nun abarbeiten möchte, so in etwa im quellcode auszug unten.

Ich weiss, dass er 33 Datensätze gefunden hat. Ich habe extra noch einen Zähler eingebaut (i), der in eine Logdatei mit weggeschreiben wird und der zählt fleissig mit von 1 - 17 und dann sagt er, er wäre fertig mit der Abarbeitung der Datensätze.

Woran kann denn das liegen? Hat schon mal jemand anderes solch ein Problem gehabt?

Delphi-Quellcode:

i:=0;
  while not Adoquery1.Eof do begin
    i:= i+1;
    LogInfo('Schleife: '+ inttostr(i),LogFehler,0);
    try
      LogInfo('Hole jetzt Barcode aus db' , LogFehler, 2);
      if HitListeErzeugen(wert)then begin
      end;
          
    except
      on e:exception do begin
        LogInfo('Fehler Bearbeitung: '+ e.message ,LogFehler, 0);
        AdoQuery1.Next;
      end;
    end;
    AdoQuery1.next;
  end;
  LogInfo('Abarbeitung der Datensätze beendet ' ,LogFehler, 0);

[marabu]

Hallo Susanne,

unterlasse das Vorsetzen des Cursors mit Next() innerhalb deiner Ausnahmenbehandlung und du wirst sehen ...

Grüße vom marabu

[Susanne]

oh mann, ich seh heute aber auch den Wald vor lauter Bäumen nicht - danke!