Delphi 6 com Interbase - Lock de Registro
:?:
Olá, estou com o seguinte problema, preciso travar um registro quando ele for editado para outro usuário não poder editar o mesmo registro, estou usando o delphi 6 e o Firebird.
Já tentei iniciar uma nova transação e deixá-la em aberto mas o segundo quando tenta acessar fica travado esperando o primeiro dar commit ou rolback, alguém sabe como travar o registro com Interbase ????
Muito Obrigado !
Ricardo
voodoorv@uol.com.br
Olá, estou com o seguinte problema, preciso travar um registro quando ele for editado para outro usuário não poder editar o mesmo registro, estou usando o delphi 6 e o Firebird.
Já tentei iniciar uma nova transação e deixá-la em aberto mas o segundo quando tenta acessar fica travado esperando o primeiro dar commit ou rolback, alguém sabe como travar o registro com Interbase ????
Muito Obrigado !
Ricardo
voodoorv@uol.com.br
Anonymous
Curtidas 0
Respostas
Anonymous
05/03/2003
Tente assim:
-Dê duplo clique sobre o componte IbTransation
-Selecione a opção READCOMMITEDD (ou algo parecido)
-Na mesma janela, retire a instrução NOWAIT
-No código que contêm o edit, experimente:
TRY
TABELA.EDIT;
TABELA.POST;
EXCEPT
SHOWMESSSAGE(´REGISTRO UTILIZADO POR OUTRO USUÁRIO´)
ABORT;
END;
TABELA.EDIT;
-Dê duplo clique sobre o componte IbTransation
-Selecione a opção READCOMMITEDD (ou algo parecido)
-Na mesma janela, retire a instrução NOWAIT
-No código que contêm o edit, experimente:
TRY
TABELA.EDIT;
TABELA.POST;
EXCEPT
SHOWMESSSAGE(´REGISTRO UTILIZADO POR OUTRO USUÁRIO´)
ABORT;
END;
TABELA.EDIT;
GOSTEI 0