Código Delphi [-]va Level: integer; begin Level:= Conexion.BeginTrans; try // Hacer Algo.. con las tablas.. Actualizar, Adicionar, Eliminar Conexion.CommitTrans; except on E:Exception do Conexion.RollbackTrans; end//try end;
va Level: integer; begin Level:= Conexion.BeginTrans; try // Hacer Algo.. con las tablas.. Actualizar, Adicionar, Eliminar Conexion.CommitTrans; except on E:Exception do Conexion.RollbackTrans; end//try end;