Mit VBA, finden Sie die version des MySQL-ODBC-Treiber in Windows installiert
Mit Visual Basic für Applikationen, wie finde ich heraus, welche version des MySQL-ODBC-Treiber in Windows installiert wird, auf dem Rechner des Nutzers?
Habe ich eine Microsoft Access-Anwendung, die den MySQL-ODBC-Treiber, um eine Verbindung herzustellen. Der connection-string sieht wie folgt aus:
ODBC;DATABASE=mydatabase;DRIVER={MySQL ODBC 3.51 Driver};
OPTION=3;PWD=password;PORT=3306;SERVER=server-db;UID=db-user;
Dieser Arbeit war zu finden, bis die IT-manager installiert ist die version 5.1 des MySQL-ODBC-Treiber auf dem PC eines Benutzers, die brach meine Verbindung Zeichenfolge.
Wenn ich wusste, dass die version des Treibers installiert, auf der Benutzer Windows-XP-installation, die ich einfügen könnte dass in den connection-string zur Laufzeit. Wie finde ich heraus, welche version des MySQL-ODBC-Treiber in Windows installiert wird, auf dem Rechner des Nutzers mithilfe von VBA?
Du musst angemeldet sein, um einen Kommentar abzugeben.
Finden Sie es in der Registrierung unter
Mit der info gefunden hier, können Sie es mit dem folgenden code (getestet habe ich es in Access 97)
Hier sind ein paar mögliche Ideen:
1 Sie können in der Lage sein, um die Registrierung zu überprüfen und suchen Sie nach bestimmten Schlüssel, wie diese zum Beispiel: [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\MySQL ODBC 3.51 Driver]
2.Sie könnten überprüfen Ihre c:\windows\system32 Ordner für die myodbc.dll und dann überprüfen Sie die Versionsinformationen. Hier ist ein link, wie Sie die version:
http://www.vb-helper.com/howto_file_version_info.html
Wenn Sie möchten, um zu vermeiden, Umgang Versionen auf einer Fall-zu-Fall-basis, können Sie Durchlaufen die wichtigsten Werte, zB..
Diese Funktion dient zum Durchlaufen der regkeys für ODBC-Treiber und überprüfen Sie einfach für die Existenz von mysql irgendwo, wenn nicht, wird es den Benutzer warnen, dann werden Sie zu der download-Seite, und Sie daran erinnern, dass Sie die richtige version für Ihre Architektur (32/64)
Und Sie benötigen diese zum auflisten der reg-Schlüssel (für mehr dazu siehe http://technet.microsoft.com/en-us/library/ee176771.aspx):
ActiveWorkbook.FollowHyperlink
ist für excel.FollowHyperlink
funktioniert in Access. Tipp: Aktualisieren Sie den code, um die Rückkehr der gefundenen richtigen string, z.B.:If (InStr(strAsk, "MySQL") > 0 And InStr(strAsk, "Unicode") > 0) Then strFound = strAsk modLog.Log LOGNAME, "Found matching MySQL Driver: " & strFound, LOG_INFO End If
undElse CheckMySQL= strFound End If