FAQ 0091: Wie verbinde ich meine Anwendung mit einer DBase-Datenbank?

Grundlagen  

Bei ActiveVB gibt es zwei Tutorials, die unbedingt gelesen werden sollten:
Der große ADO-Kurs, ADO, DB-Programmierung

ADO  

'   Datenbank-Treiber
Const JET_ENGINETYPE_DBASE3 = &H10
Const JET_ENGINETYPE_DBASE4 = &H11
Const JET_ENGINETYPE_DBASE5 = &H12

'   Settings für die Connection
Const cstrDatabase As String = "C:\DBase-DB"
Const cstrUsername As String = ""
Const cstrPassword As String = ""

Dim DB As ADODB.Connection

Set DB = New ADODB.Connection
With DB
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("User ID").Value = cstrUsername
    .Properties("Password").Value = cstrPassword
    .Properties("Data Source").Value = cstrDatabase
    .Properties("Jet OLEDB:Engine Type").Value = JET_ENGINETYPE_DBASE4
    .Open
    Debug.Print .ConnectionString
    .Close
End With

'   Datenbank-Objekt entfernen
Set DB = Nothing

Listing 1: DBase-Datenbank mit ADO öffnen

Die Eigenschaft .Properties("Jet OLEDB:Engine Type").Value muß an die eigene Datenbank angepaßt werden.
Data Source ist das Verzeichnis, in dem die Tabellen liegen.

Ihre Meinung  

Falls Sie Fragen zu dieser FAQ haben, Ihre Erfahrung mit anderen Nutzern austauschen möchten oder auf eine Ergänzung hinweisen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.