MS-Access 2013將存儲過程結果連接到組合框記錄集

Question

因爲在主題中，我需要將存儲過程結果連接爲記錄集。用一些例子，我發現我想出了：

Dim cn As New ADODB.Connection 
cn = GetConnection() 
Dim cmd As New ADODB.Command 

Dim rs As ADODB.Recordset 
Set rs = New ADODB.Recordset 
With cmd 
.ActiveConnection = GetConnection() 
.CommandText = "dbo.K_Kod_Agenta_P" 
.CommandType = adCmdStoredProc 

.Parameters.Refresh 
End With 
With rs 
.ActiveConnection = GetConnection() 
.CursorType = adOpenForwardOnly 
.CursorLocation = adUseServer 

End With 

Set rs = cmd.Execute 


Set Me.kod_nadagenta.Recordset = rs 

rs.Close 
cn.Close 

但是，當它擊中

Set Me.kod_nadagenta.Recordset = rs 

它拋出

「運行時錯誤‘7965’：您輸入的對象不是有效的Recordset屬性「。

Answer 1

只需創建一個傳遞查詢用下面的SQL：

dbo.K_Kod_Agenta_P 

現在只是立足於該傳遞查詢組合框。你不需要所有的代碼。