visualbasic得到SQL存储过程返回值

‘存储过程：

ALTER procedure aa_pname
@fdate varchar(10),
@fyear integer out,
@fmonth integer out
as

begin
–内容
end

‘vb代码：
Private Sub cmdBind_Click()
‘vicmiao 2008-04-21
Dim cmd As New ADODB.Command
Dim mRst As New ADODB.Recordset
Dim fyear As Integer
Dim fmonth As Integer
Dim fdate As String
fdate = “2008/02/01″
Dim ReturnValue
cmd.ActiveConnection = conn
cmd.CommandText = “aa_pname”
cmd.CommandType = adCmdStoredProc

cmd.Parameters.Append cmd.CreateParameter(”fdate”, adVarChar, adParamInput, 10, fdate)
cmd.Parameters.Append cmd.CreateParameter(”fyear”, adInteger, adParamInputOutput, , CInt(lblCurrAccYear))
cmd.Parameters.Append cmd.CreateParameter(”fmonth”, adInteger, adParamInputOutput, , CInt(lblCurrAccMonth))
Set mRst = cmd.Execute
fyear = cmd.Parameters(”fyear”)
fmonth = cmd.Parameters(”fmonth”)
Set cmd.ActiveConnection = Nothing

End Sub

收藏本文到网摘：

随机日志

This entry was posted on 星期三, 04月 23rd, 2008 at 3:53 pm and is filed under 数据库|SQLServer. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.