VBA中SQL记录集对象字符串字段比较异常问题求助

以下是几种常见导致你的代码中字符串匹配失效的原因，结合你的场景逐一分析：

• 隐形空白字符干扰
  数据库的nvarchar字段可能存储了肉眼不可见的前后空格、换行符或制表符，比如实际值是"9 "或"8_6\n"，和你代码里的"9"、"8_6"做比较自然不相等。
  排查方法：在赋值后添加调试输出，用引号包裹字符串查看：

  tmp = dbRecord!StrVal.Value
  Debug.Print "当前StrVal值：""" & tmp & """"
  Debug.Print "值长度：" & Len(tmp)
  

  解决方法：读取时直接去除空白：

  tmp = Trim(dbRecord!StrVal.Value)
  

  或者在SQL查询阶段就处理：

  Select PCS, LTRIM(RTRIM(StrVal)) as StrVal From valTable
  

• 全角/半角字符不匹配
  如果数据库中存储的是全角数字（比如"９"），而你代码里写的是半角数字"9"，两者的Unicode编码不同，比较时会判定为不相等。
  排查方法：用AscW函数查看字符的Unicode值：

  Debug.Print "第一个字符的Unicode值：" & AscW(Left(tmp, 1))
  

  半角9的Unicode值是57，全角９是65305，一目了然。
  解决方法：统一转换为半角后再比较：

  tmp = StrConv(dbRecord!StrVal.Value, vbNarrow)
  

• 不可见的Unicode特殊字符
  有些场景下数据库字段可能混入零宽空格、非打印字符等Unicode特殊字符，比如"9\u200B"（带零宽空格），肉眼看起来和"9"一样，但实际长度是2。
  排查方法：查看字符串的每个字符的Unicode值：

  Dim i As Integer
  For i = 1 To Len(tmp)
      Debug.Print "第" & i & "个字符：" & AscW(Mid(tmp, i, 1))
  Next
  

  解决方法：过滤掉非打印字符，或者直接在SQL中替换掉这些字符（比如用REPLACE函数移除零宽空格）。

• 字段读取的潜在问题
  确认你读取字段值的方式是否正确：

  • 检查字段名拼写是否完全一致（比如数据库里是strval而代码里用StrVal？不过大多数数据库不区分大小写，但保险起见可以用字段索引读取：dbRecord.Fields(1).Value）
  • 如果字段可能为Null，赋值给字符串前要先判断，避免tmp变成Empty导致匹配失败：

    If Not IsNull(dbRecord!StrVal.Value) Then
        tmp = dbRecord!StrVal.Value
    Else
        tmp = ""
    End If
    

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