范围查询 ~ VB

Posted 2023-03-23

【中文标题】范围查询 ~ VB

【英文标题】：Range Query ~ VB

【发布时间】：2021-06-02 17:12:12

【问题描述】：

尝试执行 OleDbCommand 在 Excel 工作表中查找一行。每行在不同的单元格中都有一个低数字和一个高数字。没有行有重叠的数字。我没有得到任何结果或错误。虽然我知道我是一个行的范围。 205221 是工作表名称。 StartSerial 和 StopSerial 是列标题。我需要改用列字母吗？

***编辑：示例数据：

Job	Descript	StartSerial	StopSerial
55555	Job1	44334	44897
55556	Job2	44898	45001
55557	Job3	45002	46001

comm = New OleDbCommand("SELECT * from [205221$] WHERE (StartSerial) <= " & serial & " AND (StopSerial) >= " & serial, conn)
Try
    dr = comm.ExecuteReader
Catch ex As Exception
    MsgBox(ex)
End Try
While dr.Read
    Dim jobNum = dr("Job").ToString
    Dim jobName = dr("Descript").ToString
    TextBox1.AppendText(jobNum & " " & jobName)
End While

【问题讨论】：

您的查询没有意义。将serial 替换为1，得到WHERE (StartSerial) >= 1 and (StopSerial) <=1。这相当于说 StartSerial 和 StopSerial 等于 1。

@Jimi 是的，这些来自第一行/标题。我在括号中有这两个名字。

@David 即使使用 '>=' 和 '

我想我说错了，但我仍然认为它不会给你想要的答案。您能否向我们提供一些您期望返回的示例数据的更新？

@David 我用示例表进行了编辑

【参考方案1】：

尝试执行以下操作：

从列名中删除括号。如果要转义列名，请使用方括号。 尝试转换 WHERE 子句中的列 使用参数化查询

看看这个例子：

Using cmd = New OleDbCommand("SELECT * from [205221$] WHERE CAST([StartSerial] AS INT) >= @0 AND CAST([StopSerial] AS INT) <= @0", conn)
    cmd.Parameters.Add("@0", OleDbType.Integer).Value = serial

    Dim reader = cmd.ExecuteReader()
    While reader.Read()
        ' do something
    End While
End Using

如果serial 等于44898，那么它将返回示例数据集中的第二条记录。

【讨论】：

@David ExecuteReader 行给出 'System.Data.OleDb.OleDbException: 'IErrorInfo.GetDescription failed with E_FAIL(0x80004005).''

令 startSerial = 1000, stopSerial= 2000, serial = 1500。那么 startSerial >= serial 为假，stopSerial

更正了比较，但在 ExecuteReader 行 'System.Data.OleDb.OleDbException: 'IErrorInfo.GetDescription failed with E_FAIL(0x80004005) 上仍然出现此错误。''

@steveo314 请在您的原始代码中尝试正确的比较。

@David 我认为参数名称不能以数字开头。 A-Z 和 a-z 将作为参数名称的第一个字符。

【参考方案2】：

我根据@David 和@AndrewMorton 提供的内容进行了更新。谢谢你的帮助。

Using cmd = New OleDbCommand("SELECT * from [205221$] WHERE [StartSerial] <= ? AND [StopSerial] >= ?", conn)
   cmd.Parameters.Add("?", OleDbType.Integer).Value = serial
   cmd.Parameters.Add("?", OleDbType.Integer).Value = serial
   Dim reader = cmd.ExecuteReader()
   While reader.Read()
       Dim jobNum = reader("Job").ToString
       Dim jobName = reader("Descript").ToString
       TextBox1.AppendText(jobNum & " " & jobName)
   End While
End Using