Transacciones DataSetProvider y ClientDataset
 

Hola, que tal, yo aqui de vuelta, les hago una pequeña y gran consulta.

Si bien los DataSetProviders generan las transacciones implicitamente, lo que necesito es saber como puedo hacer porque tengo dos tablas y necesito que se actualizen dentro de una transaccion, el tema es como puedo actualizar ambas tablas seguras y si da algun error poder hacer un rollback, espero que haber sido claro, muchas gracias.

Transacciones
 

Hola pablonill:

Mira, si usas componentes Ado debes hacer asi:

Código Delphi [-]
procedure guardar;
var vError: integer;
begin
   try
      AdoConnection.BeginTrans;
      DatasetProviders.ApplyUpdates(ClientDataSet.Delta, 0, vError);
      AdoConnection.CommitTrans;
   except
   on E: Exception do
   begin
      AdoConnection.RollbackTrans;
      MessageBox(PChar(E.Message), 'Error al guardar', MB_OK + MB_ICONERROR)
   end;
end;

Espero te sirva de ayuda.

Muchisimas gracias maestro. Sos un grande.

y si fueran los componentes de interbase
 

hola te hago una consulta voy a empezar con delphi 7 y con Firebird 2.0 con los compoenentes de interbase q vienen por defecto, como seria el codigo q pusiste con los compoenetes ado pero con los componentes de interbase.
Se pueden usar esos componentes ado para la base firebird?

Hola, te comento que uso delphi 2009 no es el mismo procedimiento que para delphi 7. Pero te puede orientar.

Código Delphi [-]
var
  TD: TDBXTransaction;
begin
  try
    TD := DM.Conexion.BeginTransaction(TDBXIsolations.ReadCommitted);
 
    //Aqui todo el procedimiento de actualizacion de datos
   
   
    DM.Conexion.CommitFreeAndNil(TD);
 
    except

      On e:Exception do
      begin
        DM.Conexion.RollbackFreeAndNil(TD);
        raise;
      end;
end;

Espero que te sirva, saludos.