erro de chave estrangeira, como mudar a mensagem?

Question

Bom dia estou com uma dificuldade, gostaria de mudar o erro que aparece de chave estrangeira que esta em portugues para Eng. alguem saberia me informar como faco isso de uma forma simples .

obrigado a todos.

Ciotti · Answer

so lembrando estou usando banco de dados firebird com ibexpert....

Eurismar · Answer

Se estiver utilizando ClientDataSet, vc pode tratar o erro no evento ReconcileError. exemplo:

procedure TForm1.ClientDataSet1ReconcileError(
DataSet: TCustomClientDataSet; E: EReconcileError;
UpdateKind: TUpdateKind; var Action: TReconcileAction);
begin
if Pos(�violation of FOREIGN KEY�,E.Message) > 0 then
begin
ShowMessage(�sua mensagem�);
Action := raAbort;
end;
end;

Ciotti · Answer

ola amigo nao consegui pq esta dando erro no showmessage, nao consigo trazer essa opcao. vc sabe pq? valew cara....

Eurismar · Answer

Qual o erro que est� dando no showmessage, e qual componente de acesso a dados vc est� utilizando ? (ClientDataSet,Query...)...

Dbergkamps10 · Answer

para usar o show message vc deve add [code:1:1e1867e45b]Dialogs[/code:1:1e1867e45b] na clausula uses.Att Dalton...

Ciotti · Answer

ola amigo fiz o teste joguei o Dialogs nao tive problema mais com o showmessage, entao inserir o codigo e simulei alguns erros mas nao aprensentou minha mensagem , joguei o codigo a qual vc tinha me passado.

sera que nao existe outra meneira , estou usando o clientdataset .
banco fb com ibexpert.

valew

Ciotti · Answer

ola amigo fiz o teste joguei o Dialogs nao tive problema mais com o showmessage, entao inserir o codigo e simulei alguns erros mas nao aprensentou minha mensagem , joguei o codigo a qual vc tinha me passado.

sera que nao existe outra meneira , estou usando o clientdataset .
banco fb com ibexpert.

valew

Ciotti · Answer

ola amigo fiz o teste joguei o Dialogs nao tive problema mais com o showmessage, entao inserir o codigo e simulei alguns erros mas nao aprensentou minha mensagem , joguei o codigo a qual vc tinha me passado.

sera que nao existe outra meneira , estou usando o clientdataset .
banco fb com ibexpert.

valew

Felipemarinho · Answer

procedure TF_Cliente.BT_GravarClick(Sender: TObject);
Const
M = �PRIMARY KEY�; // OU O NOME DA SUA CHAVE PRIMARIA OU ESTRANGEIRA
begin
Try
// AQUI VOC� COLOCA O SEU CODIGO PARA INSERIR OU ALTERAR
Except
On E: EDatabaseError do
Begin
If POS(M,E.Message) > 0 Then
ShowMessage(�SUA MENSAGEM�);
End;
end;
end;
cara espero que tenha ajudado !!!!

obs n�o esqueca de incluir a unit �DB� na clausula uses

Felipemarinho · Answer

meu camarada n�o esque�a este m�todo quando voc� roda o programa pelo delphi ele da o erro e depois a sua mensagem, mais se voc� rodar pelo execut�vel fica legal,...

Ciotti · Answer

Amigo me desculpe mas nao funcionou ainda apresenta o erro em eng, nao da pra fazer esse procedimento no banco? ou vc tem um exemplo ai em delphi + fb?
se tiver me manda no meu email

jeffe_helloween@hotmail.com

valew cara pela for�a

Ciotti · Answer

aeeeeeeeeeeeeeeee funcionou valew. forte abraco....

F�rum erro de chave estrangeira, como mudar a mensagem? #335810