4

我已经为此苦苦挣扎了几天。非常感谢任何帮助。

尝试使用 Excel VBA 在具有以下内容的 PC 上连接到 MySQL 数据库：

Excel 2007 Windows 7 x64 家庭高级版 MySQL 5.5 MySQL ODBC 连接器 5.1，64 位

在 Excel VBA 中，我引用了 Microsoft ActiveX Objects 2.8 Library。

我用来连接的 VBA 是：

Dim oConn As ADODB.Connection
Public Sub ConnectDB()
    Set oConn = New ADODB.Connection
    oConn.Open "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=localhost;" & "DATABASE=test;" & "USER=root;" & "PASSWORD=PWhere;" & "Option=3"
End Sub

每次运行时，我都会收到错误对话框：“[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified”

MySQL 服务肯定正在运行。

我使用 Windows 数据源管理器检查 MySQL ODBC 连接器 5.1 是否存在且正确：它是，当我尝试以这种方式创建 DSN 时检查正常。

查看 VBA 项目参考选项，我注意到参考大量不同 ADO 库的选项，包括（多维）选项和库版本 2.0、2.1、2.5、2.6、2.7 和 6.0 - 也许答案在于其中之一？

需要更多详细信息，请告诉我。

4

2 回答 2

4

将我的应用程序移动到具有不同驱动程序版本的其他系统时，我收到了类似的消息 - 看起来拼写错误的驱动程序名称会导致相同的消息。要找到正确的驱动程序名称并使应用程序驱动程序版本独立，我使用以下代码：

    Public Function Get_Driver() As String

    Const HKEY_LOCAL_MACHINE = &H80000002
    Dim l_Registry As Object
    Dim l_RegStr As Variant
    Dim l_RegArr As Variant
    Dim l_RegValue As Variant

    Get_Driver = ""
    Set l_Registry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
    l_Registry.enumvalues HKEY_LOCAL_MACHINE, "SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers", l_RegStr, l_RegArr

    For Each l_RegValue In l_RegStr
        If InStr(1, l_RegValue, "MySQL ODBC", vbTextCompare) > 0 Then
            Get_Driver = l_RegValue
            Exit For
        End If
    Next
    Set l_Registry = Nothing
End Function
于 2012-09-29T08:08:12.063 回答
4

您需要使用 32 位或 64 位版本，具体取决于Excel的版本，而不是 Windows。因此，即使您运行 Windows 7 64 位，我相信 Excel 2007 也只有 32 位，因此您需要使用 32 位 mysql 连接器。

另请参阅与您的问题类似的此错误报告。

于 2012-03-22T09:05:52.283 回答