Bloqueando edição de registro em rede
Olá pessoal,
Tenho um sistema com base de dados MySQL e preciso saber como faço para bloquear um determinado registro caso um outro usuário estiver utilizando-o.
Vocês poderiam me ajudar?
Grato,
Ilano.
Tenho um sistema com base de dados MySQL e preciso saber como faço para bloquear um determinado registro caso um outro usuário estiver utilizando-o.
Vocês poderiam me ajudar?
Grato,
Ilano.
Ilanocf
Curtidas 0
Respostas
Ilanocf
21/05/2004
Tentei isto:
Mas não deu certo. Alguém tem uma dica melhor?
procedure TDMDados.TBCursosEditError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
Var
wErro, wRet: Word;
begin
If E is EDBEngineError Then
Begin
wErro:=(E as EDBEngineError).Errors[1].ErrorCode;
If (wErro = 10241) Then
Begin
wRet:=Application.MessageBox(´Outro usuário está editando este registro!´+#13+´Tentar novamente?´,´ARENÇÃO´, MB_YESNO + MB_ICONQUESTION);
If wRet = IDYes Then
Action:=daRetry
Else
Action:=daAbort;
DMDados.TBCursos.Refresh;
End;
End;
end;
Mas não deu certo. Alguém tem uma dica melhor?
GOSTEI 0