Duda de primaria..., ¿es posible y válida una estructura así?

[TiammatMX]

¡Hola!

De repente me surgió una duda de niño de 7 años..., ¿es posible y válida para Delphi una estructura de control como ésta?

Código Delphi [-]
try
   .
   .
   .
   for i := 0 to 'n' do
   begin
      .
      .
      .
      Insert TADOQuery;
   end;
   Commit;

except
   Rollback;
end;

El punto es que requiero añadir a una tabla una serie de datos tomados de una matriz en memoria, PERO EN CASO DE FALLA que todos los datos ingresados en la tabla SE REVIERTAN y la tabla quede como estaba antes de entrar a éste proceso...

[[duilioisola]]

Solo tienes que explícitamente iniciar y finalizar la transacción.

Código Delphi [-]
procedure TDMMain.InsrtaElementos;
var
   Q: TSQLQuery;
   T: TDBXTransaction;
begin
   Q := TSQLQuery.Create(nil);
   with Q do
   begin
      try
         try
            T := BaseDeDatos.BeginTransaction;
            SQLConnection := BaseDeDatos;
            SQL.Text := 'INSERT INTO TABLA (???) VALUES (???)';
            for i := 0 To n do
            begin
               ParamByName('???').AsInteger := ???;
               ExecSQL;
            end;
            BaseDeDatos.CommitFreeAndNil(T);
         except
            BaseDeDatos.RollbackFreeAndNil(T);
         end;
      finally
         Free;
      end;
   end;
end;

[TiammatMX]

Empezado por duilioisola

Solo tienes que explícitamente iniciar y finalizar la transacción...

Por descontado que sí..., me interesaba mucho éste punto de "try...except" y el "for... to..." interno para generar mi inserción en la tabla de MS SQLServer 2008 R2.

[Neftali [Germán.Estévez]]

Empezado por tiammat

¡Hola!

De repente me surgió una duda de niño de 7 años..., ¿es posible y válida para Delphi una estructura de control como ésta?

Yo no le veo ningún problema.

[Ñuño Martínez]

No sólo no debería haber problemas, como dice Neftali: Es que debería hacerse siempre así. Si no recuerdo mal, así se explica en "La Cara Oculta de Delphi", o quizá fue en otro libro.

La cuestión es que, si hay un error, entonces se debería "rollbackear" la transacción para evitar problemas ulteriores (corrupción de datos, actualizaciones incompletas, etc). El uso de "TRY .. EXCEPT .. END;" es, entonces, de uso obligado.

Otro tema es decidir dónde poner el bloque "TRY .. EXCEPT", si dentro o fuera del bucle. Supongo que depende de dónde haces el Committeo.

[pacopenin]

Empezado por Ñuño Martínez

No sólo no debería haber problemas, como dice Neftali: Es que debería hacerse siempre así. Si no recuerdo mal, así se explica en "La Cara Oculta de Delphi", o quizá fue en otro libro.
Committeo.

Totalmente de acuerdo.

[mamcx]

Seria interesante saber porque te surgió la duda.

[TiammatMX]

Empezado por mamcx

Seria interesante saber porque te surgió la duda.

Por que tengo una función que es llamada en caso de agregarse un nuevo registro, y dentro de ésta función se añaden registros a otra tabla, una especie de bitácora.

Y de ahí, si todo es correcto, se le hace un "commit" a todos los registros recientemente añadidos, o en caso contrario, se revierte el proceso. Mi duda en concreto se centraba en que si la transacción TAMBIÉN abarcaba a los registros añadidos vía la función y los considera dentro del proceso del commit/rollback, y después de un tiempo corriendo para probarla, puedo decir que sí, los considera y los procesa como si estuviesen dentro del try mismo.

Gracias a todos por sus esclarecedoras respuestas.