Para resolver seu problema, você poderia tratar estas condições na sua
aplicação, prevendo que futuramente as regras possam mudar ai não necessitando
alterar as condições existentes na sua trigger, assim as exceções apareceram.
Ou outra alternativa é utilizar os objetos de On erro.para capturar a
mensagem que o banco retorno.
Atenciosamente
Analista de Sistema Jr.
Marco Aurélio Gerônimo
Eletrodireto S/A - Central de Distribuição
- Original Message -
From: Jader Ricardo
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, June 29, 2006 4:34 PM
Subject: [delphi-br] Dbexpress X Exception (do firebird)
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]
[As partes desta mensagem que não continham texto foram removidas]
--
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