[khaled12345]

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

عملت مشروع صضغير للبحث بالتاريخ  والحمد لله نجح في البحث

وايضا البحث بين تاريخين  ولكن للاسف لم يعمل

فبرجاء المساعدة في هذا الكود

المشروع موجود بالمرفقات

مع الشكر

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

[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)

[khaled12345]

(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)

[alma2]

تأكد التواريخ في قاعدة البيانات

[khaled12345]

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

حاضر

[alma2]

التواريخ في قاعدة البيانات لديك شهر 2 وشهر 3

[khaled12345]

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

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

حاضر



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

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


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

[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

[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