vba mysql odbc,使用VBA，找到Windows中安装的MySQL ODBC驱动程序的版本

Using Visual Basic for Applications, how can I find out which version of the MySQL ODBC driver is installed in Windows on a user's machine?

I have a Microsoft Access application that uses the MySQL ODBC driver to make a connection. The connection string looks like this:

ODBC;DATABASE=mydatabase;DRIVER={MySQL ODBC 3.51 Driver};

OPTION=3;PWD=password;PORT=3306;SERVER=server-db;UID=db-user;

This was working find until the IT manager installed version 5.1 of the MySQL ODBC driver on a user's PC, which broke my connection string.

If I knew the version of the driver installed on the user's Windows XP installation, I could insert that into the connection string at run-time. How can I find out which version of the MySQL ODBC driver is installed in Windows on a user's machine using VBA?

解决方案

You can find it in the registry under

HKEY_LOCAL_MACHINE\SOFTWARE\

ODBC\ODBCINST.INI\

ODBC Drivers\MySQL ODBC 3.51 Driver

HKEY_LOCAL_MACHINE\SOFTWARE\

ODBC\ODBCINST.INI\

ODBC Drivers\MySQL ODBC 5.1 Driver

Using the info found here, you can get at it using the below code (I tested it in Access 97)

Private Sub Command0_Click()

If RegKeyExists("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\

ODBC Drivers\MySQL ODBC 3.51 Driver") Then

MsgBox "3.51"

ElseIf RegKeyExists("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\

ODBC Drivers\MySQL ODBC 5.1 Driver") Then

MsgBox "5.1"

Else

MsgBox "None"

End If

End Sub

'returns True if the registry key i_RegKey was found

'and False if not

Function RegKeyExists(i_RegKey As String) As Boolean

Dim myWS As Object

On Error GoTo ErrorHandler

'access Windows scripting

Set myWS = CreateObject("WScript.Shell")

'try to read the registry key

myWS.RegRead i_RegKey

'key was found

RegKeyExists = True

Exit Function

ErrorHandler:

'key was not found

RegKeyExists = False

End Function