高人指点谢谢

[hukuangloney]

我用以下语句调用存储过程出错

Set rst = New ADODB.Recordset

Set rst = cmd.Execute("exec JD_Qnddjg_BB1 @Bln_jtlx=0,@strRb='',@Bdate='2006-01-01',@Edate='2006-05-01' ")

请指点

[hukuangloney]

Dim parm_rb As ADODB.Parameter
Dim parm_Sdate As ADODB.Parameter
Dim parm_Edate As ADODB.Parameter
Dim mcn As New ADODB.Connection
If CnnDbf(mcn) = False Then
Exit Sub
End If
'strsql = "JD_Qnddjg_BB1 '" & Me.chkJTLX.value & "','" & MstrRb & "','" & Format(Me.dtpStart.value, "YYYY-mm-dd") & "','" & Format(Me.dtpEnd.value, "YYYY-mm-dd") & "'"
cmd.ActiveConnection = mcn
cmd.CommandText = "JD_Qnddjg_BB1"
cmd.CommandType = adCmdStoredProc

Set parm_jtlx = New ADODB.Parameter
parm_jtlx.Type = adInteger
parm_jtlx.Size = 3
parm_jtlx.Direction = adParamInput
parm_jtlx.value = 0
cmd.Parameters.Append parm_jtlx

.........
.......


我用以下语句也是一样的出错
郁闷中。。。。。。。。。

[hukuangloney]

各位请帮帮忙呀急急

我都加了几天班了做像这样的报表

[yuvotesyg518]

楼主怎么这样调用带参数的存储过程呀？
我以前真的没有见过，不知道行不行。

下面跟楼主分享一下我调用带参数存储过程的方式。举例如下：
create procedure sp_test(@para int, @result int output)
as
begin
set @result = @para * 2
end
这里的参数@result是输出参数。

通过ADO的Command对象调用该存储过程：
cmd_Test.CommandType = adCmdStoredProc
cmd_Test.CommandText = "sp_Test"
cmd_Test.Parameters("@para").Value = 5
cmd_Test.Prepared = True
cmd_Test.Execute

则现在可以通过如下方法得到返回值：
cmd_Test.Parameters("@result").Value