在 Excel 与 SQL Server 的连接上使用参数

Question

几个月来我一直在努力解决我的需求，今天我找到了解决方案，或者如果您愿意的话，可以解决它。

该解决方案的灵感来自我在这里找到的一篇帖子：

how to pass parameters to query in SQL (Excel)

而且，尽管我想感谢 @mono código 的想法，但由于我缺乏声誉，我无法在原始线程上对帖子发表任何评论。所以我想发布这个来感谢并帮助其他人度过难关。

我的第一个方法是使用 Power Query，但之后对脚本进行修改非常复杂。这种方法在 IMO 上要简单得多。

它基本上是获取连接的命令文本并即时修改它：

With ActiveWorkbook.Connections("MyConnection").OLEDBConnection
    queryOriginalText = .CommandText
    queryPreText = .CommandText

    queryPostText = Replace(queryPreText, "SET @From=@From", "SET @From='" & Range("StartDate") & "'")
    queryPreText = queryPostText
    queryPostText = Replace(queryPreText, "SET @To=@To", "SET @To='" & Range("EndDate") & "'")
    queryPreText = queryPostText
    queryPostText = Replace(queryPreText, "SET @OrderNo=@OrderNo", "SET @OrderNo='" & Range("OrderNo") & "'")

    .CommandText = queryPostText
    ActiveWorkbook.Connections("MyConnection").Refresh
    .CommandText = queryOriginalText
End With

我的脚本有 3 个变量用作过滤数据的条件： @From、@To 和 @OrderNo。而且，当我在脚本上设置这些内容时，我会这样做：

SET @From=@From
SET @To=@To
SET @OrderNo=@OrderNo

在我的 VBA 中，我查找那些特定的字符串，并将它们一一替换为用户在工作表上输入的值，在具有范围名称的特定单元格上。

最后，我放回了原始文本，因此当用户点击运行宏的按钮时，要替换的字符串始终存在。这仅在您取消选中该选项时才有效

Connection Properties

否则会出现运行时错误。

希望对你有帮助

Answer 1

您是说需要将变量传递给 ConnectionString 吗？这似乎根本不对。将日期传递给传递给 ConnectionSting 的查询。按照这个例子。

Private Sub CommandButton1_Click()
Dim FromDate As Date
Dim ToDate As Date

FromDate = Format(Sheets("Sheet1").Range("B1").Value, "yyyy-mm-dd") 'Pass value from cell B1 to SellStartDate variable
ToDate = Format(Sheets("Sheet1").Range("B2").Value, "yyyy-mm-dd") 'Pass value from cell B2 to SellEndDate variable

MsgBox FromDate
MsgBox ToDate

'Pass the Parameters values to the stored procedure used in the data connection
With ActiveWorkbook.Connections("TestConnection").OLEDBConnection
.CommandText = "EXEC dbo.spr_TestProcedure '" & FromDate & "','" & ToDate & "'"
ActiveWorkbook.Connections("TestConnection").Refresh

End With
End Sub

此外，按照下面链接中的示例进行操作可能会有所帮助。

https://www.mssqltips.com/sqlservertip/3436/passing-dynamic-query-values-from-excel-to-sql-server/

如果您对此仍有疑问，请回复。