Insert - stored procedure - DEBExpress

Delphi

31/05/2005

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:

[b:3d55f4c32d][color=green:3d55f4c32d]Título Editado(Saviski)[/color:3d55f4c32d] - maiúsculas - removido ´Urgente´ - [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]regras de conduta do fórum[/url][/b:3d55f4c32d]


Hospfacil

Hospfacil

Curtidas 0

Respostas

Rjun

Rjun

31/05/2005

Você esta usando OLEDBCONNECTION ou os DBPROVIDER ?


GOSTEI 0
Gandalf.nho

Gandalf.nho

31/05/2005

[b:167104a145][color=red:167104a145]Bloqueado por Infração às Regras de Conduta :[/color:167104a145][/b:167104a145]

Duplicidade.
[url]http://forum.clubedelphi.net/viewtopic.php?p=205882[/url]

Para maiores esclarecimentos pode mandar-me uma [url=http://forum.clubedelphi.net/privmsg.php?mode=post&u=8378]Mensagem Particular[/url].


GOSTEI 0
POSTAR