Access本地查询正常，通过ADODB执行相同查询却无返回结果

问题根源 #

Access的Hyperlink类型字段实际存储格式是显示内容#实际链接地址#（比如张三#mailto:zhangsan@xxx.com#），虽然在Access查询界面直接用LIKE '*mailto:zhangsan@xxx.com*'能匹配，但ADODB对Hyperlink字段的解析逻辑和Access原生查询有差异，直接用字符串匹配会失效。

可行解决方案 #

方案1：用Access内置函数提取链接地址 #

修改查询语句，调用HyperlinkPart函数提取字段的实际链接部分再匹配，ADODB支持调用Access的内置函数：

Function GetContactID(ByVal email As String) As Long
    Dim conn As ADODB.Connection
    Dim rec As ADODB.Recordset
    Dim sql As String
    
    Set conn = New ADODB.Connection
    '替换为你的数据库实际路径
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\YourDatabase.accdb;"
    
    '用HyperlinkPart提取链接地址，匹配包含目标邮箱的记录
    sql = "SELECT ContactID FROM CompanyContact WHERE HyperlinkPart(Email, 2) LIKE '*mailto:" & email & "*'"
    
    Set rec = New ADODB.Recordset
    rec.Open sql, conn, adOpenStatic, adLockReadOnly
    
    If Not rec.EOF Then
        GetContactID = rec!ContactID
    Else
        GetContactID = -1 '无匹配时返回标识值
    End If
    
    rec.Close
    conn.Close
    Set rec = Nothing
    Set conn = Nothing
End Function

方案2：直接匹配Hyperlink字段的存储结构 #

利用Hyperlink字段的存储格式（包含#mailto:邮箱#），直接匹配该字符串：

sql = "SELECT ContactID FROM CompanyContact WHERE Email LIKE '*#mailto:" & email & "#*'"

方案3：参数化查询（更安全，防SQL注入） #

推荐用参数化写法，既解决匹配问题又提升代码安全性：

Function GetContactID(ByVal email As String) As Long
    Dim conn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim rec As ADODB.Recordset
    
    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\YourDatabase.accdb;"
    
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = conn
    cmd.CommandText = "SELECT ContactID FROM CompanyContact WHERE HyperlinkPart(Email, 2) LIKE '*mailto:' ? '*'"
    
    '添加参数
    cmd.Parameters.Append cmd.CreateParameter("email", adVarChar, adParamInput, 255, email)
    
    Set rec = cmd.Execute
    
    If Not rec.EOF Then
        GetContactID = rec!ContactID
    Else
        GetContactID = -1
    End If
    
    rec.Close
    conn.Close
    Set rec = Nothing
    Set cmd = Nothing
    Set conn = Nothing
End Function

验证注意事项 #

• 确认数据库连接字符串的Provider版本正确：Access 2007及以上用ACE.OLEDB.12.0，旧版本用Jet.OLEDB.4.0
• 调试时可以输出最终生成的SQL语句，复制到Access查询里执行，排查语句是否正确
• 邮箱地址里的特殊字符（如@、.）不需要额外转义，LIKE通配符*对ADODB查询Access数据库有效

内容的提问来源于stack exchange，提问作者Keith Stein