(19-05-17, 10:20 PM)alma2السلام عليكم أستاذنا الفاضل مشكور علي الرد والمساعدة وضعت نفس الكود ولكن مع الاسف لم يعمل كتب :

كود :

       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)

(19-05-17, 11:00 PM)alma2 كتب : تأكد التواريخ في قاعدة البيانات

(19-05-17, 11:02 PM)khaled12345 كتب :

(19-05-17, 11:00 PM)alma2 كتب : تأكد التواريخ في قاعدة البيانات

حاضر



السلام عليكم ورحمة الله

راجعت التواريخ في الدات بيس ووجدتها تمام


وايضا الداتا بيس في المرفقات

(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