Tratar Exceptions do FB no Delphi?

Delphi

17/10/2006

Bom dia pessoal, estou com uma dúvida que é como eu devo tratar as exceptions geradas pelo FB no Delphi..
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;
end

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


Faustoalves

Faustoalves

Curtidas 0

Respostas

Raserafim

Raserafim

17/10/2006

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.
  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.


GOSTEI 0
Tiagorocha

Tiagorocha

17/10/2006

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?


GOSTEI 0
Murilo-jau

Murilo-jau

17/10/2006

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.


GOSTEI 0
POSTAR