在連接字符串中使用單元格引用

Question

我在我的Excel VBA中使用下面的連接字符串。但我需要以一種方式設置它，即從A $ 1 $等單元中選取數據庫和服務器。所以我可以在需要時更改數據庫的詳細信息。

Function Connect(Server As String, _ 
       Database As String) As Boolean 

    Set CN = New ADODB.Connection 
    On Error Resume Next 

    With CN 
     ' Create connecting string 
     .ConnectionString = "Provider=SQLOLEDB.1;" & _ 
          "Integrated Security=SSPI;" & _ 
          "Server=" & Server & ";" & _ 
          "Database=" & Database & ";" 
     ' Open connection 
     .Open 
    End With 
    ' Check connection state 
    If CN.State = 0 Then 
     Connect = False 
    Else 
     Connect = True 
    End If 

End Function 

在此先感謝

Answer 1

喜歡的東西：

Sub check_database_connectivity() 
    Dim server_name As String 
    Dim database_name As String 

    server_name = ActiveSheet.Range("A1").Value 
    database_name = ActiveSheet.Range("A2").Value 

    If Connect(server_name, database_name) = True Then 
     'do something 
    End If 
End Sub