请问如何在VB中执行带参数及有结果返回的存储过程。

Question

something like   Dim Qy As New ADODB.Command
   Dim Parm As New ADODB.Parameter
   Dim Parm2 As New ADODB.Parameter   Set Qy.ActiveConnection = cn
   Qy(0)="1947"
   Qy(1)="1948" 
   Qy.CommandType = adCmdStoredProc
   Qy.CommandText = "AuthorByYearBorn"   Set rs = Qy.Execute(ShowRows)

Answer 1

dim cn as new ADODB.Connection
strsql="LT_基础项目_UPDATE (" & CLng(Mid(Frm基础项目管理.lvw管理.SelectedItem.Key, 2)) & "," & Lng分类ID
cn.Execute strsql, , adCmdStoredProc
就这么简单！

Answer 2

简单示例（pubs是SQL Server自带的数据库，byroyalty是pubs下的一个存储过程）：
Dim strConn As String
Dim cmd As New ADODB.Command
Dim Cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
    
strConn = "Driver={SQL Server}; Server=(local);Uid=sa;pwd=;database=pubs"
Cn.Open strConn
    
Set cmd.ActiveConnection = Cn
With cmd
    .CommandType = adCmdStoredProc
    .CommandText = "byroyalty"
    .Parameters("@percentage") = "100"
    Set rs = .Execute
End With
Do While Not rs.EOF
    Debug.Print rs("au_id")
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Cn.Close
Set Cn = Nothing