如何在SQL连接字符串中提供单元格引用

Question

我正尝试从单元格中获取服务器和数据库名称，以使用excel宏建立与SQL Server的连接，如下所示-

这样我就不必每次都在我的VB代码中进行更改。

问题

但是我创建的代码没有从单元格中获取值，当我试图使用单元格值在excel工作表和SQL Server之间建立连接时，它会不断给我带来未指定的错误

在我的代码中，我试图从工作表的单元格中获取服务器和数据库名称。 请找到代码值-

    Private Sub CommandButton1_Click()

     Worksheets(2).Activate
        ThisWorkbook.Sheets("POS DATA").Columns("B:B").Select
        Selection.NumberFormat = "m/d/yyyy"

        Dim conn As New ADODB.Connection
        Dim iRowNo As Double
        Dim Server1 As String
        Dim DB1 As String


           Server1 = ThisWorkbook.Sheets("Import to SQL").Range("G5").Value
           DB1 = ThisWorkbook.Sheets("Import to SQL").Range("G7").Value


            conn.Open "Provider=SQLNCLI11;Server='" & Server1 & "';Initial Catalog='" & DB1 & "' ;Trusted_Connection=yes;timeout=30;"

 conn.Close
 Set conn = Nothing

End sub

我无法弄清楚这一点，请对此提供帮助。

Answer 1

尝试一下-

conn.Open "Provider=SQLNCLI11;Server=" & Server1 & ";Initial Catalog=" & DB1 & " ;Trusted_Connection=yes;timeout=30;"