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
