tratamento de erro com chave estrangeira.

Question

Bom dia gostaria de saber como tratar a mensagem de erro quando nao existe a chave estrangeira, ou seja em vez de aparecer aquela mensagem em Ingles, gostaria que tratar para aparecer em portugues.ten...

Quartieri · Answer

try
ExecSQL;
except
on E: exception do
begin
if Pos(�FK�,E.message) > 0 then
Application.MessageBox(�Registro com relacionamento em outras tabelas. N�o � poss�vel excluir.�,�Aten��o�,mb_Ok+mb_DefButton1+mb_iconExclamation);
end;
end;

Ciotti · Answer

ola amigo gostaria de saber onde eu coloco esse codigo , e no evento do botao onclick ou nao?valew!...

Ciotti · Answer

eu coloquei  essa instrucao no OnPostError do clientdataset mas deu erro na linhaExecSQL;o que tenho que fzer para corrigir esse erro?valeu....

Quartieri · Answer

no caso, eu uso esse codigo numa ADOquery, num client data set n�o vai funcionar mas coloque tudo num bloco try except se der erro verifique se ele tem �FK� da seguinte forma �if Pos(�FK�,E.message) > 0 then�
ai vc determina a a��o a ser tomada no casso de erro.

Techsoft · Answer

Ol�, j� tentou usar o ReconcileError? eu geralmente utilizo o reconcile error para exibir poss�veis erros para o usu�rio quando estes acontecem.

Usando o reconcile error eu fa�o o seguinte, no OnReconcileError do ClientDataSet coloco:

  if pos(�foreign key�, E.Message) > 0 then
    MessageDlg(�Registro com refer�ncia em outras tabelas.�
      +#13+10+�N�o poder� ser exclu�do.�, mtError, [mbOK], 0)
  else
    Action := HandleReconcileError(DataSet, UpdateKind, E);

F�rum tratamento de erro com chave estrangeira. #335023