Как дать ссылку на ячейку в SQL строке подключения

Question

Я пытаюсь получить имена серверов и баз данных из ячеек для установления соединения с SQL сервером, используя макрос Excel, как показано ниже -

, чтобы мне не приходилось менять его каждый раз в моем Код VB.

ВЫПУСК

Но созданный мной код не принимает значения из ячеек, он продолжает выдавать мне неопределенную ошибку, когда я пытаюсь установить sh соединение между моим листом Excel и SQL сервером, используя значения ячеек

В моем коде я пытаюсь получить сервер и имена баз данных из ячеек моего листа. пожалуйста, найдите значение кода -

    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;"