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 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 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.