ADODB连接MySQL间歇性异常：SQL调用报ODBC驱动不支持属性

问题背景 #

我编写了一个检测MySQL数据库ADODB连接状态的子程序，逻辑是若连接未激活则打开连接，但程序出现随机失败的异常情况：InitConn函数始终返回True，但调用程序执行SQL时会报错“ODBC驱动不支持请求的属性”，立即重试即可成功。曾尝试添加Application.CalculateUntilAsyncQueriesDone语句解决时序问题，但无效，确定存在基础逻辑错误，需要修复。

现有代码 #

InitConn函数 #

Public oConn As ADODB.Connection

Function InitConn()
' this tests for an active connection to the database and opens it if not already open
' it returns boolean so the calling routine can decide what to do.
    On Error Resume Next
    
    If oConn Is Nothing Then
        Dim str As String
        str = "Driver={MySQL ODBC 8.0 Unicode Driver};SERVER=xxx.xxx.xxx.xxx;DATABASE=mysqldatabase;PORT=3306;UID=myid;PWD=mypassword;"
        Set oConn = New ADODB.Connection
        oConn.Open str
        Application.CalculateUntilAsyncQueriesDone
        
    End If
    
    If Err.Number <> 0 Then
     InitConn = False
     Else
     InitConn = True
     End If
  
   
       On Error GoTo 0
    
End Function

调用代码 #

If Not InitConn Then 
    msgbox "some appropriate message"
    Exit Sub ' 
endif
SQLstr = "some SQL statement"

Set rs = CreateObject("ADODB.Recordset")
rs.Open SQLstr, oConn, adOpenStatic

问题分析 #

1. 连接状态检测不全面：仅判断oConn Is Nothing，忽略了连接对象存在但已断开的情况（比如网络波动导致连接失效），此时函数会错误返回True。
2. 错误处理逻辑漏洞：On Error Resume Next会掩盖oConn.Open的潜在错误，且后续代码可能意外重置Err对象，导致误判连接成功。
3. Recordset参数兼容性问题：adOpenStatic游标类型可能与MySQL ODBC 8.0驱动存在兼容性问题，引发随机报错。
4. 无重试机制：针对随机出现的网络或驱动响应延迟，没有重试逻辑，直接返回成功但实际连接未就绪。

修复方案 #

1. 完善InitConn函数逻辑 #

添加连接状态验证、错误捕获和重试机制：

Public oConn As ADODB.Connection
' 定义ADODB状态常量（未引用ADODB库时直接用数值）
Const adStateOpen As Integer = 1

Function InitConn() As Boolean
    Dim strConn As String
    Dim retryCount As Integer
    Const MAX_RETRY = 2 ' 最多重试2次
    
    On Error GoTo ConnError
    
    ' 检查连接是否有效
    If Not oConn Is Nothing Then
        If oConn.State = adStateOpen Then
            InitConn = True
            Exit Function
        Else
            ' 释放无效连接
            Set oConn = Nothing
        End If
    End If
    
    ' 重试连接逻辑
    retryCount = 0
Retry:
    strConn = "Driver={MySQL ODBC 8.0 Unicode Driver};SERVER=xxx.xxx.xxx.xxx;DATABASE=mysqldatabase;PORT=3306;UID=myid;PWD=mypassword;"
    Set oConn = New ADODB.Connection
    oConn.Open strConn
    
    ' 确认连接成功
    If oConn.State = adStateOpen Then
        InitConn = True
    ElseIf retryCount < MAX_RETRY Then
        retryCount = retryCount + 1
        Set oConn = Nothing
        GoTo Retry
    Else
        InitConn = False
    End If
    
    Exit Function

ConnError:
    ' 捕获连接错误后重试
    If retryCount < MAX_RETRY Then
        retryCount = retryCount + 1
        Set oConn = Nothing
        Resume Retry
    Else
        InitConn = False
        ' 可选：记录错误信息到立即窗口
        ' Debug.Print "连接失败: " & Err.Description & " 错误码: " & Err.Number
    End If
End Function

2. 调整Recordset打开参数 #

使用MySQL驱动兼容性更好的游标和锁类型：

If Not InitConn Then
    MsgBox "数据库连接失败，请检查配置或网络后重试。"
    Exit Sub
End If

SQLstr = "some SQL statement"

Set rs = CreateObject("ADODB.Recordset")
' 替换为兼容性更优的参数组合
rs.Open SQLstr, oConn, adOpenForwardOnly, adLockReadOnly

额外建议 #

• 驱动版本匹配：确保MySQL ODBC驱动版本与服务器版本一致，避免版本不兼容导致的随机问题。
• 引用ADODB库：若项目未引用“Microsoft ActiveX Data Objects x.x Library”，建议添加引用，可直接使用ADODB常量（如adStateOpen）而非数值。
• 错误日志：保留错误记录逻辑，方便后续排查特定场景下的连接问题。

内容的提问来源于stack exchange，提问作者Bob S.