0

次のコードは、コード化されたハード値を持つストアド プロシージャを返します。74 (ストアド プロシージャの @catcode) を、コンボ ボックスから選択したものに変更できるようにする必要があります。どんな助けでも大歓迎です。Access でパススルー クエリを使用しています。

Private Sub ok_Click()

Dim objConnection As New ADODB.Connection

Dim objCom As ADODB.Command

Dim provStr As String

Dim objConnection As New ADODB.Connection

Dim objCom As ADODB.Command

Dim provStr As String

Set objCom = New ADODB.Command

objConnection.Provider = "sqloledb"

provStr = "Data Source=***;" & "Initial Catalog=***;User Id=***;Password=***;"

objConnection.Open provStr


With objCom

.ActiveConnection = objConnection

.CommandText = "dbo.ix_spc_planogram_match " & ("@catcode=") & Me.cat_code.Value

.CommandType = adCmdStoredProc

.Parameters.Refresh     

.Parameters("@catcode").Value = me.cat_code.value 
   .Execute

    End With

    End Sub

ストアド プロシージャ:

execute dbo.ix_spc_planogram_match @catcode
4

1 に答える 1

0

これらの行で何かを意味していると思います：

.CommandText = "dbo.ix_spc_planogram_match " &  me.cat_code
.CommandType = adCmdStoredProc
.cmd.Parameters("@catcode") =  me.cat_code

.Execute

これは、コンボのバインドされた列に必要な値が含まれていることを前提としています。

于 2012-07-12T15:46:20.313 に答える