日期SQL语句(使用MS Access)

问题描述

& < <code><code><code>

以下代码不返回任何值，有人可以帮助我吗?我为此一直奋斗了一个小时.在此先感谢.

The following code does not return any values, can anyone help me? I have been struggling for an hour with this. Thanks in Advance.

Dim conn As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand
        Dim da As New OleDb.OleDbDataAdapter
        Dim dsLocal As New DataSet
        Dim salesFrom As Date = dtpFrom.Text
        Dim salesTo As Date = dtpTo.Text
        Dim FromDate As String = Format(salesFrom, "dd/MM/yyyy")
        Dim ToDate As String = Format(salesTo, "dd/MM/yyyy")

        Try


        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\mrs-v4\mrs-v4-" & LogOn.mDatabaseName & ".mdb"
        cmd.Connection = conn
        cmd.CommandType = CommandType.Text

   <pre lang="vb">cmd.CommandText = "Select [docket#],consignmentID, date_sold, qty, amount, vat,[accsale#] From sale where consignmentID >=" & txtConsID_Sales.Text & " AND date_sold >= " & FromDate & " AND  date_sold <= " & ToDate

da.SelectCommand = cmd
dsLocal.Tables.Add("sample")
dsLocal.Tables("sample").Clear()
conn.Open()
da.SelectCommand.ExecuteNonQuery()
da.Fill(dsLocal.Tables("sample"))
conn.Close()

Me.dgvSales.DataSource = dsLocal.Tables("sample")

conn.Dispose()

ds = dsLocal

da.Dispose()
dsLocal.Dispose()
cmd.Dispose()
异常捕获

结束尝试
结束Sub

da.SelectCommand = cmd
dsLocal.Tables.Add("sample")
dsLocal.Tables("sample").Clear()
conn.Open()
da.SelectCommand.ExecuteNonQuery()
da.Fill(dsLocal.Tables("sample"))
conn.Close()

Me.dgvSales.DataSource = dsLocal.Tables("sample")

conn.Dispose()

ds = dsLocal

da.Dispose()
dsLocal.Dispose()
cmd.Dispose()
Catch ex As Exception

End Try
End Sub

推荐答案

Select [docket#],consignmentID, date_sold, qty, amount, vat,[accsale#] From sale where consignmentID >=" & txtConsID_Sales.Text & " AND date_sold >= CDATE(''" & FromDate & "'') AND  date_sold <= CDATE(''" & ToDate & "'')"

这篇关于日期SQL语句(使用MS Access)的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！