使用参数从 Excel 查询 SQL Server

Question

我正在尝试使用带有参数的查询将 SQL 服务器中的信息拉入 Excel 电子表格。

我已经能够从 excel 中查询数据库，但无法弄清楚如何添加参数。

我需要从工作表中的单元格获取参数。

Sub DataExtract()

Dim cnPubs As ADODB.Connection
Set cnPubs = New ADODB.Connection
Dim strConn As String
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE= MyServer ;INITIAL CATALOG = MyDatabase ;"
strConn = strConn & " INTEGRATED SECURITY=sspi;"
cnPubs.Open strConn
Dim rsPubs As ADODB.Recordset
Set rsPubs = New ADODB.Recordset
With rsPubs

.ActiveConnection = cnPubs

.Open "SELECT * FROM [MyTable] WHERE ColA = ?"

Sheet1.Range("B12").CopyFromRecordset rsPubs

.Close
End With
cnPubs.Close
Set rsPubs = Nothing
Set cnPubs = Nothing
End Sub

任何关于我如何简单地让查询中的问号引用工作表中的单元格的帮助将不胜感激。 谢谢

Answer 1

未经测试：

Sub DataExtract()

Dim cmd as ADODB.Command, param as Object, val
Dim cnPubs As ADODB.Connection
Dim rsPubs As ADODB.Recordset
Dim strConn As String

    Set cnPubs = New ADODB.Connection

    strConn = "PROVIDER=SQLOLEDB;"
    strConn = strConn & "DATA SOURCE= MyServer ;INITIAL CATALOG = MyDatabase ;"
    strConn = strConn & " INTEGRATED SECURITY=sspi;"
    cnPubs.Open strConn

    Set cmd = New ADODB.Command
    cmd.CommandText = "SELECT * FROM [MyTable] WHERE ColA = ?"
    cmd.CommandType = adCmdText


    val = Sheet1.Range("A1").Value 'query value to be used
    'create and add the parameter
    Set param = cmd.CreateParameter("", adVariant, adParamInput, 0, val)
    cmd.parameters.Append param

    Set cmd.ActiveConnection = cnPubs

    Set rsPubs = cmd.Execute()

    Sheet1.Range("B12").CopyFromRecordset rsPubs

End Sub