在数据库中获取日期时出错（BETWEEN 子句| VB.NET|OLE）

Question

不久之前，我使用代码从数据库中获取两个日期之间的日期（日期为 dd/mm/yy 的列），我认为第一次效果很好，代码是：

      Dim b As New Date
            Dim a As Integer
            a = Val(tx2.Text)
            b = System.DateTime.Today
            b = b.AddDays(-a)

             MsgBox(b)
 Conn.Open()
  SQLstr = " Select * from tb where lastvstart BETWEEN #01/01/1800# AND #" & b & "#"
 Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
   DataSet1.Clear()

        DataAdapter1.Fill(DataSet1, "Tb")
        Conn.Close()

如你所见，代码让用户插入一个数字并减去它形成今天的日期，然后计算我想要的日期，然后我使用 BETWEEN 子句获取它们之间的所有日期

但是现在，这段代码获取了一些数据并超过了其他的，我的意思是一些日期在两个日期之间，但代码永远不会得到它，为什么会发生这种情况？

Answer 1

如果您查看生成的 SQL 字符串，它是否包含您期望的日期？我假设数据库要求它遵循特定的格式（dd/MM/yyyy 或MM/dd/yyyy 给定查询中的硬编码日期）。当日期的字符串版本被创建并插入到您的 SQL 查询中时，您的日期和月份会切换位置吗？

作为旁注，我强烈建议不要像这样将 SQL 查询连接在一起。如果可能，请改用参数化查询。这也可能消除一些类型转换问题。

更新
下面是通过 OLE DB 对 Access 数据库使用参数化查询的示例：

Using connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""C:\path\file.mdb""")
    Using cmd As New OleDbCommand("select * from tb where lastvstart BETWEEN ? AND ?", connection)

        Dim param As OleDbParameter

        ' add first date '
        param = New OleDbParameter()
        param.DbType = DbType.Date
        param.Value = New DateTime(1800, 1, 1)
        cmd.Parameters.Add(param)

        'add second date '
        param = New OleDbParameter()
        param.DbType = DbType.Date
        param.Value = DateTime.Today.AddDays(-a)
        cmd.Parameters.Add(param)
        cmd.Parameters.Add(New OleDbParameter())

        connection.Open()
        Using adapter As New OleDbDataAdapter(cmd)
            Using ds As New DataSet()
                adapter.Fill(ds)
                Console.WriteLine(ds.Tables(0).Rows.Count)
            End Using ' DataSet ' 
        End Using ' OleDbDataAdapter '
    End Using ' OleDbCommand '
End Using ' OleDbConnection ' 

Answer 2

能不能不把Sqlstr改成

SQLstr = " Select * from tb where lastvstart <= '" & b.ToString("dd MMM yyyy") & "'";

编辑，根据数据库更改

使用这个字符串并检查它是否有效

SQLstr = " Select * from tb where lastvstart <= #" & b.ToString("dd MMM yyyy") & "#";