22-10-16, 03:55 PM
لدي مشروع مصمم بvb.Net مع قاعدة بيانات اكسس , و اريد العمل مع قاعدة بيانات Mysql , قمت بتعديل جميع اكواد الاتصال بقاعدة البيانات حتى تتناسب مع Mysql
الكود القديم :
و عدلته إلى :
و لكن ظهرت هذه المشكلة :
Dim frm As New FormPrint
إلى
Public frm As New FormPrint
و ما زالت المشكلة قائمة :-|
الرجاء المساعدة بقدر معرفتك .
الكود القديم :
كود :
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
و ما زالت المشكلة قائمة :-|
الرجاء المساعدة بقدر معرفتك .