Código Delphi [-] try database1.starttransaction; { Aquí realizas el update o insert o lo que sea. } database1.commit; except On E: Exception do begin database1.rollback; ShowMessage('Error:' + chr(13) + E.Message); exit; end; end;
try database1.starttransaction; { Aquí realizas el update o insert o lo que sea. } database1.commit; except On E: Exception do begin database1.rollback; ShowMessage('Error:' + chr(13) + E.Message); exit; end; end;