Transacciones DataSetProvider y ClientDataset

[pablonill]

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.

[pigu]

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.

[pablonill]

Muchisimas gracias maestro. Sos un grande.

[Patricio]

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?

[pablonill]

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.