Zugreifen auf eine Microsoft Access Datenbank

Erstellen der Verbindung

Als Erstes benötigen wir natürlich einige Angaben über die Datenbank. Wie Sie evtl. von Classic ASP her kennen, benötigen wir einen Connection-String, der sich aus dem zu verwendenden Provider und dem Pfad zur Datenbank selbst zusammensetzt.

Dim strProvider As String
strProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
Dim strDatabase As String
strDatabase = "DATA SOURCE=H:\codebook.NET\database\" & _
"database\codebook.mdb;"
Dim strComplete As String
strComplete = strProvider & strDatabase

Im nächsten Schritt erzeugen wir eine neue Instanz der OleDbConnection-Klasse. Diese bildet die Basis für die Zugriffe auf die Access-Datenbank. Der Eigenschaft ConnectionString übergeben wir die Angaben, die wir oben zusammengestellt haben. Danach versuchen wir, die Datenbank zu öffnen. Wenn dies fehlschlagen sollte, geben wir die erzeugte Fehlermeldung über das Label aus, ansonsten wird eine Erfolgsmeldung in die Ausgabe geschrieben.

Dim objConn As New OleDbConnection
objConn.ConnectionString = strComplete
Try
objConn.Open()
lblMain.Text = "Datenbankverbindung zur Access-" & _
"Datenbank erfolgreich hergestellt"
' --- Abfangen eines evtl. aufgetretenen Fehler
Catch ex As OleDbException
lblMain.Text = "<b>Fehler</b><br>" & ex.Message & "<br>"
lblMain.Text &= "<b>Quelle</b><br>" & ex.Source & "<br>"
Finally
' --- Do nothing
End Try
objConn.Close()
End Sub
End Class
End Namespace

Listing 4.2: Zugreifen auf eine Microsoft Access Datenbank.