كيفية البحث بين تاريخين في قاعدة بيانات اكسس باستخدام فيجوال بيسك 2008

تفضل اخي العزيز

Cd1 = "#" & (DateTimePicker1.Value.Date) & "#"

Cd2 = "#" & (DateTimePicker.Value.Date) & "#"

Dim strsq333 As String = "SELECT ZZ1 , ZZ4, ZZ8 FROM ZZZZ WHERE ZZ4 BETWEEN " & Cd1 & " AND " & Cd2 & " "

Dim strsq444 As String = "SELECT ZAV1 , ZAV2, ZAV3 FROM ZAVV WHERE ZAV2 BETWEEN " & Cd1 & " AND " & Cd2 & " "

Dim Adp333 As New OleDb.OleDbDataAdapter(strsq333, SqlConnection1)

Dim Adp444 As New OleDb.OleDbDataAdapter(strsq444, SqlConnection1)

If (Me.Dt1.Checked) = False And (Me.Dt2.Checked) = False Then

MessageBox.Show("من فضلك ادخل التاريخ فى خانة من - الى", "بحث وطباعه", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)

Exit Sub

End If

ds2.Clear()

Adp333.Fill(ds2, "ZZZZ")

Me.Dgrd1.DataSource = ds2

Me.Dgrd1.DataMember = "ZZZZ"

Me.Dgrd1.Refresh()

في حالة الكريستال

Dim rpt1 As New CrystalReportZAZA

Cd1 = "#" & (Dt1.Value.Date) & "#"

Cd2 = "#" & (Dt2.Value.Date) & "#"

Cd1 = Format(Me.Dt1.Value, "yyy, MM, dd, 00, 00, 000")

Cd2 = Format(Me.Dt2.Value, "yyy, MM, dd, 00, 00, 00")

Dim f As New frmPrint

bbbb(rpt1, "SALA2012", "", "")

rpt1.RecordSelectionFormula = "{ZAZA.ZA1}= " & Val(ListBox2.SelectedItem) & " "

f.CrystalReportViewer1.ReportSource = rpt1

f.CrystalReportViewer1.Zoom(95%)

f.CrystalReportViewer1.RefreshReport()

f.Show()

جزاك الله خيرا اخي على هذا المجهود و لكن هناك بعض الاكواد لم افهمها و لا اعلم اين الخطأ فهل يمكنك وضعها في مثال و رفعها ان امكن ؟؟ و جزاك الله خيراً و شكرا لتعبك معي

تفضل اخي

هذا برنامج فيه مواضيع كثيرة منضمنها الموضوع الذي طلبته

المثالنموذج للبحث في التاريخ.rar

جزاك الله خيرا على هذا المثال الرائع و لا اعلم كيف اشكرك ........ نفع الله بك و زادك علماً

1- طريقة ارسال باراميترات من الفورم الي التقرير

2- حمل فيديو يشرح الطريقة

3- كتاب آخر يشرح طريقة تمرير الباراميترات لتقارير الكريستال ريبورت بدون قاعدة بيانات

4- مرفق مثال عملي

5- حمل شرح بالفيديو يشرح طريقة اسناد قيمة موجوده داخل الفورم الي تقرير كريستال ريبورت

6- مرفق مثال للشرح الموجود في النقطة رقم 5

شكرا للافادة استاذ محمد فؤاد

موضوع 10/10 شكرا الاخ الناشىء

حل امثل فعلا للبحث بين تاريخين