Problem beim Löschen des letzten Datensatzes aus Query

[spuster]

Hallo zusammen,

hab ein Problem, wenn ich den letzten Datensatz aus einer Query mittels Delete löschen möchte. Letzter Datensatz heißt hier der letzte verbliebene Datensatz in der Query. Alle anderen Datensätze wurden vorher ohne Probleme gelöscht.

Die Fehlermeldung lautet:
"Entweder BOF oder EOF ist True, oder der aktuelle Datensatz wurde gelöscht. Der angeforderte Vorgang benötigt einen aktuellen Datensatz"

Hier mein vereinfachter Programm-Code:

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
    Query_Picture.Next;
end;

Vielleicht hat habt Ihr ja einen Tip, warum es nicht funktioniert.

Gruß,
Ben

[mkinzler]

Wenn du auf dem letzten DS stehst ist EOF true

[spuster]

also kann ich den letzten Eintrag nur ausserhalb der While-Schleife löschen?

[cruiser]

Wandel die Schleife doch um...

Delphi-Quellcode:

{finde heraus ob es Einträge gibt und bau daraus ein if}
Query_Picture.First;
repeat
  Filename := Query_Picture.FieldByName('filename').AsString;
  if not FileExists(Filename) then
    Query_Picture.Delete         
  else
    Query_Picture.Next;
until Query_Picture.Eof;
{ende vom if}

[spuster]

Danke. Werde das ausprobieren.

Ben

[spuster]

Leider läßt sich das Problem so auch nicht lösen.
Ich glaube es liegt daran, das Delete nach dem Löschen auf den nächsten Datensatz springen möchte. Genau das ist aber nicht möglich, da ja vorher schon alle anderen Datensätze gelöscht wurden.

Bin jetzt ziemlich ratlos.. :?:

[shmia]

Zitat:

Zitat von spuster

Die Fehlermeldung lautet:
"Entweder BOF oder EOF ist True, oder der aktuelle Datensatz wurde gelöscht. Der angeforderte Vorgang benötigt einen aktuellen Datensatz"

Die Fehlermeldung erinnert mich an einen Bug von Delphi 5.
Man musste das ADO Update #2 einspielen, um den Bug zu fixen.

Hast du zufällig ein Eveenthandler (z.B. AfterScroll) angekoppelt oder ein DBGrid mit eigener OnDrawColumnCell ?

[spuster]

Nein, hab ich nicht.
Warum?

[shmia]

Zitat:

Zitat von spuster

Nein, hab ich nicht. Warum?

Weil das natürlich zu einem Fehler führen würde, falls man nicht innerhalb dieser Eventhandler speziell die Bedingung Dataset.Eof abprüft.
Also muss man jetzt von einem Bug innerhalb der VCL ausgehen.

[spuster]

Ok. Danke. Werde mal sehen wie weit ich mit einem Update komme.