منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] خطاء في الكرستال ريبورت عند تحويل قاعدة البيانات من اكسس إلى ميسكوال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] خطاء في الكرستال ريبورت عند تحويل قاعدة البيانات من اكسس إلى ميسكوال (/showthread.php?tid=17747)

خطاء في الكرستال ريبورت عند تحويل قاعدة البيانات من اكسس إلى ميسكوال - 3msoft - 22-10-16

لدي مشروع مصمم بvb.Net  مع قاعدة بيانات اكسس , و اريد العمل مع قاعدة بيانات Mysql  , قمت بتعديل جميع اكواد الاتصال بقاعدة البيانات حتى تتناسب مع Mysql
الكود القديم :
كود :
Public frm As New FormPrint
       Application.DoEvents()
       Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
       ConInfo.ConnectionInfo.ServerName = Application.StartupPath & "\DB.mdb"
       ConInfo.ConnectionInfo.DatabaseName = "DB.mdb"
       ConInfo.ConnectionInfo.UserID = "Admin"
       ConInfo.ConnectionInfo.Password = "m07@m3d"

       Dim rpt1 As New CrystalReport1
       rpt1.Database.Tables(0).ApplyLogOnInfo(ConInfo)
       rpt1.SetDataSource(DataSetInvoicesP)
       frm.CrystalReportViewer1.ReportSource = rpt1
       frm.CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = " m07@m3d "
       frm.ShowDialog()
و عدلته إلى :

كود :
       Application.DoEvents()
       Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
       ConInfo.ConnectionInfo.ServerName = "127.0.0.1"
       ConInfo.ConnectionInfo.DatabaseName = "projectdb1"
       ConInfo.ConnectionInfo.UserID = "root"
       ConInfo.ConnectionInfo.Password = ""
و لكن ظهرت هذه المشكلة :
إقتباس :'Sales.FormPrint.Private WithEvents CrystalReportViewer1 As CrystalDecisions.Windows.Forms.CrystalReportViewer' is not accessible in this context because it is 'Private'.
و قمت بتعديل
Dim  frm As New FormPrint
إلى
Public frm As New FormPrint

و ما زالت المشكلة قائمة :-|
الرجاء المساعدة بقدر معرفتك .

RE: خطاء في الكرستال ريبورت عند تحويل قاعدة البيانات من اكسس إلى ميسكوال - ممدوح - 22-10-16

إذا كانت اسم الجدول والاعمدة مطابقة
وإذا كانت الداتاسيت DataSetInvoicesP تم ملئها بالبيانات
جرب هذا الكود فقط
كود :
Dim frm As New FormPrint
Dim rpt1 As New CrystalReport1
rpt1.SetDataSource(DataSetInvoicesP)
frm.CrystalReportViewer1.ReportSource = rpt1
frm.ShowDialog()


RE: خطاء في الكرستال ريبورت عند تحويل قاعدة البيانات من اكسس إلى ميسكوال - 3msoft - 22-10-16

مشكور أخ ممدوح على الرد
و لكن للاسف لم تنجح .

أنا لم اغير في الكود
فقط الاكواد الخاص بالاتصال بقاعدة البيانات حتى تتناسب مع Mysql

نفس الكود مع قاعدة البيانات أكسس يعمل جيدا بدون خطأ.
و هذا الامر الذي حيرني