Erro nas Stored Procedure SQLDA
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 ?
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
Curtidas 0
Respostas
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+
|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