inclusão com stored procedure

Delphi

26/03/2005

Tenho a Seguinte procedure como faço para via delphi passar os valores para os parametros (utilizo dbexpress -> sqlquery)

CREATE PROCEDURE MANUTENCAO_PESQ_DE_EMPRESA (
I_TIPO VARCHAR(1),
I_ORDEM VARCHAR(20),
I_COD VARCHAR(40),
I_RAZAO VARCHAR(40),
I_NOME_F VARCHAR(40),
I_ENDE VARCHAR(40),
I_BAIRRO VARCHAR(40),
I_CIDADE VARCHAR(40),
I_ESTADO VARCHAR(2),
I_CEP VARCHAR(9),
I_TEL1 VARCHAR(18),
I_TEL2 VARCHAR(18),
I_TEL3 VARCHAR(18),
I_CNPJ VARCHAR(18),
I_INSC VARCHAR(18),
I_MAIL VARCHAR(100),
I_HOME VARCHAR(100),
I_PATH VARCHAR(100))
AS
begin
IF (:I_tipo = ´I´) then
BEGIN
INSERT INTO EMPRESAS(
EMPRESAS.razao_social,
EMPRESAS.nome_fantasia,
EMPRESAS.endereco,
EMPRESAS.bairro,
EMPRESAS.cidade,
EMPRESAS.estado,
EMPRESAS.cep,
EMPRESAS.telefone1,
EMPRESAS.telefone2,
EMPRESAS.telefone3,
EMPRESAS.cnpj,
EMPRESAS.insc_est,
EMPRESAS.e_mail,
EMPRESAS.home_page,
EMPRESAS.path_imagem)
VALUES(
:I_razao,
:I_nome_f,
:I_ende,
:I_bairro,
:I_cidade,
:I_estado,
:I_cep,
:I_tel1,
:I_tel2,
:I_tel3,
:I_cnpj,
:I_insc,
:I_mail,
:I_home,
:I_path);
END
end


Obrigado!!!!



:arrow: [color=red:d07ad2a33c]Bloqueado por oTTo.[/color:d07ad2a33c]


Uiliangurjon

Uiliangurjon

Curtidas 0

Respostas

Gandalf.nho

Gandalf.nho

26/03/2005

[b:559f4d0448][color=red:559f4d0448]Notificação de Infração às Regras de Conduta :[/color:559f4d0448][/b:559f4d0448]

Duplicidade
[url]http://forum.clubedelphi.net/viewtopic.php?p=193343[/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