[vb2010]

السلام عليكم
ما هو كود البحث عن تاريخ باستخدام datetimepicker فى sql server كود vb.net

[vb2010]

كود :

للبحث عن تاريخ واحد

Public Sub search_date()
       dt_bank.Clear()
       Select Case Me.CmbField.SelectedIndex
           Case 11
               da_bank = New SqlDataAdapter("SELECT * FROM bank WHERE bank_date = '" & Me.DateTimePicker0.Text & "'order by bank_id", Con)
       End Select
       da_bank.Fill(dt_bank)
       DGVSearch.DataSource = dt_bank
   End Sub

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

كود :

   Public Sub search_between2date()
       dt_bank.Clear()
       Select Case Me.CmbField.SelectedIndex
           Case 11
               da_bank = New SqlDataAdapter("SELECT * FROM bank WHERE bank_date > '" & Me.DateTimePicker1.Text & "' AND bank_date < '" & Me.DateTimePicker2.Text & "'order by bank_date", Con)
               da_bank.Fill(dt_bank)
               DGVSearch.DataSource = dt_bank
       End Select
   End Sub

[ابو يوسف النواوي 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