Como Enviar uma mensagem de Erro pela Store Procedure - INte

Question

No Delphi, fa�o..Try   //comandosExcept  //comandosEnd;Se der algum erro ele vai para o Except.. E no Interbase, em uma Store Procedure, como fa�o para mandar uma mensagem de erro..Vi alguma coisa sob...

Afarias · Answer

Criando uma exce��o::[code:1:241dda622c]create exception nome_da_exception �texto da exception�;[/code:1:241dda622c]Capturando um erro dentro do procedimento::[code:1:241dda622c]{ comandos }when  do  ;[/code:1:241dda622c][quote:241dda622c]onde  pode ser:exception nome_da_exception   {exce��o}sqlcode c�digo   {c�digo de erro SQL}gdscode c�digo   {c�digo de erro do IB}ANY[/quote:241dda622c]use [b:241dda622c]ANY[/b:241dda622c] quando desejar pegar QUALQUER ERROPara �executar� uma exce��o no c�digo, use::[code:1:241dda622c]exception nome_da_exception;[/code:1:241dda622c]exemplos::[code:1:241dda622c]when sqlcode -803 do  [/code:1:241dda622c][code:1:241dda622c]when ANY do  exception nome_da_exception;[/code:1:241dda622c][code:1:241dda622c]if (valor < 0) then  exception nome_da_exception[/code:1:241dda622c]T+...

Rtava · Answer

Sistemp, fiz a seguinte Stored Procedure para resolver este problema:

SET TERM ^ ;

CREATE PROCEDURE NEW_PROCEDURE 
RETURNS (
    AAA INTEGER)
AS
begin
AAA = -999;
insert into logs (logs.transac_id, logs.transac_dthr, logs.hw_serie)
                  values
                 (111,�2000/05/05 10:10:10�, �abd111�);

when sqlcode -803 do
    exception axaxax;
when any do
    aaa = -99;
end
^

SET TERM ; ^

GRANT INSERT ON LOGS TO PROCEDURE NEW_PROCEDURE;

GRANT EXECUTE ON PROCEDURE NEW_PROCEDURE TO SYSDBA;

Em meu c�digo na verdade tem mais coisas, mas aqui � s� pra exemplificar.
Em minha tabela LOGS, eu preciso saber se j� existe um outro registro igual ao que estou inserindo. Para isso existem campos �nicos na tabela (indicados no c�digo), em que ao inserir outro registro com estes c�digos iguais aos de outro registro, ent�o o BD gera um Exception. No caso de registro duplicado, a vari�vel SQLCODE, interna do Firebid, � carregada com valor -803, que entra no tratamento de exce��es do �when�, retornado ao programa o valor textual do Exception que chamei de MY_EXCEPTION_1. Para qualquer outro erro que ocorrer, ser� retornado o valor do Exception MY_EXCEPTION_2.

Para chamar esta Stored Procedure de seu c�digo no Delhi, fa�a assim:

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

Para ver o conte�do da vari�vel de sa�da da procedure, vari�vel que chamei de �AAA�, fa�a assim:

   showmessage(ADOQuery .fieldbyname(�aaa�).AsString);

OBS.: Se ocorrer um erro qualquer na execu��o desta stored procedure, que chamei de �NEW_PROCEDURE�, ent�o a vari�vel �AAA� retornar� NULL. Se a procedure for executada com sucesso, a vari�vel �AAA� retornar� �-999�, que � o valor em que foi inicializada.

J� tentei de v�rias maneiras retornar ao Delphi os c�digos num�ricos de erros de exce��es geradas pelo FB, mas n�o obtive sucesso em nada. A camada do driver de acesso ao BD, seja OLEDB ou ODBC, n�o passa para cima estes c�digos de retorno. J� as mensagens de excess�es, sim.

Qualquer d�vida posta de novo a�!

Rtava · Answer

Sistemp, apenas completando o que disse a respeito da impossibilidade da captura dos c�digos num�ricos de erro, d� uma olha neste t�pico que nele � indicado como fazer.

http://forum.clubedelphi.net/viewtopic.php?t=73629

Adrinei · Answer

Afarias,Tentei tratar o erro -803 (duplica��o de chave) em um trigger mas n�o funcionou, mesmo estando em BEFORE.Porque a cl�usula WHEN SQLCODE -803 DO ... n�o � captada no trigger?Se utilizo em procedure, logo ap�s o comando insert, funciona!Mas o trigger before insert n�o se encaixa na mesma situa��o?...

F�rum Como Enviar uma mensagem de Erro pela Store Procedure - INte #47667