VB6.0搜索时始终报‘条件表达式数据类型不匹配’及IADODC刷新失败

错误原因分析 #

• SQL语法错误：Select *from 中*和from之间缺少空格，导致数据库无法正确解析SQL语句
• 数据类型不匹配：如果IDNo是数值类型（比如整数、长整型），用单引号包裹输入值会让数据库把数值当成字符串处理，和字段类型不匹配；如果IDNo是字符串类型则没问题，得根据你的数据库表结构调整
• 字符串拼接风险：用+拼接字符串，当Text1.Text为空时会触发类型错误，还存在SQL注入隐患

修正后的代码 #

Private Sub gosearch_Click()
    Dim sqlStr As String
    ' 注意：如果IDNo是字符串类型，要给值加单引号，比如：IDNo = '" & Replace(Text1.Text, "'", "''") & "'"
    ' 下面假设IDNo是数值类型，Name是字符串类型
    sqlStr = "Select * From StudentsInformation where IDNo = " & Text1.Text & " or Name = '" & Replace(Text1.Text, "'", "''") & "'"
    
    ' 捕获错误，避免程序崩溃
    On Error Resume Next
    adogrid.RecordSource = sqlStr
    adogrid.Refresh
    
    If Err.Number <> 0 Then
        MsgBox "查询出错：" & Err.Description, vbCritical, "错误提示"
        Err.Clear
        On Error GoTo 0
        Exit Sub
    End If
    On Error GoTo 0
    
    ' 同时判断EOF和BOF，确保记录集确实为空
    If adogrid.Recordset.EOF And adogrid.Recordset.BOF Then
        MsgBox "未找到记录，请输入其他学号或姓名", vbCritical, "提示"
    Else
        adogrid.Caption = sqlStr
    End If
End Sub

关键修正点 #

• 修复SQL语法：给*和from之间加上空格，改成* From
• 匹配字段数据类型：根据IDNo的实际类型决定是否加单引号，数值类型直接拼接，字符串类型用单引号包裹，同时用Replace把输入里的单引号换成两个，避免SQL语法错误
• 替换拼接运算符：用VB里更安全的&替代+，就算Text1为空也不会出错
• 添加错误捕获：处理Refresh时的异常，给出具体错误提示，防止程序直接崩溃
• 完善空记录判断：同时检查EOF和BOF，避免因为记录集指针位置问题误判

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