Fórum Insert - STORED PROCEDURE - DBExpress #51170
31/05/2005
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
Curtir tópico
+ 0Posts
01/06/2005
Sremulador
Gostei + 0
04/06/2005
Hospfacil
Estou utilizando DBProvider ...
Gostei + 0
13/06/2005
Hospfacil
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)