2012-07-12 236 views
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 

回答

0

我想,你的意思是在這些線路上的東西:

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

.Execute 

這是假設組合的綁定列包含所需的值。

相關問題