在窗体上的Recordset中显示存储过程的结果

Question

以下代码基于在表单中选择的组合框运行存储过程。我需要在Access中以表单形式显示结果。这是代码：

Dim Cmd1 As ADODB.Command
Dim lngRecordsAffected As Long
Dim rs1 As ADODB.Recordset
Dim intRecordCount As Integer
'-----
Dim cnnTemp As ADODB.Connection
Set cnnTemp = New ADODB.Connection
cnnTemp.ConnectionString = "DRIVER=SQL Server;SERVER=****;" & _
"Trusted_Connection=No;UID=****;PWD=****;" & _
"Initial Catalog=IKB_QA;"
'Open Connection
cnnTemp.Open
Set Cmd1 = New ADODB.Command
Cmd1.ActiveConnection = cnnTemp
'---
With Cmd1
Dim localv As Integer
localv = [Forms]![start]![Selection]![cat_code]
.CommandText = "dbo.ix_spc_planogram_match"
.CommandType = adCmdStoredProc
.Parameters.Refresh
.Parameters("@catcode").Value = localv

Set rs1.Open = Cmd1.Execute(localv)
End With
End Sub

Answer 1

我不清楚这个问题的哪个部分你遇到了麻烦，但也许它是绑定部分。

您可以使用以下代码将表单绑定到ADO记录集：

Set Me.Recordset = rs1

只需确保您的表单上的控件绑定到记录集中的字段。