6 replies to this topic

[look]

Hola amigos, tengo un problema con las transacciones:

delphi

if not (XssDM.MainTS.InTransaction) then
    XssDM.MainTS.StartTransaction;
  try
 
    //// aqui instrucciones de insert y update lo usual
 
    XssDM.MainTS.Commit;
  except
    on E: Exception do
    begin
      XssDM.MainTS.Rollback;
      ERRO_MSG := E.Message;
      MessageDlg(PCHAR('Ocurrio un error.' + #13 + E.MESSAGE), mtInformation, [mbOK], 0);
      lblHINT.Caption := 'Ocurrio un error al generar la transaccion...';
      lblHINT.Font.Color := clRed;
      exit;
    end;
  end;

el problema que tengo es que no detecta la instruccion InTransaction, si en dos computadoras ejecutan esa instruccion casi al mismo tiempo, la transaccion genera el deadlock, porque no espera a que la transaccion termine.,

 

estoy utilizando los componentes de interbase.

 

Saludos!

[egostar]

Hola amigos, tengo un problema con las transacciones:

delphi

if not (XssDM.MainTS.InTransaction) then
    XssDM.MainTS.StartTransaction;
  try
 
    //// aqui instrucciones de insert y update lo usual
 
    XssDM.MainTS.Commit;
  except
    on E: Exception do
    begin
      XssDM.MainTS.Rollback;
      ERRO_MSG := E.Message;
      MessageDlg(PCHAR('Ocurrio un error.' + #13 + E.MESSAGE), mtInformation, [mbOK], 0);
      lblHINT.Caption := 'Ocurrio un error al generar la transaccion...';
      lblHINT.Font.Color := clRed;
      exit;
    end;
  end;

el problema que tengo es que no detecta la instruccion InTransaction, si en dos computadoras ejecutan esa instruccion casi al mismo tiempo, la transaccion genera el deadlock, porque no espera a que la transaccion termine.,
 
estoy utilizando los componentes de interbase.
 
Saludos!

 

 
Hola look, me parece que te da el error porque se ejecuta el bloque Try..Except con una transacción abierta por otro proceso. Es decir, debes asegurar que solo la transación que estás iniciando sea la que inserte o actualice tus datos.
 
 

delphi

if not (XssDM.MainTS.InTransaction) then
begin
  XssDM.MainTS.StartTransaction;
  try
   
    //// aqui instrucciones de insert y update lo usual
 
 
    XssDM.MainTS.Commit;
  except
    on E: Exception do
    begin
      XssDM.MainTS.Rollback;
      ERRO_MSG := E.Message;
      MessageDlg(PCHAR('Ocurrio un error.' + #13 + E.MESSAGE), mtInformation, [mbOK], 0);
      lblHINT.Caption := 'Ocurrio un error al generar la transaccion...';
      lblHINT.Font.Color := clRed;
      exit;
    end;
  end;
end;

Pero más allá, deberías revisar porque traes una transacción abierta antes de hacer el INSERT/UPDATE.

Saludos

[look]

 
Hola look, me parece que te da el error porque se ejecuta el bloque Try..Except con una transacción abierta por otro proceso. Es decir, debes asegurar que solo la transación que estás iniciando sea la que inserte o actualice tus datos.
 
 

delphi

if not (XssDM.MainTS.InTransaction) then
begin
  XssDM.MainTS.StartTransaction;
  try
   
    //// aqui instrucciones de insert y update lo usual
 
 
    XssDM.MainTS.Commit;
  except
    on E: Exception do
    begin
      XssDM.MainTS.Rollback;
      ERRO_MSG := E.Message;
      MessageDlg(PCHAR('Ocurrio un error.' + #13 + E.MESSAGE), mtInformation, [mbOK], 0);
      lblHINT.Caption := 'Ocurrio un error al generar la transaccion...';
      lblHINT.Font.Color := clRed;
      exit;
    end;
  end;
end;

Pero más allá, deberías revisar porque traes una transacción abierta antes de hacer el INSERT/UPDATE.

Saludos

 

Gracias amigo, pero el problema sigue. no se que podra ser, tendra que ver el dialieto de la base?.

es como que no detectara que hay otra computadora en transaccion y que debe esperar a que esa termine para continuar el proceso...

[Delphius]

Hola Look,

No se que componentes estás empleando, pero deberías empezar a fijarte que parámetros están seteados para la transacción.

Justamente el Deadlook se produce cuando 2 o más transacciones están esperando el cierre de la otra. El uso del parámetro WAIT en la transacción podría conducir a eso.

 

Si nos dices que componentes usas, y la configuración que le estableciste podríamos tener una mejor idea del problema.

Saludos,

[look]

Hola Look,

No se que componentes estás empleando, pero deberías empezar a fijarte que parámetros están seteados para la transacción.

Justamente el Deadlook se produce cuando 2 o más transacciones están esperando el cierre de la otra. El uso del parámetro WAIT en la transacción podría conducir a eso.

 

Si nos dices que componentes usas, y la configuración que le estableciste podríamos tener una mejor idea del problema.

Saludos,

 

Hola amigo, estoy utilizando FireDac

[Delphius]

Yo aún ando familiarizandome con FireDAC pero vamos a hacer un esfuerzo para ver donde está el problema.

 

Te faltó la segunda parte de la respuesta, que es tan importante como la primera: decir como tienes configurado los componentes.

 

En buena parte, el problema podría estar en TFDTransaction. Empecemos a centrarnos en éste.

¿Cómo tienes configurado tu/s TFDTransaction? ¿En Isolation que valor tienes asignado? ¿Que parámetros adicionales tienes en Params? ¿Las propiedades AutoCommit, AutoStart y AutoStop están en true?

 

Cuanto más nos puedas decir sobre la configuración de dichos componentes, mas fácil será llegar al problema. Y quizá hasta se podría reproducirlo.

 

Saludos,

[look]

Yo aún ando familiarizandome con FireDAC pero vamos a hacer un esfuerzo para ver donde está el problema.

 

Te faltó la segunda parte de la respuesta, que es tan importante como la primera: decir como tienes configurado los componentes.

 

En buena parte, el problema podría estar en TFDTransaction. Empecemos a centrarnos en éste.

¿Cómo tienes configurado tu/s TFDTransaction? ¿En Isolation que valor tienes asignado? ¿Que parámetros adicionales tienes en Params? ¿Las propiedades AutoCommit, AutoStart y AutoStop están en true?

 

Cuanto más nos puedas decir sobre la configuración de dichos componentes, mas fácil será llegar al problema. Y quizá hasta se podría reproducirlo.

 

Saludos,

Asi amigo: