السلام عليكم ورحمة الله وبركاته
جرب هذا الترتيب في ربط الكريستال ريبورت مع قاعدة البيانات ثم عرض التقرير (طبعا في الأول أربط الكريستال في التصميم وبعدها لا يمكنك نقل قاعدة البيانات لأي مكان ثم تحديد مكان قاعدة البيانات في الكود - وهنا يفترض وجوده في مجلد البرنامج)
لا تنس أن يكون المشروح معد للعمل على منصات x86.
السلام عليكم ورحمة الله وبركاته
جرب هذا الترتيب في ربط الكريستال ريبورت مع قاعدة البيانات ثم عرض التقرير (طبعا في الأول أربط الكريستال في التصميم وبعدها لا يمكنك نقل قاعدة البيانات لأي مكان ثم تحديد مكان قاعدة البيانات في الكود - وهنا يفترض وجوده في مجلد البرنامج)
لا تنس أن يكون المشروح معد للعمل على منصات x86.
كود :
Dim rpt As New rpt1
Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\Database1.mdb")
Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM table1", conn)
da.Fill(dt)
rpt.SetDataSource(dt)
CrystalReportViewer1.ReportSource = rptالسلام عليكم ورحمة الله وبركاته