Fórum Tratar Exceptions do FB no Delphi? #331296
17/10/2006
0
Bom dia pessoal, estou com uma dúvida que é como eu devo tratar as exceptions geradas pelo FB no Delphi..
Tenho a seguinte exception :
Eu a chamo de uma stored procedure desta forma:
Esta funcionando perfeitamente, o que eu gostaria de sabe é se tem como eliminar uma msg que vem na tela da exception..
Tipo Exception 1 e nas linhas de baixo vem a msg da exception.
Tem como eliminar este Execption 1 que aparece no dialogo de msg?
Grato
Fausto
Tenho a seguinte exception :
CREATE EXCEPTION ERRO_DEL_REGISTRO ´Erro na exclusão do registro´;
Eu a chamo de uma stored procedure desta forma:
begin
DELETE FROM cidades WHERE CidCod = :codigo;
WHEN SQLCODE -530 DO
EXCEPTION erro_violacao_fk;
WHEN ANY DO
EXCEPTION erro_del_registro;
endEsta funcionando perfeitamente, o que eu gostaria de sabe é se tem como eliminar uma msg que vem na tela da exception..
Tipo Exception 1 e nas linhas de baixo vem a msg da exception.
Tem como eliminar este Execption 1 que aparece no dialogo de msg?
Grato
Fausto
Faustoalves
Curtir tópico
+ 0
Responder
Posts
19/10/2006
Raserafim
vc pode tentar o seguinte: em algum evento do componente que vc chama a Store Procedure (por exemplo o OnDeleteError) vc pode tentar utlizzar a função Pos.
ou seja, o que o Pos faz é verificar se o primeiro parâmetro que vc passou está contido em algum lugar do segundo parâmetro.
if Pos(´mensagem o exception´, E.Message) > 0 then
Application.MessageBox(´Esta data não é válida.´, ´Aviso: data inválida!´, MB_OK + MB_ICONSTOP);
ou seja, o que o Pos faz é verificar se o primeiro parâmetro que vc passou está contido em algum lugar do segundo parâmetro.
Responder
Gostei + 0
19/10/2006
Tiagorocha
TRY
linha que está dando pau
EXCEPT
On E:Exception Do
Begin
Application.Messagebox(´Deu pau´,´Pau´,MB_ICONERROR+MB_OK);
Exit;
End;
END;Você já tentou fazer isso? Usar TRY ... EXCEPT?
Responder
Gostei + 0
28/09/2007
Murilo-jau
Estava eu tentando fazer estes tratamentos usando o ApplicationEvents ,
alguns erros eu consegui tratar num exemplo simples, mas ai quando fui usa-las em uma aplicação com Firebird e tal não funcionou pois após ocorrer os exceptions o delphi não entre no evento onException do ApplicationEvents.
alguns erros eu consegui tratar num exemplo simples, mas ai quando fui usa-las em uma aplicação com Firebird e tal não funcionou pois após ocorrer os exceptions o delphi não entre no evento onException do ApplicationEvents.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)