Question

每个人似乎都讨厌DateTime值。

在我的项目中，我有一个SQL SELECT查询来查找数据库中与参数值匹配的结果。

我的代码是：

Dim where As String = "WHERE [Supp_Code] = @scode " & _
    "AND [DateFrom] = @datfrom " & _
    "AND [DateTo] = @datto " & _
    "AND [Comm_Code] = @ccode " & _
    "AND [Customer_Code] = @custcode "

Dim sql As String = "SELECT [Comm_Code], [AqYear] FROM [Acquisition Commission] "

sql &= where & " ORDER BY [AqYear] ASC"

Dim cmd As New OleDb.OleDbCommand(sql, con)
cmd.Parameters.AddWithValue("@scode", cmbSupp.Text.Trim)
cmd.Parameters.AddWithValue("@datfrom", datFrom.Value)
cmd.Parameters.AddWithValue("@datto", datTo.Value)
cmd.Parameters.AddWithValue("@ccode", txtCommCode.Text)
cmd.Parameters.AddWithValue("@custcode", cmbCustomerCode.Text)

Dim daYear As New OleDb.OleDbDataAdapter(cmd)
Dim dsYear As New DataSet
daYear.Fill(dsYear)

代码本身没有问题。问题是DataSet只有0行，因为DateTime格式datFrom.Value（DateTimePicker控件）是'MM / dd / yyyy'，但在数据库中它存储为'dd / MM / yyyy'。

在将其用作参数之前，将正确的数据库格式转换为最简单的方法是什么？

修改

使用下面的评论/答案，我已将我的代码改编为以下内容：

 Dim test As DateTime
 Dim test2 As DateTime
    test = ugDates.ActiveRow.Cells("DateFrom").Value
    test = ugDates.ActiveRow.Cells("DateTo").Value

 Try
  Dim where As String = "WHERE [Supp_Code] = @scode " & _
       "AND [DateFrom] = @datfrom " & _
       "AND [DateTo] = @datto " & _
       "AND [Comm_Code] = @ccode " & _
       "AND [Customer_Code] = @custcode "

Dim sql As String = "SELECT DISTINCT [Comm_Code], [AqYear] FROM [Acquisition Commission] "

    sql &= where & " ORDER BY [AqYear] ASC"

    Dim cmd As New OleDb.OleDbCommand(sql, con)
     cmd.Parameters.Add("@scode", OleDbType.VarChar).Value = cmbSupp.Text
     cmd.Parameters.Add(New OleDbParameter("@datfrom", OleDbType.Date).Value = test)
     cmd.Parameters.Add(New OleDbParameter("@datto", OleDbType.Date).Value = test2)
     cmd.Parameters.Add("@ccode", OleDbType.VarChar).Value = txtCommCode.Text
     cmd.Parameters.Add("@custcode", OleDbType.VarChar).Value = cmbCustomerCode.Text

但是，它在第二个参数上给出了以下错误：

OleDbParameterCollection只接受非null的OleDbParameter类型对象，而不接受布尔对象。

Answer 1

问题是DataSet只有0行，因为datFrom.Value（它是一个DateTimePicker控件）的DateTime格式是＆＃39; MM / dd / yyyy＆＃39;，但在数据库中它是存储为＆＃39; dd / MM / yyyy＆＃39;。

除非您将日期存储为字符串，否则这可能不是问题。日期是结构，而不是字符串，并且本质上没有格式。格式化是应用于字符串的内容。它类似于一个像int或decimal的数字。如果此字段确实是字符串，则应重新访问模式并相应地更新类型。

您很可能尝试将参数值或查询值中的日期与时间进行比较。

使用DateValue函数修剪存储数据库的时间
在日期值上使用.Date仅比较值日期

代码：

Dim where As String = "WHERE [Supp_Code] = @scode " & _
        "AND DateValue([DateFrom]) = @datfrom " & _ 
        "AND DateValue([DateTo]) = @datto " & _
        "AND [Comm_Code] = @ccode " & _
        "AND [Customer_Code] = @custcode "


// select either OleDbType.Date or OleDbType.DBDate

cmd.Parameters.Add(new OleDbParameter("@datfrom", OleDbType.Date) With {.Value = datFrom.Value.Date})
cmd.Parameters.Add(new OleDbParameter("@datto", OleDbType.Date) With {.Value = datTo.Value.Date})

另一个可能的问题是逻辑，为什么不在DateFrom和DateTo之间进行中间检查或范围检查而不是等式检查？

"AND DateValue([DateFrom]) >= @datfrom " & _ 
"AND DateValue([DateTo]) <= @datto " & _

理想情况下，您会在@datfrom和@datto使用相同的值。上面的查询将是具有跨越传入日期参数的开始/结束日期的任何项目。

更改日期时间值

1 个答案: