Se vc estiver usando um ClientDataSet, coloque no evento OnReconcileError
ShowMessage(E.Message); que vc verá o pq seu registro n"ao está sendo
gravado.
----- Original Message -----
From: "jader_ricarddo" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, July 04, 2006 2:44 PM
Subject: [delphi-br] Re: Dbexpress X Exception (do firebird)
Olá Murillo, obrigado pela dica !
Ali em baixo no seu exemplo qdo vc diz "deu pau" era isso que eu
gostaria de mostrar ao usuário.
Se eu fizer a verificação do ApplyUpdates eu posso mostrar uma
mensagem qualquer, mas, imaginemos que eu tenha 2 verificações na
trigger, ai lá pela segunda verificação dá o erro (exception), eu
gostaria de mostrar ao usuário aquele erro aproveitando o texto da
exception.
Quando eu usava o IBX se eu não tratasse nada aparecia o erro mas
agora em meus testes com o Dbexpress este erro não aparece.
Não sei se consegui me expressar bem, mas ... preciso de ajuda ...
Desde já agradeço sua atenção ...
Jader Ricardo
--- Em delphi-br@yahoogrupos.com.br, Murillo Proença
<[EMAIL PROTECTED]> escreveu
>
> Verifica o retorno do seu ApplyUpdates(0)
>
> if ApplyUpdates(0) > 0 then
> deu pau
> end;
>
> --- Em delphi-br@yahoogrupos.com.br, "Jader Ricardo" <[EMAIL PROTECTED]>
> escreveu
> >
> > Boa tarde amigos !
> >
> > D7 + Dbexpress + firebird 1.5
> >
> > Tenho uma trigger que é executada antes do registro ser gravado
em
> uma
> > tabela, esta trigger faz uma verificação e dependendo do
resultado
> ele gera
> > uma exceção (exception).
> >
> > Na minha aplicação, quando realizo um ApplyUpdates(0) em
execução a
> exceção
> > não aparece, o registro não grava mas deveria dar uma mensagem
de
> erro,
> > certo ?
> >
> > A mensagem de erro só aparece quando estou em desenvolvimento
> (debug).
> > Alguém tem uma dica de como corrigir isto ?
> >
> > Vejam o código ?
> >
> > If (Dm.CdsAca.Active = False) Then
> > Begin
> > Showmessage('Não há dados para gravar');
> > Exit;
> > End
> > Else
> > Begin
> > Try
> > Begin
> > Dm.CdsAca.Post;
> > Dm.CdsAca.ApplyUpdates(0);
> > Showmessage('Registro inserido com sucesso.');
> > End;
> > Except
> > Begin
> > Showmessage('O registro não pode ser inserido.');
> > Exit;
> > End;
> > End;
> > End;
> >
> > Atenciosamente,
> > Jader Ricardo
> >
> >
> > [As partes desta mensagem que não continham texto foram
removidas]
> >
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
