Como mostrar nome stored procedure numa exceção - Firebird

Delphi

06/08/2012

ola amigos,

Utilizo Delphi 2010 (dbExpress) + Firebird 2.5. Todos meus relatórios estão criados em stored procedure (SP). E quando a rotina gera erro (exceção), mostro ao usuário.

Só que gostaria de mostrar na tela, o nome da SP que originou o erro, pra auxiliar o suporte. Tem como, via alguma comando ou componente?

A SP está sendo executada dentro de uma thread. A mensagem vinda do delphi (try/except) mostra o erro perfeitamente, mas não quem o gerou (objeto do banco).


procedure TfrmRelPadrao.IdThreadComponent1Exception(Sender: TIdThreadComponent;
  AException: Exception);
begin
  vMsgErro := AException.Message;
  Sender.Synchronize(MostraErro); // aqui apenas dá um showmessage
  Sender.Terminate;
end;
Fernando

Fernando

Curtidas 0

Respostas

Fernando

Fernando

06/08/2012

olá, alguém??
GOSTEI 0
Joel Rodrigues

Joel Rodrigues

06/08/2012

Talvez você possa verificar o componente que executou a instrução SQL. Se for um StoredProc, exiba o nome do procedure a ele relacionado. Se for uma query, exiba a propriedade SQL.

Bem, nunca fiz isso, apenas é uma ideia.
GOSTEI 0
POSTAR