2 DATATIMEPICKER PROBLEM CANNOT SEARCH DATE DATA IN TABLE DATABASE

[clynnekent]

Good day everyone,I need your help how to search or filter Data in Table using 2 DataTimePicker. I already created a code and I don't know where my mistake is. I'm using VB 2010 and MS Access 2007-2010 Database.


I Pick Date from Picker1 with range Picker2 using that code. Product that Posted on that range Date cannot be displayed.Anyone can help me to solve my problem.


My Code:


If cmbsearchtotal.Text = "Total Product" Then
cmd = New OleDbCommand("SELECT * FROM tblproduct WHERE Date_Posted>= '" & dtpprodstart.Value & "' AND Date_Posted<='" & dtpprodend.Value & "'", cn)


da.SelectCommand = cmd
dt.Clear()
da.Fill(dt)


DataGridView1.DataSource = dt

DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
DataGridView1.Columns(0).HeaderText = "Product ID"
DataGridView1.Columns(0).Width = "120"
DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(1).HeaderText = "Product Name"
DataGridView1.Columns(1).Width = "240"
DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(2).HeaderText = "Quantity"
DataGridView1.Columns(2).Width = "70"
DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(3).HeaderText = "Product Unit"
DataGridView1.Columns(3).Width = "70"
DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(4).HeaderText = "Price"
DataGridView1.Columns(4).Width = "70"
DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(5).HeaderText = "Date Posted"
DataGridView1.Columns(5).Width = "150"
DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(6).HeaderText = "Categories"
DataGridView1.Columns(6).Width = "130"
DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(7).HeaderText = "Total"
DataGridView1.Columns(7).Width = "115"
DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

Dim sum As Integer = 0
For t As Integer = 0 To DataGridView1.Rows.Count - 1 Step +1
sum = sum + DataGridView1.Rows(t).Cells(7).Value
Next

TextBox1.Text = sum

ds.Clear()
End If


Thanks in advance

clynnekent

Continue reading...