منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عرض بيانات في الداتا جريد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عرض بيانات في الداتا جريد فيو (/showthread.php?tid=28867)

عرض بيانات في الداتا جريد فيو - Emam emam - 06-03-19

السلام عليكم اخوتي
عندي سؤال عن عملية البحث العاديه ولكن انا اريد ان ابحث بين تاريخين 
مع العلم ان التاريخ المحفوظ في الجدول محفوظ معه الوقت ايضا بهذا الشكل   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) 


RE: عرض بيانات في الداتا جريد فيو - ابراهيم ايبو - 06-03-19

السلام عليكم اخي الكريم
تفضل هذا الكود وغير الحقول والاسماء حسب ماعندك
كود :
 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


RE: عرض بيانات في الداتا جريد فيو - Emam emam - 09-03-19

(06-03-19, 05:10 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
تفضل هذا الكود وغير الحقول والاسماء حسب ماعندك
كود :
 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
بارك الله فيك اخي  ابراهيم
سأجرب الكود وإن شاء الله ينجح

RE: عرض بيانات في الداتا جريد فيو - Emam emam - 14-03-19

(06-03-19, 05:10 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
تفضل هذا الكود وغير الحقول والاسماء حسب ماعندك
كود :
 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
يعني بينقص يوم 
ارجو ان اجد الحل

RE: عرض بيانات في الداتا جريد فيو - ابراهيم ايبو - 15-03-19

 وعليكم السلام  اخي الكريم  Eman
يبدو ان صيغة التاريخ في الجهاز لديك هكذا  dd/MM/yyyy
قم بتغييرها الى MM/dd/yyyy وسيعمل معك الكود بشكل صحيح ان شاء الله
او قم بتغيير جملة الاستعلام الى هكذا بعني زبادة يوم
كود :
           da = New OleDbDataAdapter("select * from Personal where Bday Between  #" & DateTimePicker2.Value & "# and #" & DateTimePicker3.Value.AddDays(1) & "#", con)


RE: عرض بيانات في الداتا جريد فيو - Emam emam - 15-03-19

(15-03-19, 02:41 AM)ابراهيم ايبو كتب :
 وعليكم السلام  اخي الكريم  Eman
يبدو ان صيغة التاريخ في الجهاز لديك هكذا  dd/MM/yyyy
قم بتغييرها الى MM/dd/yyyy وسيعمل معك الكود بشكل صحيح ان شاء الله
او قم بتغيير جملة الاستعلام الى هكذا بعني زبادة يوم
كود :
           da = New OleDbDataAdapter("select * from Personal where Bday Between  #" & DateTimePicker2.Value & "# and #" & DateTimePicker3.Value.AddDays(1) & "#", con)
تسلم ايدك ياباشا
الكود اشتغل تمام 
جزاك الله خير الجزاء

RE: عرض بيانات في الداتا جريد فيو - ابراهيم ايبو - 16-03-19

الحمد لله والشكر لله
والصلاة والسلام على رسول الله
وتسلم أخي Emam


RE: عرض بيانات في الداتا جريد فيو - 5000 - 16-03-19

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

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)