Igrafx VBA连接MySQL数据库失败求助（Excel VBA可正常连接）

同样的ADODB连接逻辑在Excel VBA中可正常运行，但在Igrafx VBA中连接MySQL数据库时出现异常，测试代码如下：

Sub DBtest()
    Dim conn As Object
    Dim serverName As String
    Dim dbName As String
    Dim userName As String
    Dim password As String
    
    serverName = "localhost"
    dbName = "ql"
    userName = "root"
    password = "q###d$$$$k"
    
    Set conn = CreateObject("ADODB.Connection")
    
    ' Ustaw parametry połączenia
    conn.ConnectionString = "Driver={MySQL ODBC 8.3 Unicode Driver};Server=" & serverName & ";Database=" & dbName & ";Uid=" & userName & ";Pwd=" & password
    
    ' Otwórz połączenie
    On Error Resume Next
    conn.Open
    If Err.Number <> 0 Then
        MsgBox "Błąd połączenia: " & Err.Description
    Else
        MsgBox "Połączenie udane!"
        conn.Close
    End If
    On Error GoTo 0
End Sub

以下是针对性的排查和解决建议：

• 检查Igrafx与ODBC驱动的位数匹配
  Igrafx的运行位数（32/64位）必须与安装的MySQL ODBC驱动位数完全一致。Excel能正常运行可能是因为它的位数和驱动匹配，而Igrafx位数不匹配。

  • 查看Igrafx位数：打开Igrafx，进入「帮助」→「关于」查看系统类型；
  • 对应位数的ODBC管理器：32位驱动用C:\Windows\SysWOW64\odbcad32.exe，64位用C:\Windows\System32\odbcad32.exe，检查对应管理器中是否存在MySQL ODBC 8.3 Unicode Driver。

• 调整连接字符串的特殊字符处理
  密码中包含###和$$$$这类特殊字符，Igrafx VBA的字符串解析逻辑可能与Excel不同。尝试用大括号包裹密码，避免转义问题：

  conn.ConnectionString = "Driver={MySQL ODBC 8.3 Unicode Driver};Server=" & serverName & ";Database=" & dbName & ";Uid=" & userName & ";Pwd={" & password & "}"
  

  也可以先在ODBC管理器中配置系统DSN，再用简化的连接字符串测试：

  conn.ConnectionString = "DSN=你的MySQL系统DSN名称;Uid=" & userName & ";Pwd=" & password
  

• 验证Igrafx的运行权限与VBA信任设置

  • 尝试以管理员身份启动Igrafx，避免权限不足导致无法访问ODBC驱动或MySQL服务；
  • 检查Igrafx的信任中心设置，确保允许运行VBA宏，且未限制ActiveX对象（如ADODB.Connection）的创建。

• 测试基础ODBC连通性
  在Igrafx所在机器上，用ODBC数据源管理器手动创建连接并测试连通性。如果手动连接失败，问题出在驱动安装、MySQL服务配置或网络（如防火墙拦截3306端口），而非VBA代码。

• 捕获更详细的错误信息
  修改代码去掉On Error Resume Next，改用定向错误捕获，获取错误代码和完整描述，更精准定位问题：

  Sub DBtest()
      Dim conn As Object
      Dim serverName As String
      Dim dbName As String
      Dim userName As String
      Dim password As String
      
      serverName = "localhost"
      dbName = "ql"
      userName = "root"
      password = "q###d$$$$k"
      
      On Error GoTo ErrHandler
      Set conn = CreateObject("ADODB.Connection")
      
      conn.ConnectionString = "Driver={MySQL ODBC 8.3 Unicode Driver};Server=" & serverName & ";Database=" & dbName & ";Uid=" & userName & ";Pwd={" & password & "}"
      
      conn.Open
      MsgBox "Połączenie udane!"
      conn.Close
      Exit Sub
      
  ErrHandler:
      MsgBox "Błąd połączenia: " & Err.Number & " - " & Err.Description
      If Not conn Is Nothing Then
          If conn.State <> 0 Then conn.Close
          Set conn = Nothing
      End If
  End Sub
  

内容的提问来源于stack exchange，提问作者Tadeusz Lis