Deadlock

Question

Tenho uma aplica��o que grava em uma tabela de controle de apenas 1 registro, grava informa��es gerencias tais como nome da empresa, endere�o, nro.de acessos, entrada e sa�da do sistema, nro.de usu�ri...

Adilsond · Answer

O deadlock est� ocorrendo porque a primeira aplica��o efetuou um post na tabela, mas n�o efetuou o commit para libera-la. Qdo o segundo aplicativo for atualizar esta tabela, esta estara bloqueada, aguardando o commit.

Fernando Marroco · Answer

Caro amigo estou testando em dois terminais o primeiro que entra, grava com o post e executa o commit logo em seguida veja a rotina....

with dmSenhas do begin
bd.StartTransaction;
try
with dmSenhas.qryControle_Geral do
begin
close;
if not prepared then prepare;
open;
edit;
qryControle_Geralentrada_ok = �S�;
qryControle_Geralsaida_ok = �N�;
post;
end;

bd.Commit;
except
on E:EDataBaseError do begin
bd.Rollback;
showError( E );
abort;
end;

o segundo terminal entra faz a mesma rotina (logico ne�) e grava normal sai normal gravando da mesma forma a mesma rotina de saida.

with dmSenhas do begin
bd.StartTransaction;
try
with dmSenhas.qryControle_Geral do
begin
close;
if not prepared then prepare;
open;
edit;
qryControle_Geralentrada_ok = �N�;
qryControle_Geralsaida_ok = �S�;
post;
end;

bd.Commit;
except
on E:EDataBaseError do begin
bd.Rollback;
showError( E );
abort;
end;

S� que na hora da sa�da do primeiro terminal que entrou no sistema ele da a seguinte mensagem:
A DEADLOCK WAS DETECTED

DEADLOCK UPDATE CONFLICTS WITH CONCURRENT UPDATE

no primeiro terminal que entrou ??????? porque o que esta de errado?????
ser� que � algum problema de configura��o do INTERBASE ou do BDE?????? ser� que tenho que acrescentar algum comando quando eu STARTO UMA TRANSA��O.... ????? me ajude por favor tenho que entregar esse sistema meu emprego depende disso??????? estou desesperado!!!!!!

Adilsond · Answer

Qual o TransIsolation que estas utilizando em seu TDatabase???

Outra coisa, experimente fechar sua query.

begin
  with dmSenhas do
    begin
      bd.StartTransaction;
      try
        with dmSenhas.qryControle_Geral do
          begin
            if Active then
               Close;
            if not Prepared then
               Prepare;
            Open;
            Edit;
            qryControle_Geralentrada_ok.Value := �S�;
            qryControle_Geralsaida_ok.Value := �N�;
            Post;
            bd.Commit;
            Close;
          end;
      except
        on E:EDataBaseError do
          begin
            bd.Rollback;
            ShowError(E);
            qryControle_Geral.Close;
            Abort;
          end;
      end;
    end;
end;

Fernando Marroco · Answer

Caro amigo utilizo o READCOMMITTED....

F�rum Deadlock #187014