CHAMAR UMA STORAGE PROCEDURE NO VB6
tenho a seguinte storage procedure ja criada no banco de dados, alguem poderia me dizer como chamo ela no programa passando os parametros de data inicial e final e recebendo de retorno os valores ???e se está correto
a storage que criei ???
CREATE
PROCEDURE BUSCA_REPASSE
@dataIni datetime,
@dataFin datetime
AS
BEGIN
SELECT SUM(VLR_PAGTO_C_HONO) AS VLR_TOTAL, SUM(VLR_HONORARIOS) AS VLR_HONORARIOS
From TITULOS
Where
DT_PAGTO between @dataIni and @dataFin
AND NR_CONTRATO IN (SELECT NR_CONTRATO FROM COBRANÇA
Where nr_cgc = COBRANÇA.nr_cgc
AND NR_CONTRATO = COBRANÇA.NR_CONTRATO
AND NR_PARCELA = COBRANÇA.NR_PARCELA
AND CD_CLIENTE = COBRANÇA.CD_CLIENTE
AND NOT TITULOS.DT_PAGTO IS NULL)
END
a storage que criei ???
CREATE
PROCEDURE BUSCA_REPASSE
@dataIni datetime,
@dataFin datetime
AS
BEGIN
SELECT SUM(VLR_PAGTO_C_HONO) AS VLR_TOTAL, SUM(VLR_HONORARIOS) AS VLR_HONORARIOS
From TITULOS
Where
DT_PAGTO between @dataIni and @dataFin
AND NR_CONTRATO IN (SELECT NR_CONTRATO FROM COBRANÇA
Where nr_cgc = COBRANÇA.nr_cgc
AND NR_CONTRATO = COBRANÇA.NR_CONTRATO
AND NR_PARCELA = COBRANÇA.NR_PARCELA
AND CD_CLIENTE = COBRANÇA.CD_CLIENTE
AND NOT TITULOS.DT_PAGTO IS NULL)
END
na query
sql= [Ô]Execute BUSCA_REPASSE( [ô][Ô] & dataini & [Ô][ô],[ô][Ô] & datafim & [Ô][ô])[Ô]
Marcelo, o q nao sei fazer é como no programa passo o comando para me trazer os 2 campos q tenho la SP ???
quero q me retorne o valor do sum( VLR_PAGTO_C_HONO) e do SUM(VLR_HONORARIOS) ..
como passo os parametro para q rode a sp e me retorne os 2 campos ???
quero q me retorne o valor do sum( VLR_PAGTO_C_HONO) e do SUM(VLR_HONORARIOS) ..
como passo os parametro para q rode a sp e me retorne os 2 campos ???
faltou o [Ô]group by[Ô] agrupar suas somas
e para executar é assim
sql=[Ô]Execute BUSCA_REPASSE @dataini, @datafin [Ô]
dai cada pararametro será executado em um campo em vb.net eu faço assim
strSql = ([Ô]Execute Pr_Sel_Entre_Cod @cod_ini, @cod_fin[Ô])
Dim cmd As New SqlCommand(strSql, cnnSql)
cmd.Parameters.AddWithValue([Ô]@cod_ini[Ô], txtcodigoini.Text)
cmd.Parameters.AddWithValue([Ô]@cod_fin[Ô], txtcodigofin.Text)
e para executar é assim
sql=[Ô]Execute BUSCA_REPASSE @dataini, @datafin [Ô]
dai cada pararametro será executado em um campo em vb.net eu faço assim
strSql = ([Ô]Execute Pr_Sel_Entre_Cod @cod_ini, @cod_fin[Ô])
Dim cmd As New SqlCommand(strSql, cnnSql)
cmd.Parameters.AddWithValue([Ô]@cod_ini[Ô], txtcodigoini.Text)
cmd.Parameters.AddWithValue([Ô]@cod_fin[Ô], txtcodigofin.Text)
Tópico encerrado , respostas não são mais permitidas