Erro de RDB$db_KEY Ajuda

Delphi

08/10/2012

estou fazendo o curso do Renato Matos de automação comercial....

quando cheguei na parte da store procedure para controle de acessos recebo um erro ....

pOpr d_opr é um dominio(DOMAIN D_OPR AS VARCHAR(1) CHECK(value in ('I', 'A', 'E', 'V'));

o codigo

CREATE PROCEDURE SP_RAISE_ERROR (pUsuario integer, pTabela varchar(50), pOpr D_OPR)
AS
declare variable v_incluir d_n_ou_s;
declare variable v_alterar d_n_ou_s;
declare variable v_excluir d_n_ou_s;
declare variable v_ver d_n_ou_s;

begin
select incluir, alterar, excluir, ver
from acessos
where usuario= :pUsuario
and tabela = :pTabela
into :v_incluir, :v_alterar, :v_excluir, :v_ver;


if (row_coount = 0) then
exception acess_deny;

if ((:pOpr = 'I') and (:v_incluir = 'N')) then
exception acess_deny;

if ((:pOpr = 'A') and (:v_alterar = 'N')) then
exception acess_deny;

if ((:pOpr = 'E') and (:v_excluir = 'N')) then
exception acess_deny;

if ((:pOpr = 'V') and (:v_ver = 'N')) then
exception acess_deny;

o erro é o seguinte :

Error at line1 - Dynamic SQL Error
SQL error code = -104
Cannot SELECT RDB$DB_KEY FROM A STORED PROCEDURE
e aparece o codigo novamente....

preciso de ajuda.
Lucas Oliveira

Lucas Oliveira

Curtidas 0

Respostas

Alisson Santos

Alisson Santos

08/10/2012

Poderia postar o código inteiro que está aparecendo, pois pelo que vi você passa o row_coont
GOSTEI 0
POSTAR