[Emam emam]

السلام عليكم اخوتي
عندي سؤال عن عملية البحث العاديه ولكن انا اريد ان ابحث بين تاريخين 
مع العلم ان التاريخ المحفوظ في الجدول محفوظ معه الوقت ايضا بهذا الشكل   05/03/2019 11:57:49 AM
مثلا اريد عرض البيانات المسجله من 01/03/2019  الي   05/03/2019
وهذه البيانات مسجله في قاعدة البيانات بهذا الشكل 05/03/2019 11:57:49 AM
وده الكود المستخدم

PHP كود :

Dim searchDate1 As Date = DateTimePicker1.Value
                Dim searchDate2 As Date = DateTimePicker2.Value
                dtAnalysisSearch.Clear()
                daAnalysisSearch = New OleDbDataAdapter("select * from Analysis_Table where RegistrationDate >= # " & searchDate1.Year & " / " & searchDate1.Month & " / " & searchDate1.Day & "# and RegistrationDate <= # " & searchDate2.Year & " / " & searchDate2.Month & " / " & searchDate2.Day & "# ", connAccess2007)
                daAnalysisSearch.Fill(dtAnalysisSearch)
                DataGridView1.DataSource = (dtAnalysisSearch) 


[ابراهيم ايبو]

السلام عليكم اخي الكريم
تفضل هذا الكود وغير الحقول والاسماء حسب ماعندك

كود :

 Private Sub Btn_SearchBetween_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_SearchBetween.Click
       Try
           Dim dt As New DataTable
           Dim da As New OleDbDataAdapter
           dt.Clear()
           da = New OleDbDataAdapter("select * from Personal where Bday Between  #" & DateTimePicker2.Value & "# and #" & DateTimePicker3.Value & "#", con)
           da.Fill(dt)
           dgv_table.DataSource = dt
       Catch ex As Exception
       End Try
   End Sub

[Emam emam]

السلام عليكم اخي الكريم
تفضل هذا الكود وغير الحقول والاسماء حسب ماعندك

كود :

 Private Sub Btn_SearchBetween_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_SearchBetween.Click
       Try
           Dim dt As New DataTable
           Dim da As New OleDbDataAdapter
           dt.Clear()
           da = New OleDbDataAdapter("select * from Personal where Bday Between  #" & DateTimePicker2.Value & "# and #" & DateTimePicker3.Value & "#", con)
           da.Fill(dt)
           dgv_table.DataSource = dt
       Catch ex As Exception
       End Try
   End Sub

بارك الله فيك اخي  ابراهيم
سأجرب الكود وإن شاء الله ينجح

[Emam emam]

السلام عليكم اخي الكريم
تفضل هذا الكود وغير الحقول والاسماء حسب ماعندك

كود :

 Private Sub Btn_SearchBetween_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_SearchBetween.Click
       Try
           Dim dt As New DataTable
           Dim da As New OleDbDataAdapter
           dt.Clear()
           da = New OleDbDataAdapter("select * from Personal where Bday Between  #" & DateTimePicker2.Value & "# and #" & DateTimePicker3.Value & "#", con)
           da.Fill(dt)
           dgv_table.DataSource = dt
       Catch ex As Exception
       End Try
   End Sub

السلام عليكم 
اعتذر اخي ابراهيم علي التاخير في الرد
جربت الكود والكود نجح والحمد لله ولكن هناك مشكله بسيطه
هي اذا اردت مثلا النتائج التي بتاريخ 14/3/2019
اقوم بتحديد هذا التاريخ في اداة Date time piker2 
فيقوم بعرض النتائج التي بتاريخ 13/3/2019
يعني بينقص يوم 
ارجو ان اجد الحل

[ابراهيم ايبو]

 وعليكم السلام  اخي الكريم  Eman

يبدو ان صيغة التاريخ في الجهاز لديك هكذا  dd/MM/yyyy

قم بتغييرها الى MM/dd/yyyy وسيعمل معك الكود بشكل صحيح ان شاء الله

او قم بتغيير جملة الاستعلام الى هكذا بعني زبادة يوم

كود :

           da = New OleDbDataAdapter("select * from Personal where Bday Between  #" & DateTimePicker2.Value & "# and #" & DateTimePicker3.Value.AddDays(1) & "#", con)

[Emam emam]

 وعليكم السلام  اخي الكريم  Eman

يبدو ان صيغة التاريخ في الجهاز لديك هكذا  dd/MM/yyyy

قم بتغييرها الى MM/dd/yyyy وسيعمل معك الكود بشكل صحيح ان شاء الله

او قم بتغيير جملة الاستعلام الى هكذا بعني زبادة يوم

كود :

           da = New OleDbDataAdapter("select * from Personal where Bday Between  #" & DateTimePicker2.Value & "# and #" & DateTimePicker3.Value.AddDays(1) & "#", con)

تسلم ايدك ياباشا
الكود اشتغل تمام 
جزاك الله خير الجزاء

[ابراهيم ايبو]

الحمد لله والشكر لله

والصلاة والسلام على رسول الله

وتسلم أخي Emam

[5000]

استخدم البارامتر بالطريقة التالية

daAnalysisSearch = New OleDbDataAdapter("select * from Analysis_Table where RegistrationDate BETWEEN @date1 AND @date2", connAccess2007)
daAnalysisSearch.selectcommand.parameters.addwithvalue("@date1",DateTimePicker1.Value.Date)
daAnalysisSearch.selectcommand.parameters.addwithvalue("@date2",DateTimePicker2.Value.Date)