24-12-16, 03:40 PM
السلام عليكم اخوانى و اساتذتنا اولا شكرا لكم جميعا و جزاكم الله خيرا
و اسف على ثقل طلباتى فانا لدية فكرة اقوم بتنفيزها خطوة خطوة و كل خطوة لابد من فهمها قبل تنفيزها
الفكرة هى عرض بيانات بين تاريخين و هذا ما تفضلتم بمساعدتى عليه و باقى الفكرة هى عرض بيانات لاسم محدد بين تاريخين و طباعتهم على تقرير كريستال ريبورت
الكود
و المثال فى المرفقات
Dim searchdate1 As Date = DateTimePicker1.Value
Dim searchdate2 As Date = DateTimePicker2.Value
dt.Clear()
da = New OleDbDataAdapter("select * from جدول1 where تاريخ > #" & searchdate1.Year & "/" & searchdate1.Month & "/" & searchdate1.Day & "# and تاريخ < #" & searchdate2.Year & "/" & searchdate2.Month & "/" & searchdate2.Day & "#", cn)
da.Fill(dt)
Me.DataGridView1.DataSource = dt
و اسف على ثقل طلباتى فانا لدية فكرة اقوم بتنفيزها خطوة خطوة و كل خطوة لابد من فهمها قبل تنفيزها
الفكرة هى عرض بيانات بين تاريخين و هذا ما تفضلتم بمساعدتى عليه و باقى الفكرة هى عرض بيانات لاسم محدد بين تاريخين و طباعتهم على تقرير كريستال ريبورت
الكود
و المثال فى المرفقات
Dim searchdate1 As Date = DateTimePicker1.Value
Dim searchdate2 As Date = DateTimePicker2.Value
dt.Clear()
da = New OleDbDataAdapter("select * from جدول1 where تاريخ > #" & searchdate1.Year & "/" & searchdate1.Month & "/" & searchdate1.Day & "# and تاريخ < #" & searchdate2.Year & "/" & searchdate2.Month & "/" & searchdate2.Day & "#", cn)
da.Fill(dt)
Me.DataGridView1.DataSource = dt
