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

您可以在注册表中找到它

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

使用找到的信息here,您可以使用以下代码(我在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