Excel to Access

Abfragen der Daten in einer Access Datenbank aus Excel.

Schritte

1. Definieren der Objekte
2. Verbinden zur Datenbank
3. Abfrage definieren
4. Abfrage ausführen
5. Ergebnis anzeigen
6. Bereinigen der Objekte

Beispiel

Const DBProvider As String = "Microsoft.ACE.OLEDB.12.0"
Const DBFileName As String = "C:\Users\Ich\Documents\Datenbanken\Mydatabase.accdb"

Public Sub CountRecords()
    
    ' Definieren der Objekte
    Dim cn As Object
    Dim rs As Object
    Dim strSql As String
    Dim strConnection As String
    
    ' Verbinden zur Datenbank
    Set cn = CreateObject("ADODB.Connection")
    strConnection = "Provider=" & DBProvider & "; Data Source=" & DBFileName & ";"
    
    ' Abfrage definieren
    strSql = "SELECT Count(*) FROM MyTable;"
    
    ' Abfrage ausführen
    cn.Open strConnection
    Set rs = cn.Execute(strSql)
    
    ' Ergebnis anzeigen
    MsgBox rs.Fields(0) & " rows in MyTable"
    
    ' Bereinigen der Objekte
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    
End Sub