[khaled12345]

(19-05-17, 11:22 PM)alma2 كتب : اعطيتك التعديلات لجزء من الكود ولكنك حذفت باقي الكود السابق الذي كان عندك سابقا
ارجع للكود السابق في بداية الموضوع وغير الجزئيو التي اعطيك مع الحفاظ على الباقي




تمام تمام يا استاذنا

مشكوووووووووور  ويعطيك العافية

---

كود :

   Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
       Dim dtp1 As Date = Date_Of_Birth_from.Value
       Dim dtp2 As Date = Date_Of_Birth_to.Value
       dt.Clear()
       da = New OleDbDataAdapter("Select * from table1 where Date_of_Birth BETWEEN @dFrom AND @dTo ", con)
       da.SelectCommand.Parameters.AddWithValue("@dFrom", Date_Of_Birth_From.Value.Date)
       da.SelectCommand.Parameters.AddWithValue("@dTo", Date_Of_Birth_To.Value.Date)
       da.Fill(dt)
       DataGridView1.DataSource = dt

       If dt.Rows.Count = 0 Then
           MsgBox("No match found")
           Load_Data()
       End If
   End Sub