11 respuestas en este tema

[marcosp]

Hola gente!
He buscado por internet informacion sobre esto, y encontre, pero no pude resolver este problema.
Tengo una base de datos firebird centralizada a la cual se accede desde un sistema que esta instalado en otras dos computadoras.
El problema es cuando la 'computadora2' intenta actualizar un registro en la base de datos que ya ha actualizado la 'computadora1'.
Me tira el siguiente error:

delphi

DeadLock
update conflicts with concurrent transactions update

Este conflicto se da cuando una transaccion intenta escribir sobre un registro que esta siendo utilizado por otra transaccion.

El siguiente es el codigo que utilizo para los abm de las tablas

delphi

procedure TDMCon.abm(SQL: string);
begin
  sqlcons.Transaction:=self.transaccion;
  sqlcons.SQL.Clear;
  sqlcons.SQL.Text:=SQL;
  try
    sqlcons.ExecSQL;
    transaccion.Commit;
    sqlcons.close;
  Except
    showmessage('No se pudo realizar la transaccion con la base de datos');
  end;
end;

El tema es que la primer transaccion (computadora1) ya a realizado los cambios en la base de datos y deberia estar cerrada (transaccion.Commit), por lo tanto la segunda transaccion (computadora2) no tendria que tener problemas en utilizar dicho registro.

Espero que se entienda lo que trate de preguntar jeje..

bueno, gracias de antemano.. saludos!

[mightydragon_lord]

asegurate que la transacción tenga la propiedad action en caCommit y que se encuentre activa, saludos.

[marcosp]

si, la transaccion esta activa y action=caCommit..

Segun estuve leyendo, al realizar el commit de una transaccion, esta confirma el update de los datos en la base de datos y se cierra. Pero, aparentemente, en mi caso sigue abierta (activa) y por eso ocurre el conflicto de concurrencia.

No puedo encontrarle la vuelta.

[mightydragon_lord]

regalanos todas las propiedades que tienes configuradas en los controles de acceso a datos, es probable que algo esté causando esto, como opr ejemplo los params de la conexión.

[marcosp]

Tengo los componentes de bases de datos en un DataModule

La conexion a la base de datos la realizo al iniciar el sistema con el siguiente procedimiento

delphi

function TDMCon.ini_con(bd: string):boolean;
var
  ini:TIniFile;
begin
  ini:=TIniFile.Create(ExtractFilePath(application.ExeName)+'/app.ini');
  conexion.HostName:=ini.ReadString('servidor','nombre','0');
  conexion.DatabaseName:=ini.ReadString('servidor','ruta','0')+bd;
  conexion.UserName:='sysdba';
  conexion.Password:='masterkey';
  conexion.LoginPrompt:=false;
  ini.Free;
  try
    conexion.Open;
    result:=true;
  except
    result:=false;
  end;
end;               

Las consultas a la base de datos (solo lectura) con

delphi

procedure TDMCon.consulta(SQL: string);
begin
  sqlcons.Transaction:=self.transaccion;
  sqlcons.SQL.Clear;
  sqlcons.SQL.Text:=SQL;
  try
    sqlcons.Open;
  except
    showmessage('No se pudo realizar la consulta a la base de datos.');
  end;
end;

Cada vez que realizo una de estas consultas, luego la cierro con

delphi

procedure TDMCon.cerrarconsulta();
begin
  sqlcons.Close;
end;

Y las consultas de escritura (insert, update y delete) con

delphi

procedure TDMCon.abm(SQL: string);
begin
  sqlcons.Transaction:=self.transaccion;
  self.transaccion.Active:=true;
  sqlcons.SQL.Clear;
  sqlcons.SQL.Text:=SQL;
  try
    sqlcons.ExecSQL;
    transaccion.Commit;
    sqlcons.close;
  Except
    showmessage('No se pudo realizar la transaccion con la base de datos');
  end;
end;

Propiedades de la conexion (TIBConexion):
Se los paso en tiempo de ejecucion con el procedimiento ini_con(db:string) de arriba

Propiedades de la transaccion (TSQLTransaction):
Action=caCommit;
Params=
  wait
  rec_version
  read_commited
(Tambien probe sin ningunos de estos parametros)

Propiedades de la consulta (TSQLQuery):
Tienen los valores predeterminados, salvo 'AutoCalcFields' que esta como False (no se que sera esto, pero aparece 'False' en negrita, lo que significa que no es el valor predeterminado)

[mightydragon_lord]

Prueba por favor quitando el contenido de la propiedad params del TIBConnection, actualmente yo las dejo vacías y no me presenta problema alguno, casualmente cuando haces lo mismo con FlameRobin, genera error en la aplicación si la transacción no se ha confirmado en FlameRobin, nunca encontré el por que, pero cuando lo he hecho entre aplicaciones únicamente no me falla, casualmente nunca lleno los params y dejo el Transaction como lo tienes, saludos.

[marcosp]

si si.. ya he probados sin esos parametros.. Primeramente me daba este error de concurrencia de transacciones sin tener esos parametros. Despues de buscar por todos lados en internet, decidi probarlos pero tampoco funciono

[marcosp]

Ya he solucionado el problema!!

Pasandole un parametro al componente 'transaccion' de la siguiente manera:

delphi

  transaccion.Params.Text:='isc_tpb_read_committed';

El parametro que le pasaba como 'read_commited' en realidad es 'isc_tpb_read_committed'.

Para el que le interese este tema, las dos paginas que me ayudaron son:
http://wiki.freepasc...Client.2Fserver
y
http://conferences.e...m/article/32280

mightydragon_lord gracias por responder a mi consulta!!

Saludos!

[mightydragon_lord]

Me alegra que hayas encontrado el problema =).

Saludos.

[Delphius]

Hola,
marcosp he editado tus mensajes para darle la etiqueta correspondiente. Te voy a pedir que utilices la etiqueta delphi en cuanto coloques código delphi y la etiqueta code. Contamos con variadas etiquetas: delphi, php, c++, c#, asm, sql.

Saludos,

[Delphius]

Respecto al problema que tuviste no está precisamente en el read commited sino más bien en la combinación con wait. El dead lock se da porque dos o más transacciones se quedan esperando a que la otra termine y confirme. Como ambas transacciones se quedan esperando en un ciclo vicioso el motor lo detecta y lanza la advertencia. La solución que tiene es matar a una de ellas.

Recomiendo la lectura del artículo Transacciones disponible en la sección de descargas que explica el uso y configuración de los niveles de aislamiento y sobre el manejo de las transacciones.

Saludos,

[Nikolas]

Ya he solucionado el problema!! Pasandole un parametro al componente 'transaccion' de la siguiente manera:

delphi

  transaccion.Params.Text:='isc_tpb_read_committed';

gracias, otro problema solucionado.