Question

我有一个存储过程，它有4个输入参数。

@Scenario, @StockID, @EOD, @EOD_PREV.

基于@Scenario （共9个方案），执行不同的SQL脚本。

我的要求是： 我需要使用VB宏来显示每个工作表中的结果，我需要使用一个ActiveX-Command按钮来运行所有的方案。单独工作表中的每个方案。

到目前为止，我已设法为每个工作表创建单独的连接，并为每个工作表创建Active X Command Button。

以下是我使用的查询。

Private Sub CommandButton1_Click()
Dim Scenario As String   
Dim STOCK_ID As String    
Dim EOD As String    
Dim EOD_PREV As String    
Scenario = Sheets("Stocks").Range("B3").Value    
STOCK_ID = Sheets("Stocks").Range("B8").Value       
EOD = Sheets("Stocks").Range("B6").Value      
EOD_PREV = Sheets("Stocks").Range("B7").Value    
With ActiveWorkbook.Connections("9").OLEDBConnection    
.CommandText = "EXEC dbo.usp_Inventory_Reconcilliation '" & Scenario & "','" & 
STOCK_ID & "', '" & EOD & "' ,'" & EOD_PREV & "'"    
ActiveWorkbook.RefreshAll    
End With    
End Sub

有人可以帮我解决这个问题。

Answer 1

从ActiveWorkbook.RefreshAll中获取With，并且可能更容易使用没有VBA的连接，只需将其用作刷新按钮即可。

存储过程有四个输入参数

1 个答案: