Problem beim Löschen des letzten Datensatzes aus Query

[hoika]

Hallo,

sicher, dass der Fehler nicht beim Next kommt ?.

Du könntest einen Zähler mitlaufen lassen
(vorher die Anzahl der Einträge in der Query z.B. mit
select count(*) oder RecordCount ermitteln).

vor dem while-end dann die Prüfung
if Counter=MaxCount then break;


Heiko

[Catbytes]

Und so?

Delphi-Quellcode:

Query_Picture.First; 
while not Query_Picture.Eof do 
begin 
  Filename := Query_Picture.FieldByName('filename').AsString; 
  if not FileExists(Filename) then 
    Query_Picture.Delete          
  else 
   if not Query_Picture.Eof then // <--- Aenderung
    Query_Picture.Next; 
end;

Grad so aus dem Kopf - ungetestet...

[spuster]

Zitat:

Zitat von hoika

Hallo,

sicher, dass der Fehler nicht beim Next kommt ?.

Du könntest einen Zähler mitlaufen lassen
(vorher die Anzahl der Einträge in der Query z.B. mit
select count(*) oder RecordCount ermitteln).

vor dem while-end dann die Prüfung
if Counter=MaxCount then break;


Heiko

Ja, habs ausprobiert und der Fehler tritt definitiv bei Delete auf und zwar dann, wenn nur noch ein Record da ist.

Das mit MaxCount werde ich mal testen. Danke!

[spuster]

Zitat:

Zitat von Catbytes

Und so?

Delphi-Quellcode:

Query_Picture.First; 
while not Query_Picture.Eof do 
begin 
  Filename := Query_Picture.FieldByName('filename').AsString; 
  if not FileExists(Filename) then 
    Query_Picture.Delete          
  else 
   if not Query_Picture.Eof then // <--- Aenderung
    Query_Picture.Next; 
end;

Grad so aus dem Kopf - ungetestet...

Gleiche Problem wie beim Beitrag davor...
Nach Delete ist leider schon Schluß, so dass die nächste Abfrage nicht mehr zur Geltung kommt.