VB.NET使用OleDb查询dBase数据库出现语法错误求解决方案

你代码中的所有报错均由SQL语法不兼容dBase IV对应Jet引擎、语法符号错误导致，具体问题和修正方案如下： #

已识别的错误点 #

• SQL语句多余括号：原查询中FROM IFG (WHERE ...)的前后括号完全不符合SQL语法规范，是触发FROM子句语法错误的直接原因。
• 函数使用不兼容：Jet OLEDB 4.0操作dBase IV时，ISNULL仅支持1个入参（用于判断值是否为空，返回布尔结果），你使用的双参数ISNULL(@ITM, '')是SQL Server专属语法，直接触发函数参数数量错误。
• 逻辑优先级错误：未对OR关联的条件加括号，会导致筛选逻辑不符合预期：原写法会优先执行QOH>0 AND ITM=@ITM，再和参数为空的判断做OR运算，实际需要保证QOH>0是必选条件，再匹配ITM或参数为空的规则。
• 连接字符串解析风险：Extended Properties属性值包含空格，未用引号包裹可能导致引擎解析连接字符串失败。
• 参数值处理遗漏：如果下拉框未选中任何项，SelectedValue为Nothing，直接传入OleDb参数会导致条件判断失效。

修正后的完整代码 #

Private Sub PopulateDataGridView()
    ' 修正SQL语法，去掉多余括号，替换不兼容的ISNULL写法，调整逻辑优先级
    Dim query = "select ITM,ITC,QOH,PRS FROM IFG WHERE QOH > 0 AND (ITM = @ITM OR @ITM IS NULL OR @ITM = '')"
    ' 连接字符串给Extended Properties加引号避免解析错误
    Dim constr As String = "provider=Microsoft.Jet.OLEDB.4.0; data source=C:\Users\ADMIN2\Desktop; Extended Properties=""dBase IV"""
    Using con As OleDbConnection = New OleDbConnection(constr)
        Using cmd As OleDbCommand = New OleDbCommand(query, con)
            ' 处理下拉框未选中时空值的情况
            Dim paramValue As Object = If(cbCountries.SelectedValue, DBNull.Value)
            If TypeOf paramValue Is String AndAlso String.IsNullOrWhiteSpace(CStr(paramValue)) Then
                paramValue = DBNull.Value
            End If
            cmd.Parameters.AddWithValue("@ITM", paramValue)
            Using sda As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                Dim dt As DataTable = New DataTable()
                sda.Fill(dt)
                dataGridView1.DataSource = dt
            End Using
        End Using
    End Using
End Sub

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