Дисплей Запись По DateTimePicker

Question

У меня есть база данных, созданная с помощью MS Access 2007. Она содержит таблицу tbl_Order с колоннами

Customer_Name, Dress_Type, Quantity, Date_Of_Pickup 

я могу отобразить запись в DataGridView, используя этот код: -

Private Sub dgvCurrentOrder() 
     Dim con As New OleDb.OleDbConnection 
     con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Documents\Visual Studio 2012\Projects\TMS Final\TMS Final\db\db_TMS.accdb" 

     If Not con.State = ConnectionState.Open Then 
      con.Open() 
     End If 

     Dim ds As New DataSet 
     Dim dt As New DataTable 
     ds.Tables.Add(dt) 
     Dim da As New OleDb.OleDbDataAdapter 

     da = New OleDb.OleDbDataAdapter("SELECT Customer_Name, Dress_Type, Quantity, Date_Of_Pickup " & _ 
             "FROM tbl_order " & _ 
             "ORDER BY Date_Of_Pickup ", con) 

     dt.Clear() 
     da.Fill(dt) 

     dgvReminder.DataSource = dt.DefaultView 

     dgvReminder.SelectionMode = DataGridViewSelectionMode.FullRowSelect 
    End Sub 

отображает все заказы из базы данных .. но я хочу только показать заказ с текущего месяца ..

Date_Of_Pickup в этом формате = "28-Dec-2013"

Я добавил `DateTimePicker, и модифицированный запрос к этому: -

da = New OleDb.OleDbDataAdapter("SELECT Customer_Name, Dress_Type, Quantity, Date_Of_Pickup " & _ 
             "FROM tbl_order " & _ 
             "WHERE Date_Of_Pickup = " & dtpCurrent.Value.Month & " " & _ 
             "ORDER BY Date_Of_Pickup ", con) 

Я получаю сообщение об ошибке

Тип данных несоответствие критериям экспрессии

Что мне делать?

Answer 1

Следующий код выбирает строки, где столбец Date_Of_Pickup больше, чем в последний день предыдущего месяца.

Dim cmd As OleDbCommand = con.CreateCommand() 

cmd.CommandText = "SELECT Customer_Name, Dress_Type, Quantity, Date_Of_Pickup " & _ 
           "FROM tbl_order " & _ 
           "WHERE Date_Of_Pickup > @DATE " & _ 
           "ORDER BY Date_Of_Pickup " 

Dim d As Date = dtpCurrent.Value 

cmd.Parameters.AddWithValue("@DATE", New Date(d.Year, d.Month, 1, 23, 59, 59, 997).AddDays(-1.0#)) 


da = New OleDb.OleDbDataAdapter(cmd) 

Если бы извлечь строки из последних 30 дней, вы делаете:

cmd.Parameters.AddWithValue("@DATE", Date.Now.AddDays(-30.0#))