ms-access - ストアド プロシージャの結果をフォームの 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

レコードセットにあるフィールドにバインドされたコントロールがフォームにあることを確認してください。