[طالب برمجة]

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

(01-12-17, 01:05 PM)Amir_alzubidy كتب : السلام عليكم ورحمة الله و بركاته 
ضع هذا الكود في زر الامر طباعة التقرير 
بعد تعيين الداتا سيت و جملة الاستعلام 

PHP كود :

       Application.DoEvents()
        Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
        ConInfo.ConnectionInfo.ServerName = Application.StartupPath & "\DataBaseName.mdb"
        ConInfo.ConnectionInfo.DatabaseName = "DataBaseName.mdb"
        ConInfo.ConnectionInfo.UserID = "Admin"
        ConInfo.ConnectionInfo.Password = ""  ' كلمة المرور ان وجدت 


        Dim rpt1 As New Report1  'اسم التقرير
        rpt1.Database.Tables(0).ApplyLogOnInfo(ConInfo)
        rpt1.SetDataSource(DataSetTable)

        Dim frm As New Form3 ' اسم الفورم الموجود فيه الفيور

        frm.CrystalReportViewer1.ReportSource = rpt1
        frm.CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = "" ' كلمة المرور ان وجدت
        frm.ShowDialog()