Erro de Foreign Key

Question

Oi, no IBDataSet existe o envento OnDeleteError, como eu fa�o para saber que o erro � por causa que aquele registro est� com erro de chave estrangeira?...

Delphi32 · Answer

Tanto o evento OnDeleteError quanto o OnPostError exp�em uma vari�vel [b:7fe73e6d50]E[/b:7fe73e6d50] do tipo [b:7fe73e6d50]EDatabaseError[b/]. Por ser derivada de uma [b]Exception[/b:7fe73e6d50] possui o atributo [b:7fe73e6d50]Message[/b:7fe73e6d50]. Teste o conte�do desse atributo para saber o erro gerado. Exemplo:

if E.Message=�Key violation.� then
ShowMessage(�Viola��o na chave prim�ria�);

Para saber qual mensagem � gerada em um determinado erro eu normalmente for�o o erro a acontecer e salvo a string com a mensagem em algum lugar para poder colar no c�digo. Deve haver no c�digo da VCL um arquivo de constantes com essas mensagens, mas eu nunca procurei.

Obs.: Se n�o estou enganado a mensagem de erro de chave estrangeira exibe o nome da chave. Voc� pode aproveitar parte da mensagem e mudar a compara��o no c�digo de �=� para �Pos(x, y)>=1�.

Qualquer coisa, volte a postar.

t+!

Noenxe · Answer

Obrigado, fiz com base no que voc� falou um fun��o que me �traduz� o erro.

function verificaErro(Erro: String):String;
begin
  result:= Copy(Erro,0,24);
end;

if (verificaErro(E.Message) = �violation of FOREIGN KEY�) then
  begin
    MessageDlg(�Est� sendo usada, n�o pode ser removida;.�,mtError,[mbOK],0);
    Abort;
  end;

F�rum Erro de Foreign Key #356634