erro de chave estrangeira, como mudar a mensagem?

so lembrando estou usando banco de dados firebird com ibexpert.

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;

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

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

para usar o show message vc deve add na clausula uses.

Att
Dalton

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

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

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

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

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,

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

aeeeeeeeeeeeeeeee funcionou valew. forte abraco.