Hallo Zusammen,
ich habe eine Access Datenbank Partikel.accdb.
In dieser sind mehrere Spalten und zwischen 5-10 Millionen Zeilen.
Diese DB möchte ich über ein VBA Makro Abfragen.
Am liebsten wäre mir eine Art Eingabemaske in einem Excel Sheet, in welchem ich Variablen wie z.b. eine Zeit eingeben kann, welche dann an das Makro weitergegeben wird.
Etwa so:
Select Particle_ID FROM Particle Where Particle_ResiTime >='Eingegebene Variable'
Die Partikel ID (Kann mehrmals die selbe vorkommen) soll dann in einer Textbox erscheinen.
Ich bin neu im Bereich VBA und habe mich durch diverse Foren gelesen und folgendes zusammen geschustert.
Option Explicit
Sub Part_ResiTime()
Dim cn As Object
Dim rs As Object
Dim strSql As String
Dim strConnection As String
Set cn = CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\Auswertung\\Partikel.accdb"
strSql = "SELECT Part_ID FROM Partikel WHERE Part_ResiTime >= '1'"
cn.Open strConnection
Set rs = cn.Execute(strSql)
MsgBox rs.Fields(0) & " rows in MyTable"
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
Leider bekomme ich die Meldung "Laufzeitfehler Automatisierungsfehler"
Kann mir jemand helfen?
|