Traduzir Erro de Foreign Key

Question

quando temos um campo com primary key no banco e ele � violado pela aplica��o � exibida uma mensagem de key violation e eu uso um c�digo bem conhecido para traduzir essa mensagem[code:1:06f0974ace]Err...

Afarias · Answer

[code:1:59c68aee60]if Pos(�FOREIGN KEY�, E.Message) > 0 then begin   ShowMessage(�Erro de CE�);   Action := daAbort;end;[/code:1:59c68aee60]T+...

Tap_pedroso · Answer

esse c�digo eu coloco no evento onposterro do ibdataset cetro?...

Sremulador · Answer

Amigo utilize o componente TapplicationEvent que voc� pegara todos os erros e tratar do geito que quiser, aquase todos :(...

Tap_pedroso · Answer

bom vc ter lembrado do tapplicationevents eu utilizo ele para pegar hints e jogar no statusbar. mas e da� eu utilizo o c�digo que o afarias me passou no evento onmessage do applicationevents?...

Afarias · Answer

use em qualquer lugar (de sua prefer�ncia) q tiver �acesso� � exce��o! Try/Except, Application.OnExepion, OnPostError, o q for!T+...

Tap_pedroso · Answer

blz deu certo o e.message agora queria saber se tem como eu capturar o nome da chave estrangeira na hora do erro para eu indicar ao usuario qual campo est� incorreto. Na mensagem de erro que aparece na aplica��o quando n�o est� tratada o erro mostra o nome do foreign key ex: fkteste.

valeu amigo :lol:

Afarias · Answer

a mesagem � no formato::violation of FOREIGN KEY constraint: ��pegue o nome que est� ai entre aspas (�) ap�s os dois-pontos (:)T+...

Tap_pedroso · Answer

eu coloquei da maneira q vc me passou e n�o deu eu tive que colocar assim para dar certo:

     if Pos(�FOREIGN KEY�, E.Message) > 0 then
      begin
      ErroMens := E.Message;
      if ErroMens = �violation of FOREIGN KEY constraint "FKPRODVERSAO" on table "TABVERSAO"� then
        begin
          messagedlg(�Aten��o: Ocorreu um Erro de Viola��o de Chave Estrangeira.�+
          � Voc� Tentou Adicionar na Vers�o um Produto �+
          �que n�o est� Cadastrada no Sistema. Verifique os Dados do Produto e Tente �+
          �Salvar Novamente.�,mterror,[mbok],0);
        end;
      if ErroMens = �violation of FOREIGN KEY constraint "FKRNVERSAO" on table "TABVERSAO"� then
        begin
          messagedlg(�Aten��o: Ocorreu um Erro de Viola��o de Chave Estrangeira.�+
          � Voc� Tentou Adicionar na Vers�o uma Regra de Neg�cio �+
          �que n�o est� Cadastrada no Sistema. Verifique os Dados da Regra de Neg�cio e Tente �+
          �Salvar Novamente.�,mterror,[mbok],0);
        end;
        Action := daAbort;
      end;

Afarias · Answer

MENSAGEM = �violation of FOREIGN KEY constraint �NOME_CHAVE� on table �NOME_TABELA��

var
  Texto, NomeChave, NomeTabela: string;
begin
  Texto := E.message; 

  Delete(Texto, 1, Pos(�"�, Texto));
  NomeChave := Copy(Texto, 1, Pos(�"�, Texto)-1);

  Delete(Texto, 1, Pos(�"�, Texto));
  Delete(Texto, 1, Pos(�"�, Texto));
  NomeTabela := Copy(Texto, 1, Pos(�"�, Texto)-1);

end;

T+

F�rum Traduzir Erro de Foreign Key #47573