مشکل باز کردن کرستال ریپورت برای بانک اطلاعاتی رمز دار

[navaroo]

خدمت دوستان عرض ادب دارم
برنامه دارم که بانک اطلاعاتی اون اکسسه که پسورد داره . هنگامی که تو برنامه میخوام گزارش گیری کنم ابتدای باز کردن گزارش درخواست پسورد میکنه . پنجره پسورد کریستا باز میشه و درخواست رمز اکسس رو میخواد . تو طراحی کریستال هنگام لینک کردن بانک پسورد را تعریف کردم ولی هر دفعه برای گرارش گیری باز درخواست پسورد میکنه . چگونه میتونم این مشکل را حل کنم که درخواست پسورد نکند
با تشکر

[aliha499]

Dim rptDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent


rptDocument.Load(Report_Name)
rptDocument.SetDatabaseLogon("sa", SQLServerPassword) ' دستور كليدي براي لاگين شدن ريپورت به سرور
rptDocument.SetDataSource(Data Adapter)


Dim myConnectionInfo As CrystalDecisions.Shared.ConnectionInfo = New CrystalDecisions.Shared.ConnectionInfo()
myConnectionInfo.AllowCustomConnection = True
myConnectionInfo.ServerName = CurrentServer
myConnectionInfo.DatabaseName = CurrentDatabase
myConnectionInfo.UserID = "sa"
myConnectionInfo.Password = SQLServerPass


' اعمال سطح دسترسي به تمام جدولهاي بانك اطلاعاتي
Dim myTables As CrystalDecisions.CrystalReports.Engine.Tables = rptDocument.Database.Tables
For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
Dim myTableLogonInfo As CrystalDecisions.Shared.TableLogOnInfo = myTable.LogOnInfo
myTableLogonInfo.ConnectionInfo = myConnectionInfo
myTable.ApplyLogOnInfo(myTableLogonInfo)
Next


myCrystalReportViewer.ReportSource = rptDocument
myCrystalReportViewer.Refresh()