Criação de Stored Procedure

Delphi

31/03/2005

Olá pessoal,

estou precisando muito da ajuda de vcs. Tenho que criar uma stored procedure em um bando de dados Oracle através do Delphi. Pensei que o componente DBExpress Plus fosse resolver o problema, mas não sei usar.

Me ajudem! :cry:


Ampaline

Ampaline

Curtidas 0

Respostas

Madrick

Madrick

31/03/2005

Ei, eu naum usei o oracle, mas acredito que seja parecido com o mssql, logo vc deve sp com o recursos do banco de dados, tipo o enterprise manager, dai vc usa o componente SQLStoredProc para ´Chamar´ esta stored procedure.


GOSTEI 0
Ampaline

Ampaline

31/03/2005

Ei, eu naum usei o oracle, mas acredito que seja parecido com o mssql, logo vc deve sp com o recursos do banco de dados, tipo o enterprise manager, dai vc usa o componente SQLStoredProc para ´Chamar´ esta stored procedure.



Eu já vi um exemplo de seleção, mas não de criação sem passar parâmetros, ou seja, os parâmetros eu que defino no código.


GOSTEI 0
Madrick

Madrick

31/03/2005

======No meu Caso Dentro do mssql=============
CREATE PROCEDURE cp_I_Teste (
@CODIGO int,
@PCODIGO int,
@SEQ int,
@QUANT decimal(18,4),
@VALOR decimal(18,4)) AS

insert into TROCA (CODIGO, PCODIGO, SEQ, QUANT, VALOR)
values (@CODIGO, @PCODIGO, @SEQ, @QUANT, @VALOR)

======No delphi===========================
spTeste.Params.FindParam(´@CODIGO´).AsInteger := StrToInt(EdCodigo.Text);
spTeste.Params.FindParam(´@PCODIGO´).AsInteger := cdsTeste2PCODIGO.AsInteger;
spTeste.Params.FindParam(´@SEQ´).AsInteger := cdsTesteSEQ.AsInteger;
spTestea.Params.FindParam(´@QUANT´).AsBCD := cdsTesteQUANT.AsCurrency;
spTeste.Params.FindParam(´@VALOR´).AsBCD := cdsTesteVALOR.AsCurrency;
spTeste.ExecProc;

onde spTeste = ao componente SQLStoredProc do dbexpress


GOSTEI 0
POSTAR