[3msoft]

لدي مشروع مصمم ب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

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

[ممدوح]

إذا كانت اسم الجدول والاعمدة مطابقة
وإذا كانت الداتاسيت DataSetInvoicesP تم ملئها بالبيانات
جرب هذا الكود فقط

كود :

Dim frm As New FormPrint
Dim rpt1 As New CrystalReport1
rpt1.SetDataSource(DataSetInvoicesP)
frm.CrystalReportViewer1.ReportSource = rpt1
frm.ShowDialog()

[3msoft]

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

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

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