Sie können diese Routine ausprobieren, indem Sie eine Befehlsschaltfläche namens Command1 in einer Maske platzieren und die Routine in ihr Klick-Ereignis einfügen. Führen Sie das Programm aus und klicken Sie auf die Schaltfläche, um eine Verbindung herzustellen und trennen Sie die Verbindung dann.

Private Sub cmdTestConnection_Click( _
        ByVal eventSender As System.Object, _
        ByVal eventArgs As System.EventArgs) _
        Handles cmdTestConnection.Click
 
    ' Declare variables
    Dim myConn As New ADODB.Connection
    Dim myCommand As New ADODB.Command
    Dim cAffected As Integer

    On Error GoTo HandleError

    ' Establish the connection
    myConn.Provider = "SAOLEDB"
    myConn.ConnectionString = _
        "Data Source=SQL Anywhere 12 Demo"
    myConn.Open()
    MsgBox("Connection succeeded")
    myConn.Close()
    Exit Sub

HandleError:
    MsgBox(ErrorToString(Err.Number))
    Exit Sub
End Sub

Das Beispiel führt die folgenden Aufgaben aus:

Wenn der SAOLEDB-Provider installiert ist, registriert er sich selbst. Bei diesem Registrierungsprozess werden Registrierungseinträge im COM-Abschnitt der Registrierung vorgenommen, damit ADO die DLL finden kann, wenn der SAOLEDB-Provider aufgerufen wird. Wenn Sie den Speicherort Ihrer DLL ändern, müssen Sie sie neu registrieren.

 ♦  So registrieren Sie den OLE DB-Provider

Weitere Hinweise, wie Sie mit OLE DB eine Verbindung zu einer Datenbank herstellen, finden Sie unter Mit einer Datenbank über OLE DB verbinden.