ali reza mansoori 2
دوشنبه 01 فروردین 1390, 15:31 عصر
دوستان وقتی میخوام گزارشم رو بالا بیارم از کد های زیر استفاده میکنم ولی وقتی داخل کریستال از دوتا جدول استفاده می کنم دیگه جدول بالا نمی یاد یعنی گزارش نمایش داده نمیشه
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & adres_file & ";Persist Security Info=False;Jet OLEDB:Database Password = 123"
Sql = "select * from Book"
rst.Open Sql, cnn, adOpenStatic, adLockOptimistic
Set crRept = crApp.OpenReport(App.Path & "\RepBook.rpt")
crRept.DiscardSavedData
crRept.Database.SetDataSource rst
CRViewer1.ReportSource = crRept
CRViewer1.ViewReport
crRept.DiscardSavedData
List_Show = 0
فکر کنم خط دوم مشکل داره
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & adres_file & ";Persist Security Info=False;Jet OLEDB:Database Password = 123"
Sql = "select * from Book"
rst.Open Sql, cnn, adOpenStatic, adLockOptimistic
Set crRept = crApp.OpenReport(App.Path & "\RepBook.rpt")
crRept.DiscardSavedData
crRept.Database.SetDataSource rst
CRViewer1.ReportSource = crRept
CRViewer1.ViewReport
crRept.DiscardSavedData
List_Show = 0
فکر کنم خط دوم مشکل داره