Fórum Insert - STORED PROCEDURE - DBExpress #51170

31/05/2005

0

Criei a seguinte Stored Procedure no Interbase 6.0

SET TERM !!
CREATE PROCEDURE INSERE_USUARIO (IAUTOCODI INTEGER,
INOME VARCHAR(50),
IIDENTIDADE VARCHAR(20),
IORGAO VARCHAR(20),
ICPF INTEGER,
IDATA VARCHAR(10),
ISITUACAO INTEGER,
IUSUARIO INTEGER,
IPESSOA INTEGER)
RETURNS (RESULTADO SMALLINT)
AS
BEGIN
BEGIN
INSERT INTO FICHA (AUTOCODI,
NOME,
IDENTIDADE,
ORGAO,
CPF,
DATA,
SITUACAO,
USUARIO,
PESSOA)
VALUES (:IAUTOCODI,
:INOME,
:IIDENTIDADE,
:IORGAO,
:ICPF,
:IDATA,
:ISITUACAO,
:IUSUARIO,
:IPESSOA);
WHEN ANY DO
BEGIN
EXCEPTION ERRO_INSERIR;
SUSPEND;
END
END
SUSPEND;
END !!
SET TERM !!

Como executar no Delphi 8.0 , passando os parâmetros. Meu database chama-se RECEPCAO e a Stored Procedure chama-se SP_USUARIO no Data Module.

Tentei :

RECEPCAO.CONNECTION := TRUE;
SP_USUARIO.ParamByName(´IAUTOCODI´).ASINTEGER := 1;
SP_USUARIO.ParamByName(´INOME´).AsString := ´1´;
SP_USUARIO.ParamByName(´IIDENTIDADE´).AsString := ´1´;
SP_USUARIO.ParamByName(´IORGAO´).AsString := ´1´;
SP_USUARIO.ParamByName(´ICPF´).AsInteger := 1;
SP_USUARIO.ParamByName(´IDATA´).AsString := ´1´;
SP_USUARIO.ParamByName(´ISITUACAO´).AsInteger := 1;
SP_USUARIO.ParamByName(´IUSUARIO´).AsInteger := 1;
SP_USUARIO.ParamByName(´IPESSOA´).AsInteger := 1;
SP_USUARIO.ExecProc; :oops:


Hospfacil

Hospfacil

Responder

Posts

01/06/2005

Sremulador

select * from tabela (param1, param2, param3, param4...) :arrow:


Responder

Gostei + 0

04/06/2005

Hospfacil

Sobe ....

Estou utilizando DBProvider ...


Responder

Gostei + 0

13/06/2005

Hospfacil

sobe ....


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar