34 replies to this topic

[enecumene]

¿Cual es la diferencia en activar y cerrar una transacción entre los componentes TFDConnection y TFDTransaction?, ¿Cual me recomiendan o qué momento debo utilizar cada uno?, ocurre que en mi aplicación siempre he usado el TFDTransaction sin problemas, hasta que ocurrió una situación y es cuando se hace uso del ApplyUpdates de un TClientDataset, al usar TFDTransaction.StartTransaction el ClientDataset nunca asume que la misma está activa (El típico error Transaction must be active), sin embargo, al usar StartTransaction directamente al TFDConnection todo fluye con normalidad sin problema alguno.

 

Saludos.

[Agustin Ortu]

Yo siempre he manejado transacciones usando los metodos de la clase TConnection. Ya sea para ADO, FireDAC o cualquier biblioteca

[santiago14]

Mmmmm. Lo natural sería que las transacciones sean manejadas por el componente "Transacción"
Es raro el error...


Enviado desde mi iPhone utilizando Tapatalk

[Agustin Ortu]

La documentacion explica, de una manera bastante chapucera, que TFDTransaction esta mas orientado para desarrollos con Interbase o Firebird, esto es porque estos DBMS soportan multiples transacciones. El componente permite conectar un determinado query o command con una transaccion particular

[enecumene]

Note: The use of the TFDTransaction component is optional in FireDAC

 

 

¿Y por qué FireDAC me obliga a usarla?, si es opcional no debería forzarnos a utilizarlo, ¿no?.

[Agustin Ortu]

Y en que momento te obliga a usarla? Yo jamas use un componente para transaccion porque no tuve la necesidad. Simplemente manejo todo con el componente Connection

[enecumene]

Me refiero a que hay que colocar un componente TFDTransaction, ya que cuando intentas conectarte al TFDConnection te pide que lo vincules con un TFDTransaction.

[Agustin Ortu]

No es necesario, como decia, nunca he usado el componente, ni en tiempo de diseño, ni creandolo en tiempo de ejecucion

[enecumene]

Retomo el tema con algo que tiene relación, leí en el doc de embarcadero, que hay que utilizar un TFDTransaction particular para cada operación, aquí estoy un poco confundido, porque estoy teniendo algunos problemas que creo que está relacionado con ellos, me explico, tengo esto (ejemplo):

delphi

Datos.dbDatos.StartTransaction; //Esto es un TFDConnection y tiene un TFDTransaction vinculado
if ID > 0 then begin
  GeneraOrden(ID); //No esta ligado a una transaccion,
  GuardaDetalles(ID); //No esta ligado a una transaccion,
  ActualizaStock(ID); //No esta ligado a una transaccion,
  ...
end;
Datos.dbDatos.Commit;

Mi pregunta es según la doc se le debe asignar un TFDTransaction a cada procedimiento ó función?, o sea,

delphi

Datos.dbDatos.StartTransaction; //Esto es un TFDConnection y tiene un TFDTransaction vinculado
if ID > 0 then begin
  GeneraOrden(ID); //Un TFDTransaction (trGeneracion), AutoCommit?
  GuardaDetalles(ID); //Un TFDTransaction (trDetalles), AutoCommit?
  ActualizaStock(ID); //Un TFDTransaction (trActualiza), AutoCommit?
  ...
end;
Datos.dbDatos.Commit;

¿Cómo lo hacen ustedes?

[santiago14]

Retomo el tema con algo que tiene relación, leí en el doc de embarcadero, que hay que utilizar un TFDTransaction particular para cada operación, aquí estoy un poco confundido, porque estoy teniendo algunos problemas que creo que está relacionado con ellos, me explico, tengo esto (ejemplo):

delphi

Datos.dbDatos.StartTransaction; //Esto es un TFDConnection y tiene un TFDTransaction vinculado
if ID > 0 then begin
  GeneraOrden(ID); //No esta ligado a una transaccion,
  GuardaDetalles(ID); //No esta ligado a una transaccion,
  ActualizaStock(ID); //No esta ligado a una transaccion,
  ...
end;
Datos.dbDatos.Commit;

Mi pregunta es según la doc se le debe asignar un TFDTransaction a cada procedimiento ó función?, o sea,

delphi

Datos.dbDatos.StartTransaction; //Esto es un TFDConnection y tiene un TFDTransaction vinculado
if ID > 0 then begin
  GeneraOrden(ID); //Un TFDTransaction (trGeneracion), AutoCommit?
  GuardaDetalles(ID); //Un TFDTransaction (trDetalles), AutoCommit?
  ActualizaStock(ID); //Un TFDTransaction (trActualiza), AutoCommit?
  ...
end;
Datos.dbDatos.Commit;

¿Cómo lo hacen ustedes?

 

Cómo lo uso yo...

Tengo un componente: TFDConnection --> se conecta a la BBDD

Tengo un componente: TFDTransaction --> asociado a TFDConnection

Ahora bien, tengo varios componente TFDQuery --> asociados a TFDTransaction (propiedad Transaction) y también asociados a TFDConnection (propiedad Connection)

 

Dentro de las Query's hago las SQL's que sean necesarias.

 

En el código siempre pongo:

delphi

TFDTransaction.StartTransaction;
//Las consultas que sean necesarias
 
TFDTransaction.Commit;

Espero haber sido claro.

 

Santiago

[enecumene]

Gracias santiago, originalmente lo tenía de esa forma, el problema que tenía era que al hacer commit a través del TFDTransaction los datos no se reflejaban sino hasta que se desconectara la BD, o sea, Cerrar el sistema, por eso lo hago con TFDConnection directamente, y segundo, al ser un sólo TFDTransaction, no sé si al usarlo en varios sitios al mismo tiempo provocaba un tranque, o que las mismas se quedaban en el limbo y la numeración de la orden no se reflejaba y más adelante es utilizado por otros movimientos, creando un caos de informaciones que se pierden en un determinado momento (Es un sistema multi-usuario en red), la verdad me tiene desconcertado el asunto.

 

Saludos.

[Agustin Ortu]

Habra que investigarlo, la documentacion no es del todo clara:

 

http://docwiki.embar...tions_(FireDAC)

 

 

Alternatively, the application can use the explicit transaction control. For this, use the TFDConnection methods StartTransaction, Commit, Rollback. An alternative to this is the use of the TFDTransaction component.

 

Note: The use of the TFDTransaction component is optional in FireDAC.

 

Ejemplo de la misma pagina en la documentacion del codigo "estandar" para manejo de transacciones:

delphi

FDConnection1.StartTransaction;
try
  FDQuery1.ExecSQL;
  ....
  FDQuery1.ExecSQL;
  FDConnection1.Commit;
except
  FDConnection1.Rollback;
  raise;
end;

Asi lo he hecho yo siempre con todas las distintas familias de componentes, jamas tuve un problema.

 

Nota sobre TFDTransaction, tambien del mismo link de arriba:

 

 

The TFDTransaction component wraps the transaction control functionality into a component. Practically, it offers the same transaction functionality as TFDConnection, but allows you to group commands and datasets by linking them to a specific transaction object. At first, this refers to the multiple active transactions support, that is the Interbase and Firebird server features.

 

Que es justamente lo que he dicho en las primeras respuestas del hilo, el TFDTransaction es para tener multiples transacciones activas al mismo tiempo y tener un par de queries/command con el TFDTransaction #1 y otro conjunto de queries y command asociados con el TFDTransaction #2, calculo que esto servira para incrementar performance cuando varios procesos se pueden ejecutar en paralelo (porque operan en distintas tablas, con distintos datos, etc)

 

http://docwiki.embar...ve_Transactions

 

 

 

Firebird and InterBase support multiple active transactions on the DBMS core level. This means that some commands may be performed in one transaction context, others in the second transaction context, and so on. To support this feature, FireDAC provides the TFDTransaction component. Its single instance allows you to handle single transactions at any given moment

 

No todas las BD soportan esto y por eso la doc. aclara que, en un principio, solo tiene sentido en Firebird e Interbase

 

---

 

Por otra parte:

 

http://docwiki.embar...tartTransaction

 

 

The StartTransaction call is the shortcut to Transaction.StartTransaction, if the Transaction property is assigned. Otherwise StartTransaction will operate on the default connection transaction.

 

En definitiva, FDConnection.StartTransaction == FDConnection.Transaction.StartTransaction. Probablemente el componente FDConnection cree la instancia del Transaction si esta es nil cuando llamamos a StartTransaction

[enecumene]

Gracias Agustín, por la aclaración, por ahí leí que los DataSets de FireDAC tienen dos propiedades para asignarles sus transacciones, como son TFDQuery1.Transaction y TFDQuery1.UpdateTransaction, lo estoy implementado desde hace días la forma en que presenta el ejemplo de la doc:

delphi

UpdateTransaction: TFDTransaction;
ReadTransaction: TFDTransaction;
...
// setup transaction for updating commands: read_committed, rec_version, nowait
UpdateTransaction.Connection := FDConnection1;
FDConnection1.UpdateOptions.LockWait := False;
UpdateTransaction.Options.ReadOnly := False;
UpdateTransaction.Options.Isolation := xiReadCommitted;
...
ReadTransaction.Connection := FDConnection1;
ReadTransaction.Options.ReadOnly := True;
ReadTransaction.Options.Isolation := xiReadCommitted;
...
SelectQuery.Transaction := ReadTransaction;
SelectQuery.UpdateTransaction := UpdateTransaction;

así que lo tengo así:

delphi

Datos.dbDatos.StartTransaction; //Esto es un TFDConnection y tiene un TFDTransaction vinculado
    if ID > 0 then begin
      GeneraOrden(ID); //Un TFDTransaction en UpdateTransaction (trGeneracion), AutoCommit
      GuardaDetalles(ID); //Un TFDTransaction en UpdateTransaction (trDetalles), AutoCommit
      ActualizaStock(ID); //Un TFDTransaction en UpdateTransaction (trActualiza), AutoCommit
      ...
    end;
    Datos.dbDatos.Commit;

Hasta ahora no se me ha presentado inconvenientes, y espero que siga así, dejadme explicarle mi situación, mi sistema tiene un módulo de almacén y se realizan constante salidas de partes e insumos, hay de 3 a 4 usuarios trabajando al mismo tiempo, sucede que, hasta cierto punto el número de salida que se genera se van guardando correctamente y despúes deja de guardarse aunque aparenta que todo está correcto, se genera la orden y se imprime la salida correctamente, pero se pierde esa información y luego de un momento a otro vuelve a guardarse los datos pero ocupando la continuidad de salidas que ya se hicieron, me explico:

 

ordenes no.

100

101

102

103

104 <---hasta aqui todo bien, se guarda la info en la BD

105 <---

106      |

107      | Esos aparentan estar correctos se imprime y todo pero no se guarda en la BD

108      | Y no marcan error alguno, es como que se quedaran esperando el commit,¿ WTF?

109 <---

110 <---

111      |

112      | Esos se supone serían la continuación, pero en realidad

113      | asumen la numeración anterior y sí se graban correctamente y los anteriores se pierden ¿DOBLE WTF?

114 <---

 

Espero que la implementación anterior sea la solución, y si alguien ha experimentado algo parecido por favor haganme saberlo.

 

Saludos.

[enecumene]

una aclaración, en los procedimientos y funciones dentro de StartTransaction y Commit de Datos.dbDatos, no incluían su propio StartTransaction y Commit, tal vez el problema venga por esos lados, pero ya les informo en un par de días.

[Agustin Ortu]

delphi

Datos.dbDatos.StartTransaction; //Esto es un TFDConnection y tiene un TFDTransaction vinculado
    if ID > 0 then begin
      GeneraOrden(ID); //Un TFDTransaction en UpdateTransaction (trGeneracion), AutoCommit
      GuardaDetalles(ID); //Un TFDTransaction en UpdateTransaction (trDetalles), AutoCommit
      ActualizaStock(ID); //Un TFDTransaction en UpdateTransaction (trActualiza), AutoCommit
      ...
    end;
Datos.dbDatos.Commit;

Si la transaccion inica correctamente, y dentro de los procedimientos GeneraOrden, GuardaDetalles y ActualizaStock no hay ningun "manejo raro" de transacciones, es decir, no haces commit ni nada, no deberia dar problemas (lo que comentaste ultimo indica que no tocas la transaccion ahi dentro)
 
Si tampoco hay excepciones no se me ocurre mucho mas a simple vista
 
A lo mejor sea cuestion de jugar con las propiedades de la Transaccion o de la Conexion (que en FireDAC hay millones de propiedades..)

[enecumene]

Se me ocurre también que podría que estoy creando los datasets en memoria, casi todos, o sea:

delphi

function GeneraOrden(const ADatos: TOrden): Integer;
var Query: TFDQuery;
begin
 
  Result := 0; 
 
  Query := TFDQuery.Create(nil);
  try
   Query.Connection := Datos.dbDatos;
   Query.UpdateTransaction := Datos.trGeneracion; //He agregado esta linea
   ...
   ...
   Result := Query.Fields[0].asInteger; 
  finally
   Query.free
  end;
end;

No sé si al liberar el objeto pueda afectar las transacciones ó el guardado de los datos al hacer commit.

[santiago14]

Gracias santiago, originalmente lo tenía de esa forma, el problema que tenía era que al hacer commit a través del TFDTransaction los datos no se reflejaban sino hasta que se desconectara la BD, o sea, Cerrar el sistema, por eso lo hago con TFDConnection directamente, y segundo, al ser un sólo TFDTransaction, no sé si al usarlo en varios sitios al mismo tiempo provocaba un tranque, o que las mismas se quedaban en el limbo y la numeración de la orden no se reflejaba y más adelante es utilizado por otros movimientos, creando un caos de informaciones que se pierden en un determinado momento (Es un sistema multi-usuario en red), la verdad me tiene desconcertado el asunto.

 

Saludos.

 

 

En este momento estoy al frente de una PC, viendo la ejecución de un software que tenemos aquí. 

Veo que hay 51 usuarios en simultáneo trabajando sin ningún problema. Si bien no es mucho, ayuda para entender eso de la simultaneidad. Aclaro que estoy usando Firebird 2.5 y FireDAC de Delphi XE5

En el caso de todos estos usuarios, cuando hacen Commit o Rollback, todos pueden ver los cambios inmediatamente después.

Transcribo un pedacito de código real de un módulo del software ese y pongo algunas aclaraciones:

delphi

procedure TfrmGestionSumarios.btnBuscarClick(Sender: TObject);
var
  fecha:TDate;
  estado, condicion_sumario:string;
begin
  fecha:=dtFechaSumario.Date;
  with DataModule1 do
  begin
    terminarTransaccion;
    try
      transaccion.StartTransaction;
      estado:='';
      condicion_sumario:=self.condicion_sumario(rgTipoSumario.ItemIndex);
      consultaSumario(gCodigo_Sucursal, fecha, qSumarios, estado, condicion_sumario);
      limpiarGrilla(gSumarios);
      cargarTStringGrid(gSumarios, qSumarios);
      txtCantidadAvisos.Text:=IntToStr(gSumarios.RowCount - 2);
      transaccion.Commit;
      gSumarios.SetFocus;
    except
      on e:Exception do
      begin
        terminarTransaccion;
        mErrores(e, 'La consulta no pudo realizarse', lblTituloGestionSumario.Caption);
      end;
    end;
  end;
end;

TerminarTransaccion:

delphi

procedure terminarTransaccion; overload;
begin
  with DataModule1 do
    if boletin.InTransaction then
      transaccion.Rollback;
end;

ConsultaSumario es la Consulta SQL.

transaccion es un TFDTransaction y está asociado a un TFDConnection como puse mas arriba.

qSumarios es un TFDQuery que está enganchado al TFDTransaction.

 

Es raro eso que se veían los cambios recién después de cerrar el sistema, tal vez tenga que ver con el nivel de aislamiento. Al respecto, en la propiedad Isolation de mi TFDTransaction tengo: Isolation = xiReadCommited

 

Pongo la función mErrores, tal vez te pueda servir para decirte de mejor manera que es lo que pasa.

delphi

procedure mErrores(e:FireDAC.Phys.IBWrapper.EIBNativeException; tituloErrorGeneral:string; subtitulo:string); overload;
begin
  case e.ErrorCode of
    335544352:
    begin
      Application.MessageBox(pchar('Lo siento, no tienes autorización para realizar esta acción.'
        + #13#10 + 'Mensaje: ' + e.message), pchar(subtitulo), MB_OK + MB_ICONERROR);
    end;
    335544665:
    begin
      Application.MessageBox(pchar('El registro que intentas ingresar ya existe (Violación de Clave primaria)'
        + #13#10 + 'Mensaje: ' + e.Message), pchar(subtitulo),MB_OK + MB_ICONERROR);
    end;
    335544472:
    begin
      Application.MessageBox('Nombre de Usuario y/o Contraseña son incorrectos',
        pchar(subtitulo),MB_OK + MB_ICONERROR);
    end;
  else
    Application.MessageBox(PWideChar(tituloErrorGeneral + #13#10 + 'Mensaje: ' + e.Message
      + #13#10 + 'Nro de Error: ' + intToStr(e.ErrorCode)),
      //+ #13#10 + 'SQL Code Error: ' + intToStr(e.sqlcode)),
      PWideChar(subtitulo),MB_OK + MB_ICONERROR);
  end; //del case
end;
 
procedure mErrores(e:Exception;tituloErrorGeneral:string;subtitulo:string); overload;
begin
  Application.MessageBox(PWideChar(tituloErrorGeneral + #13#10 + 'Mensaje: ' + e.Message),
    PWideChar(subtitulo), MB_OK + MB_ICONERROR);
end;

Espero haber ayudado.

[enecumene]

Gracias Santiago, la verdad no sé donde está mi problema, puede ser que existe alguna intermitencia en la red ó actividades paranormales, porque en principio estaba trabajando tal como lo presentas salvo lo de terminarTransaccion, reitero gracias.

[santiago14]

Gracias Santiago, la verdad no sé donde está mi problema, puede ser que existe alguna intermitencia en la red ó actividades paranormales, porque en principio estaba trabajando tal como lo presentas salvo lo de terminarTransaccion, reitero gracias.

 

Por nada compañero.

Un saludo.

[egostar]

[OFF TOPIC]

 

..... ó actividades paranormales, .....

 

 

Saludos