VB双文本框数据库搜索时单输入触发>=条件语法错误问题咨询

DevOps 小满

2026-8-29

问题现象

数据库搜索功能绑定两个文本框作为查询条件输入项，实际使用时不会每次都同时填写两个文本框
仅填写任意一个文本框执行搜索时，程序抛出错误：Syntax error missing operator in query expression
错误触发特征：由未填写的空文本框引发，仅在查询条件使用>=比较运算符时复现，当前逻辑强制要求两个关联文本框必须同时填入内容才能正常查询
原有实现代码如下：

Sub search()
    Try
        DataGridRecords.Rows.Clear()
        conn.Open()
        Dim cmd As New OleDb.OleDbCommand("Select * from tblDies where  `IDSIZE` >= " & txtIdSize.Text & " OR `ODSIZE` >= " & txtOdSize.Text & " ", conn)            
        dr = cmd.ExecuteReader
        While dr.Read
            DataGridRecords.Rows.Add(dr.Item("ID"), dr.Item("DIENUMBER"), dr.Item("DESCRIPT"), dr.Item("OLDNUMBER"), dr.Item("CODE"), dr.Item("QUANTITY"), dr.Item("IDSIZE"), dr.Item("ODSIZE"), dr.Item("HEIGHT"), dr.Item("FLANGE HT"), dr.Item("FLANGE DIA"), dr.Item("CuRef"), dr.Item("CUTEL"), dr.Item("CuContact"), dr.Item("Price-selling"), dr.Item("P/no"), dr.Item("Stoksize"), dr.Item("Material"), dr.Item("Shore"), dr.Item("DieChkd"), dr.Item("DIECOST"), dr.Item("DATE"), dr.Item("REMARKS"), dr.Item("PRREF"))
        End While
        dr.Close()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
    conn.Close()
End Sub

错误原因

原有代码采用直接拼接字符串的方式生成SQL语句，当某个文本框为空时，拼接出来的SQL会出现语法断裂，例如仅填写txtIdSize时，生成的SQL片段为 `ODSIZE` >= ，比较运算符后无有效值，数据库引擎无法解析该表达式，因此抛出语法错误。
注：该问题本质是SQL拼接不严谨导致的语法错误，和>=运算符本身无直接关联，只要是比较运算符后接空内容都会触发同类错误。
除此之外，直接拼接用户输入内容的写法还存在SQL注入风险，不符合数据库操作的安全规范。

修复方案

采用动态拼接条件+参数化查询的方式实现：

先校验输入合法性，避免无效值、空值传入查询逻辑
逐个判断文本框输入内容是否有效，仅将有合法输入的条件追加到WHERE子句中，同时为对应条件添加查询参数
增加空输入判断，避免两个文本框都为空时执行无意义的全表扫描
采用Using语句释放数据库连接、命令、读取器占用的资源，避免资源泄漏

修复后的代码如下：

Sub search()
    DataGridRecords.Rows.Clear()
    ' 校验输入：至少填一个查询值，且输入内容必须是合法数值
    Dim idSizeVal As Double
    Dim odSizeVal As Double
    Dim hasIdSize = Double.TryParse(txtIdSize.Text.Trim(), idSizeVal)
    Dim hasOdSize = Double.TryParse(txtOdSize.Text.Trim(), odSizeVal)

    If Not hasIdSize And Not hasOdSize Then
        MsgBox("请至少输入一个尺寸查询条件")
        Return
    End If

    ' 动态构造SQL语句
    Dim sql As String = "SELECT * FROM tblDies WHERE "
    Dim conditions As New List(Of String)()
    Dim parameters As New List(Of OleDb.OleDbParameter)()

    If hasIdSize Then
        conditions.Add("`IDSIZE` >= ?")
        parameters.Add(New OleDb.OleDbParameter With {.Value = idSizeVal})
    End If
    If hasOdSize Then
        conditions.Add("`ODSIZE` >= ?")
        parameters.Add(New OleDb.OleDbParameter With {.Value = odSizeVal})
    End If

    sql &= String.Join(" OR ", conditions)

    ' 执行查询，Using块会自动释放非托管资源
    Using conn As New OleDb.OleDbConnection("替换为你实际的数据库连接字符串")
        Using cmd As New OleDb.OleDbCommand(sql, conn)
            cmd.Parameters.AddRange(parameters.ToArray())
            conn.Open()
            Using dr = cmd.ExecuteReader()
                While dr.Read()
                    DataGridRecords.Rows.Add(dr.Item("ID"), dr.Item("DIENUMBER"), dr.Item("DESCRIPT"), dr.Item("OLDNUMBER"), dr.Item("CODE"), dr.Item("QUANTITY"), dr.Item("IDSIZE"), dr.Item("ODSIZE"), dr.Item("HEIGHT"), dr.Item("FLANGE HT"), dr.Item("FLANGE DIA"), dr.Item("CuRef"), dr.Item("CUTEL"), dr.Item("CuContact"), dr.Item("Price-selling"), dr.Item("P/no"), dr.Item("Stoksize"), dr.Item("Material"), dr.Item("Shore"), dr.Item("DieChkd"), dr.Item("DIECOST"), dr.Item("DATE"), dr.Item("REMARKS"), dr.Item("PRREF"))
                End While
            End Using
        End Using
    End Using
End Sub

注意：OleDb的参数是按添加顺序匹配SQL中的?占位符，不是按参数名匹配，追加条件和参数的顺序必须保持一致。

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