+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : إعطاء عنوان ديناميكي لقاعدة البيانات لربطه مع تقرير الكريستال (/showthread.php?tid=7490)
إعطاء عنوان ديناميكي لقاعدة البيانات لربطه مع تقرير الكريستال - ayman - 23-12-12
السلام عليكم ورحمة الله
عند تصميم التقرير الكريستال ببيئة الفيجوال , أقوم بإعطاء التقرير عنوان لقاعدة البيانات لإنشاء اتصال جديد وإدراج الحقول وخلافه ...
المشكلة أنه عندما أضع البرنامج عند العميل يطلب تحديد مكان قاعدة البيانات لأن العنوان للقاعدة اختلف !
قمت بوضع هذا الكود في زر عرض التقرير :
كود :
Dim arr As New arrivalReport
Dim rep As New rep
rep.CrystalReportViewer1.ReportSource = arr
arr.DataSourceConnections.Item(0).SetConnection(Application.StartupPath & "\data.accdb", "data.accdb", False)
arr.Refresh()
rep.ShowDialog()وفي حدث CrystalReportViewer1_Load للتقرير قمت بوضع هذا الكود :
كود :
CrystalReportViewer1.RefreshReport()تم حل المشكلة ولكن لابد لهذه الرسالة من الظهور : Logon Failed. Please Try Again Later مع زر موافق .
ما إن تضغط موافق حتى يعمل التقرير بالشكل السليم , كيف أتخلص من هذه الرسالة المزعجة أو إذا كان هناك طريقة أخرى أتمنى معرفتها؟
شكرا لكم والسلام عليكم
إعطاء عنوان ديناميكي لقاعدة البيانات لربطه مع تقرير الكريستال - @@أبورائد@@ - 23-12-12
السلام عليكم ورحمة الله وبركاته
جرب هذا الترتيب في ربط الكريستال ريبورت مع قاعدة البيانات ثم عرض التقرير (طبعا في الأول أربط الكريستال في التصميم وبعدها لا يمكنك نقل قاعدة البيانات لأي مكان ثم تحديد مكان قاعدة البيانات في الكود - وهنا يفترض وجوده في مجلد البرنامج)
لا تنس أن يكون المشروح معد للعمل على منصات 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السلام عليكم ورحمة الله وبركاته
إعطاء عنوان ديناميكي لقاعدة البيانات لربطه مع تقرير الكريستال - ayman - 23-12-12
شكرا جزيلا لك أخي الكريم , المشكلة لدي هي جملة الإستعلام فهي متشعبة ومعقدة بعض الشيئ ومن الصعب نقلها وملأ dt بها
إعطاء عنوان ديناميكي لقاعدة البيانات لربطه مع تقرير الكريستال - ayman - 23-12-12
تم حل المشكلة وأخيرا عبر هذا السطر البسيط :
كود :
rpt.SetDatabaseLogon("", "", Application.StartupPath & "\data.accdb", "data.accdb")بدون أي مشاكل
شكرا لكم والسلام عليكم