Excel to Access: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Thomas (Diskussion | Beiträge) (Die Seite wurde neu angelegt: „Abfragen der Daten in einer Access Datenbank aus Excel. Schritte # Definieren der Objekte # Verbinden zur Datenbank # Abfrage definieren # Abfrage ausführen…“) |
(kein Unterschied)
|
Version vom 29. Juni 2018, 07:28 Uhr
Abfragen der Daten in einer Access Datenbank aus Excel.
Schritte
- Definieren der Objekte
- Verbinden zur Datenbank
- Abfrage definieren
- Abfrage ausführen
- Ergebnis anzeigen
- 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