06-09-20, 11:26 PM
السلام عليكم ورحمة الله وبركاته
الاخوة الاعزاء قمت بعمل برنامج بالفيجوال 2013 مع كريستال ريبورت قمت بربط الكريستال ريبورت بملف اكسيل من نوع xls تم الربط بنجاح وعند عرض التقرير كاملا اي دون استعلام يتم عرض البيانات بنجاح اما عتد الاستعلام عن بيانات معينة لا تنجح العملية ويظهر الكريستال ريبورت رسالة خطأ مثل هذه الصورة
استخدم هذا الكود للاستعلام وعرض التقرير
نفس الكود استخدمة مع الاكسيس ويعمل دون مشاكل السؤال اين الخطأ في الكود؟
الاخوة الاعزاء قمت بعمل برنامج بالفيجوال 2013 مع كريستال ريبورت قمت بربط الكريستال ريبورت بملف اكسيل من نوع xls تم الربط بنجاح وعند عرض التقرير كاملا اي دون استعلام يتم عرض البيانات بنجاح اما عتد الاستعلام عن بيانات معينة لا تنجح العملية ويظهر الكريستال ريبورت رسالة خطأ مثل هذه الصورة
استخدم هذا الكود للاستعلام وعرض التقرير
كود :
Dim Da As New OleDbDataAdapter
DT.Clear()
Da = New OleDbDataAdapter("Select * from [attend$] where dayy like '" & TextBox2.Text & "' And sesion like '" & TextBox3.Text & "' And address like '" & ComboBox2.Text & "'", conn1)
Da.Fill(DT)
DGV.DataSource = DT
'خاص بعرض التقرير
Dim rep As New Attend
rep.SetDataSource(DT)
My_report.CrystalReportViewer1.ReportSource = rep
My_report.CrystalReportViewer1.Refresh()
My_report.Show()
نفس الكود استخدمة مع الاكسيس ويعمل دون مشاكل السؤال اين الخطأ في الكود؟