..wieder ein Bsp. aus der Hilfe:
Delphi-Quellcode:
Im folgenden Code wird gezeigt, wie nach dem Klick auf eine Schaltfläche die zwischengespeicherten Aktualisierungen einer Datenmenge
in die Datenbank eingetragen werden.
procedure TForm1.ApplyButtonClick(Sender: TObject);
begin
with CustomerQuery
do
begin
Database1.StartTransaction;
try
ApplyUpdates;
{Versuch, die Aktualisierungen in die Datenbank zu schreiben };
Database1.Commit;
{bei Erfolg Änderungen eintragen };
except
Database1.Rollback;
{bei Fehler Änderungen rückgängig machen };
raise;
{Exception auslösen, um Aufruf von CommitUpdates zu verhindern}
end;
CommitUpdates;
{bei Erfolg Zwischenspeicher leeren}
end;
end;
und CachedUpdate auf true stellen.