Por que o Exception n�o � retornado???

Question

Pessoal, criei uma stored procedure com o seguinte conte�do:[code:1:0bd315089b]begin   select count(NUM) as NN from TAB1 into :RESP;   when any do   begin          exception My_Exception;   endend[/co...

Rtava · Answer

uma outra forma que estou utilizando a exce��o e mesmo assim n�o consigo captur�-la no Delphi, � a seguinte:

begin
  select count(email_spool.id_spool) as NN from email_spool into :AX;

  suspend;

   when any do
   begin    
      exception axaxax;
   end
end

Executando esta stored procedure no IB Expert funciona corretamente e a mensagem da exce��o que criei com nome �axaxax� � retornada na tela em forma de caixa de di�logo. Por�m, chamando a stored procedure a partir do Delphi n�o � emitido nenhuma mensagem de nenhum tipo. Esta stored procedure tem o nome dew �AAAAA�. A forma como estou fazendo sua chamada no Delphi �: Select ax from AAAAA

[b:e2c2359231]Ser� que pode ser problema do driver ODBC que estou usando? Ou ser� que � problema de sintaxe mesmo?[/b:e2c2359231]

Rtava · Answer

resolvido... supondo uma stored procedure chamada NEW_PROCEDURE:

begin 
   RESP = -999;
   select count(NUM) as NN from TAB1 into :RESP; 

   when any do 
   begin    
      exception My_Exception; 
   end 
end

A chamada da Stored Procedure tem que ser assim:

   with qrAtual do
   begin
      Close;
      SQL.Clear;
      sql.Add(�EXECUTE PROCEDURE NEW_PROCEDURE�);
      open;
   end;

O valor retornado pela vari�vel RESP ser� sempre -999 caso a procedure seja executada com sucesso. Caso contr�rio, se ocorrer erro, ser� retornado uma exce��o com o texto que defini na Exception de nome �My_Exception�.
Para ler o valor da vari�vel RESP da procedure:

showmessage(qrAtual.fieldbyname(�RESP�).AsString);

Rtava · Answer

s� mais uma coisinha: Esse �qrAtual� que usei a�, no Delphi, � um componente TADOQuery....

Rtava · Answer

corrigindo a afirma��o de que n�o � poss�vel pegar o n�mero da exception gerado pelo FB:

Usando ADO, basta inserir um objeto TADOStoredProc, atribuir o objeto de conex�o � propriedade �Connection� do mesmo, em seguida escolhe a Stored Procedure desejada, indicando-a na propriedade �ProcedureName� (a Stored Procedure j� tem que estar criada no BD, claro), e pronto.

Para chamar a Stored Procedure a partir do Delphi basta fazer:

ADOStoredProc.ExecProc;

Para ler o valor da resposta da Stored Procedure, seja resposta de erro ou resposta de processamento OK, basta fazer:

ShowMessage(IntToStr(ADOStoredProc.Parameters.FindParam(�err_code�).Value));

Onde: �err_code� � o nome de minha vari�vel de sa�da na Stored Procedure, que criei com nome �TEST�, tal como segue:

SET TERM ^ ;

CREATE PROCEDURE TEST 
RETURNS (
    ERR_CODE INTEGER)
AS
begin
    err_code = 0;
    insert into TAB1
        (TAB1.id, TAB1.DATA, TAB1.val)
    values (111,�2000/05/05 10:10:12�, �MAMAMA�);

    when any do
        err_code = sqlcode;
end
^

SET TERM ; ^

GRANT INSERT ON LOGS TO PROCEDURE TEST;

GRANT EXECUTE ON PROCEDURE TEST TO SYSDBA;

Se a procedure for executada com sucesso, a vari�vel �err_code� retornar� ZERO. Caso contr�rio, retornar� o valor do erro.

F�rum Por que o Exception n�o � retornado??? #55128