[ابو يوسف النواوي 2]

كود :

DataGridView1.DataSource = Nothing
       Dim sql = "SELECT * FROM tb_name WHERE VoucherDate= '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' "
       Dim adp As New SqlClient.SqlDataAdapter(sql, cn)
       Dim ds As New DataSet
       adp.Fill(ds)
       Dim dt = ds.Tables(0)
       DataGridView1.DataSource = dt

بحث بين تاريخين

كود :

DataGridView1.DataSource = Nothing
       Dim sql = "SELECT         * from tb_name WHERE     VoucherDate>= '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "'and  VoucherDate<= '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "'ORDER BY VoucherDate "
       Dim adp As New SqlClient.SqlDataAdapter(sql, cn)
       Dim ds As New DataSet
       adp.Fill(ds)
       Dim dt = ds.Tables(0)
       DataGridView1.DataSource = dt