运行存储过程并从VBA返回值

我想将parameter passing到SQL Server 2008中的存储过程，我想将结果存储在一个ADODB.Recordset

目前我有这个：

 Public Sub UpdateWithStoredProcedure() Dim cmd As New ADODB.Command Dim conn As ADODB.Connection Dim prm As ADODB.Parameter Dim strConn As String Dim strSQL As String strConn = "Provider=SQLOLEDB.1;" & _ "Data Source=(local); Initial Catalog=NorthWind;" & _ "Integrated Security=SSPI" Set conn = New ADODB.Connection conn.Open strConn Set cmd = New ADODB.Command cmd.CommandText = "procOrderUpdate" cmd.CommandType = adCmdStoredProc cmd.ActiveConnection = conn Set prm = cmd.CreateParameter("OrderID", adInteger, adParamInput) cmd.Parameters.Append prm cmd.Parameters("OrderID").Value = 1 Set prm = cmd.CreateParameter("OrderDate", adDate, adParamInput) cmd.Parameters.Append prm cmd.Parameters("OrderDate").Value = "1/1/2007" Set prm = cmd.CreateParameter("ShipVia", adInteger, adParamInput) cmd.Parameters.Append prm cmd.Parameters("ShipVia").Value = 2 Set prm = cmd.CreateParameter("Freight", adCurrency, adParamInput) cmd.Parameters.Append prm cmd.Parameters("Freight").Value = "10.5" 'Execute the Stored Procedure cmd.Execute 'Close the connection conn.Close End Sub 

问题是如何将它存储在一个logging集而不是执行它？

Answer 1

我相信你所需要的就是这个

 Dim Rst As ADODB.Recordset 

和这个

 Set Rst = cmd.Execute