[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