مشکل در مسیر پایگاه داده در crystal report

[mohammad.tanoomand]

من برنامه رو ساختم و قتی از مسیر خودش خارجش می کنم گزارش جدید رو نشون نمی ده
بعد من از روش ویزاردی استفاده می کنم
پایگاه داده من access با برنامه vb6 و dao کریستال 7 استفاده می کنم

[Moslemu]

سلام.
شايد آدرس فايل گزارشتون با تغيير مسير برنامه عوض مي‌شه.

[mohammad.tanoomand]

مشکل من مثل مسیر پایگاه داده تو وی بی البته برای کریستال ریپورت هست

[tdodangeh]

کد زیر را در فرم مربوط به گزارشات تون قرار دهید که در اینجا frmrpt1 نام دارد
و CR1 اسم کنترل گزارش موجود در فرم است.
Public crApp As New CRAXDRT.Application
Public crRpt As New CRAXDRT.Report
Public crDBTab As CRAXDRT.DatabaseTable
Public cn As New Connection
Private Sub Form_Load()
Dim dbPath As String, rs As New Recordset, sql As String
Set crRpt = crApp.OpenReport(App.Path & "\ReportName.rpt")
ServerName = App.Path + "\DataBaseName.mdb"
dbPath = App.Path + "\DataBaseName.mdb"
crRpt.DiscardSavedData
crRpt.Database.LogOnServer "dao.dll", ServerName, dbPath, "UserName", "Password"
cn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;Data Source=" + App.Path + "\DataBaseName.mdb;Persist Security Info=False;Jet OLEDB:DataBase Password=Password"
cn.Open
sql = "select * from TabelName;"
rs.Open sql, cn, adOpenStatic, adLockOptimistic
crRpt.Database.SetDataSource rs
For Each crDBTab In crRpt.Database.Tables
crDBTab.SetLogOnInfo "ServerName", "dbPath", "UserName", "PassWord"
Next
frmRpt1.CR1.Refresh
crRpt.ReadRecords
CR1.ReportSource = crRpt
CR1.ViewReport
frmRpt1.Show
End Sub