1

全部 ...

我需要显示从 DateTimePickers 传入的两个日期之间的记录。

我得到的记录不在我从 vb.net 指定的日期之间。

请通过下面显示的代码....

以下是代码：

Private Sub btn_Show_Inquiry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Show_Inquiry.Click
    report_viewer_form.Report_viewer_CrystalReportViewer1.ReportSource = Nothing
    report_viewer_form.Report_viewer_CrystalReportViewer1.Refresh()
    str1 = "SELECT * FROM Inquiry_Details WHERE Inquiry_Date>=#" & dtp_inq_from.Text & "# AND Inquiry_Date<=#" & dtp_inq_to.Text & "#"

    If dtp_inq_from.Text > dtp_inq_to.Text Then
        MessageBox.Show("FROM_DATE Must Be Less Then TO_DATE.", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Exit Sub
    End If
    If cn.State <> ConnectionState.Open Then
        cn.Open()
    End If
    da = New OleDbDataAdapter(str1, cn)

    report_dataset = New DataSet
    da.Fill(report_dataset, "table2")
    If MsgBox("Do You Want to Print Report ?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
        report_viewer_form.Show()
        Dim cr As New ReportDocument
        cr = New Inquiry_CrystalReport
        cr.SetDataSource(report_dataset.Tables("table2"))
        report_viewer_form.Report_viewer_CrystalReportViewer1.ReportSource = cr
    End If
End Sub
4

1 回答 1

3

您的问题似乎在于您解析传递给查询的日期参数的方式，并且它们可能不是 Access 将识别为有效日期类型的格式。尝试使用CDate()函数让 Access 将您的输入值正确解析为其内部日期类型。它将接受任何有效的date expression：

任何可以解释为日期的表达式，包括日期文字、看起来像日期的数字、看起来像日期的字符串以及从函数返回的日期。日期表达式仅限于可以表示从 100 年 1 月 1 日到 9999 年 12 月 31 日的日期的任意组合的数字或字符串。

因此，您的代码可能如下所示：

str1 = "SELECT * FROM Inquiry_Details WHERE Inquiry_Date>=CDate('" & 
       dtp_inq_from.Text & "') AND Inquiry_Date<=CDate('" & 
       dtp_inq_to.Text & "')"

您可能想尝试的另一个功能（如果CDate不会削减它）是DateValue()：

所需的日期参数通常是一个字符串表达式，表示从 100 年 1 月 1 日到 9999 年 12 月 31 日的日期。但是，日期也可以是可以表示该范围内的日期、时间或日期和时间的任何表达式.

这两个函数的成功可能还取决于输入日期格式和系统区域设置。

于 2013-01-29T03:38:12.023 回答