Moin, moin,
also mit
Ado und
Access würde ich das mit Folgendem angehen...
Delphi-Quellcode:
var Level: integer;
begin
// Query bereit machen
if ADOQuery.Active
then ADOQuery.Active := false
ADOQuery. Clear;
Level:=ADOConnection1.BeginTrans;
try
//-------------------------
// Datenbankoperationen
//-------------------------
. . .
ADOQuery.Add('
Update ....
ADOQuery.Exceute
. . .
//-------------------------
//-------------------------
ADOConnection1.CommitTrans;
except
on E:Exception do
begin
ADOConnection1.RollbackTrans;
end;
end;//try
ADOQuery.Active := false;
ADOQuery. Clear;
end;
Grüße in die Runde // Martin