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