用VB编程调用SQL SERVER系统存储过程时，怎样向系统存储过程中的几个参数赋值?

Question

Public Sub ExecuteJDJTKG_Proc(strProc As String, adoCon As String, _
        intParm0 As Integer, strParm1 As String, strParm2 As String, _
        strParm3 As String)
    On Error GoTo ErrorHandler
    Dim cmd As New ADODB.Command
    Dim parm0 As New ADODB.Parameter
    Dim parm1 As New ADODB.Parameter
    Dim parm2 As New ADODB.Parameter
    Dim parm3 As New ADODB.Parameter
    Dim sSQL As String
    
    Screen.MousePointer = vbHourglass
    cmd.ActiveConnection = adoCon
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = strProc
    
    parm0.Type = adInteger
    cmd.Parameters.Append parm0
    
    parm1.Type = adVarChar
    parm1.Size = 36
    cmd.Parameters.Append parm1
    
    parm2.Type = adVarChar
    parm2.Size = 36
    cmd.Parameters.Append parm2
    
    parm3.Type = adVarChar
    parm3.Size = 36
    cmd.Parameters.Append parm2
    
    parm0.Value = intParm0
    parm1.Value = strParm1
    parm2.Value = strParm2
    parm3.Value = strParm3
    
    cmd.Execute
    Screen.MousePointer = vbDefault
    Exit Sub
ErrorHandler:
    MsgBox Err.Description
    Screen.MousePointer = vbDefault
End Sub

Answer 1

给一些其本的代码(ADO)
'连接数据库
Global adocn As New ADODB.Connection
Public Sub OpenConnection()
  Dim constr As String
  constr = "provider=sqloledb;" _
      & "server=" & gServer _
      & ";initial catalog=" & gDatabase _
      & ";user id=" & gUsername _
      & ";password=" & gpassword
  adocn.ConnectionString = constr
  adocn.CursorLocation = adUseClient  
  adocn.Open
End Sub
'断开连接
Public Sub CloseConnection()
  adocn.Close
  Set adocn = Nothing
End Sub'执行storeprocess
private sub excute()Dim adocm As New ADODB.Command
on err go to thiserr
 adocm1.ActiveConnection = adocn
  adocm1.Parameters.Append _
  adocm1.CreateParameter("@category", adChar, adParamInput, 1, Text1.Text)
  adocm1.Parameters.Append _
  adocm1.CreateParameter("@item", adChar, adParamInput, 6, Text2.Text)
  adocm1.Parameters.Append _
  adocm1.CreateParameter("@description", adVarChar, adParamInput, 30, Text3.Text)
  adocm1.Parameters.Append _
  adocm1.CreateParameter("@price", adCurrency, adParamInput, 10, Text5.Text)
  adocm1.Parameters.Append _
  adocm1.CreateParameter("@unit", adVarChar, adParamInput, 6, Text4.Text)
  adocm1.Parameters.Append _
  adocm1.CreateParameter("@inorset", adSmallInt, adParamInput, 1, action)
  adocm1.CommandType = adCmdStoredProc
  adocm1.CommandText = "qcmaterialsp"
  adocm1.Execute
  closeconnect 
  end sub
this err:
  closeconnect
end sub