Hola
Digamos que tienes un adoQuery y quieres borrar ciertos datos (mas o menos como tu ejemplo):
Las Transacciones se hacen sobre el
ADOConnection, algo asi (suponiendo que el adoconnection este en el datamodule):
Código Delphi
[-]
procedure TfrmMain.Button1Click(Sender: TObject);
begin
DataModule1.AdoConnection1.BeginTrans; try AdoQuery1.sql.text:= 'DELETE * FROM TABLA1 where micampo = :Midato'; AdoQuery1.Parameters[0].value:= tudato; AdoQuery1.ExecSQL; DataModule1.AdoConnection1.CommitTrans; end;
except on E:Exception do DataModule1.AdoConnection1.RollbackTrans; MessageDlg('No fue posible completar la transacción',mtError,[mbOK],0); end;
Creo que esta claro, si tienes dudas avisa.
Saludos