Access VBA执行SQL查询遇-2147217913错误（数据类型不匹配）

核心触发原因 #

你的SQL语句里把UserForm.txt_certificado.Value用单引号包裹，强制将其作为字符串处理，但如果Access表TbApolice中的Contrato字段是数字类型（整数、长整型等），就会直接触发"表达式中的数据类型不匹配"错误，这是该错误码最常见的诱因。

具体修复及优化步骤 #

1. 修正SQL语句格式
   根据Contrato字段的实际类型调整写法：

   • 若为数字类型：去掉单引号

     rs.Open "SELECT * FROM TbApolice WHERE Contrato=" & UserForm.txt_certificado.Value, db, adOpenKeyset, adLockReadOnly
     

   • 若为文本类型：保留单引号，但要提前处理空输入（避免生成WHERE Contrato=''的无效条件）

2. 调整代码逻辑顺序
   当前代码先执行查询再判断输入是否为空，会导致空输入时依然执行无效SQL，大概率触发错误。应先判断输入有效性，再执行查询：

   Sub pesquisar()
       Set rs = New ADODB.Recordset
       
       If UserForm.txt_certificado.Value <> "" Then
           conectdb
           ' 根据Contrato字段类型选择对应SQL格式
           rs.Open "SELECT * FROM TbApolice WHERE Contrato=" & UserForm.txt_certificado.Value, db, adOpenKeyset, adLockReadOnly
           
           If Not rs.EOF Then ' 检查是否查询到有效数据
               UserForm.txt_nome = rs!Nome
               UserForm.txt_cpf = rs!CPF
               UserForm.txt_iniciovigencia = rs!Inicio_vigencia
               UserForm.txt_fimvigencia = rs!Fim_de_vigencia
               UserForm.txt_premio = rs!Premio
           Else
               MsgBox "Segurado não localizado", vbInformation, "LOCALIZAR"
               ' 清空表单控件避免残留旧数据
               UserForm.txt_nome = ""
               UserForm.txt_cpf = ""
               UserForm.txt_iniciovigencia = ""
               UserForm.txt_fimvigencia = ""
               UserForm.txt_premio = ""
           End If
           
           rs.Close
           Set rs = Nothing
           fechadb
       Else
           MsgBox "请输入证书编号", vbInformation, "LOCALIZAR"
       End If
   End Sub
   

3. 额外排查方向

   • 确认Contrato字段类型：打开Access表的设计视图，核对字段类型是否与你预期一致（比如是否误设为日期/自动编号）
   • 处理特殊格式：如果Contrato是日期类型，需要用#包裹值，例：WHERE Contrato=#" & Format(UserForm.txt_certificado.Value, "yyyy-mm-dd") & "#"
   • 规避SQL注入风险：建议使用参数化查询替代字符串拼接，示例：

     rs.Open "SELECT * FROM TbApolice WHERE Contrato=?", db, adOpenKeyset, adLockReadOnly
     rs.Parameters(0).Value = UserForm.txt_certificado.Value
     

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