Mensagem na procedure que retorna valor.

Firebird

10/06/2011

Colegas,
criei um procedure para retornar um valor se o usuario não exisitir (se desejarem poderem melhorar o codigo essa é a primeira que faço desse jeito). No entanto quando não encontra o valor ela retorna uma mensagem com um simbolo vermelho e um botão de ok.
Eu gostaria que retornasse a mensagem de exception que eu criei.
Abaixo o codigo:



SET TERM ^ ;
CREATE OR ALTER PROCEDURE SP_VALIDA_USUARIO (
    PLOGIN DM_LOGIN,
    PSENHA DM_SENHA )
RETURNS (
    VRESULT Integer )
AS
DECLARE VARIABLE vCOUNT DM_INTEIRO; 
BEGIN  
  
   vResult = 0;
  
    select count(idusuario)
        from usuario
        where lower(login) = lower(:plogin)
        INTO :vcount;
        
    if (:vcount = 0) then 
         vResult = 1;  
        exception e_acesso_negado;
        
                       
  suspend;  
        
END^
SET TERM ; ^

GRANT EXECUTE
 ON PROCEDURE SP_VALIDA_USUARIO TO  SYSDBA;

Nilo Souza

Nilo Souza

Curtidas 0

Respostas

Teí Sistemas

Teí Sistemas

10/06/2011

Ola Nilo,

Poderia postar o código de criação da Exception?

Obrigado.
GOSTEI 0
Emerson Nascimento

Emerson Nascimento

10/06/2011

uma pergunta (que não tem a ver com a solução do seu problema):

o exception deve ser executado incondicionalmente?

talvez o correto seja:

    if (:vcount = 0) then
    begin
         vResult = 1; 
        exception e_acesso_negado;
    end

GOSTEI 0
POSTAR