Ist die AccessDatabaseEngine.exe installiert

Question

Hi zusammen, um zu prüfen ob die AccessDatabaseengine auf einem Rechner installiert ist, prüfe ich folgendes.

Gibt es da noch andere Lösungswege?
Wenn nicht installiert sind, führe ich das Setup aus.

   Dim folder As String
        Dim filename As String
        folder = Environment.GetEnvironmentVariable("CommonProgramFiles(x86)")
        If IsNothing(folder) Then
            folder = Environment.GetFolderPath(Environment.SpecialFolder.CommonProgramFiles)
        Else
            If folder = "" Then
                folder = Environment.GetFolderPath(Environment.SpecialFolder.CommonProgramFiles)
            End If
        End If

        filename = folder & "\microsoft shared\OFFICE14\ACECORE.DLL"

        If File.Exists(filename) Then
            Return True
        Else
            Return False
        End If

Answer 1

Hallo,

anstatt beide Verzeichnisse durch zu probieren, solltest Du auf Environment.Is64BitOperationSystem prüfen, wenn ja, gibt es auch (x86).

Alternativ könnte man auch prüfen ob der notwendige Typ registriert wurde:

        Dim oledbProvider = Type.GetTypeFromProgID("Microsoft.ACE.OLEDB.12.0")
        If oledbProvider IsNot Nothing Then
            Console.WriteLine("Access Database provider exists")
        End If

Schönheitsfehler insgesamt:
Sollte der Anwender ein 64-Bit-Office installiert haben, kannst Du keine 32-Bit Access-Database-Engine installieren, da dort entweder x86 oder x64 gilt.

Gruß Elmar

Answer 2

Hallo Thomas Klinger2,

Ich gehe davon aus, dass die Antwort Dir weitergeholfen hat.
Solltest Du noch "Rückfragen" dazu haben, so gib uns bitte Bescheid.

Grüße,
Robert

---

Robert Breitenhofer, MICROSOFT   Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.