Erro nas Stored Procedure SQLDA

Firebird

08/08/2003

Boa tarde.
Estou utilizando um componente TSQLStoredProc da paleta DbExpress ligada
a seguinte SP:

CREATE PROCEDURE VerCNPJCadastrado (pCNPJ CHAR(18))
RETURNS (result CHAR(18)) AS
BEGIN
SELECT CNPJ FROM FORNECEDORES WHERE CNPJ = :pCNPJ INTO :result;
END

Quando executo pela primeira vez vai tudo bem, mas na segunda vez recebo
o seguinte erro:

EDataBaseError with message ´SQLDA missing or incorrect version, or
incorrect number/type of variables´


Código Pascal:

...
dmFinanc.VerCnpjCadastrado.ParamByName(´pCnpj´).AsString :=
> dbeCnpj.Text;
> > dmFinanc.VerCnpjCadastrado.ExecProc;
> >
> > if (dmFinanc.VerCnpjCadastrado.ParamByName(´Result´).AsString <> ´´)
> then
> > begin
> > ShowMessage(´CNPJ já Cadastrado´+#13+
> > ´ou Fornecedor Inativo!!!´);
> > dbeCnpj.SetFocus;
> > end;


Alguém saberia resolver esse problema ?


Rod001

Rod001

Curtidas 0

Respostas

Afarias

Afarias

08/08/2003

|Estou utilizando um componente TSQLStoredProc da paleta DbExpress
|ligada a seguinte SP:
|CREATE PROCEDURE VerCNPJCadastrado (pCNPJ CHAR(1) {...}

Este componente é para EXECUTAR estored procs e nao CRIA-LAS!! -- e, vc só cria a stored proc 1 única vez!!!

o SQL deveria ser:

execute procedure VerCNPJCadastrado(:pCNPJ);



T+


GOSTEI 0
POSTAR