建立與資料來源的連線

通過 ADO 訪問資料來源的第一步是建立一個 ADO Connection 物件。這通常使用連線字串來指定資料來源引數，儘管也可以通過將 DSN，使用者 ID 和密碼傳遞給 .Open 方法來開啟 DSN 連線。

請注意，DSN 不需要通過 ADO 連線到資料來源 - 任何具有 ODBC 提供程式的資料來源都可以使用適當的連線字串進行連線。雖然不同提供商的特定連線字串超出了本主題的範圍，但 ConnectionStrings.com 是查詢提供商的相應字串的絕佳參考。

Const SomeDSN As String = "DSN=SomeDSN;Uid=UserName;Pwd=MyPassword;"

Public Sub Example()
    Dim database As ADODB.Connection
    Set database = OpenDatabaseConnection(SomeDSN)
    If Not database Is Nothing Then
        '... Do work.
        database.Close          'Make sure to close all database connections.
    End If
End Sub

Public Function OpenDatabaseConnection(ConnString As String) As ADODB.Connection
    On Error GoTo Handler
    Dim database As ADODB.Connection
    Set database = New ADODB.Connection
    
    With database
        .ConnectionString = ConnString
        .ConnectionTimeout = 10             'Value is given in seconds.
        .Open
    End With
     
    OpenDatabaseConnection = database
     
    Exit Function
Handler:
    Debug.Print "Database connection failed. Check your connection string."
End Function

請注意，僅為了清楚起見，資料庫密碼包含在上面示例中的連線字串中。最佳實踐將規定不在程式碼中儲存資料庫密碼。這可以通過使用者輸入或使用 Windows 身份驗證獲取密碼來完成。