morrning
شنبه 20 خرداد 1391, 20:35 عصر
سلام
متاسفانه من تا حالا هیچ پروژه ای که با چاپ و گزارش و .. سروکار داشته باشه دست و پنجه نرم نکردم . ولی برای تست هم که شده میخواستم امتحان کنم ببینم گزارشگیری چطوریه ولی برام مشکلی به وجود اومده من وقتی گزارش رو لود میکنم همون اطلاعات قبلی نشون داده میشه و با آپدیت دیتابیس اطلاعات به گزارش اضافه نمیشن. من از کد زیر استفاده کردم میشه راهنمایی کنید مشکل من از کجاست؟
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class storereport
Dim db As New database_class
Dim logoninfo As New CrystalDecisions.Shared.TableLogOnInfo
Private Sub storereport_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim objr As New r1 'my report obj'
Dim ds As New DataSet
ds = db.db_dataset("select * from t_store", "t_store", 2)
objr.SetDataSource(ds)
logoninfo = objr.Database.Tables(0).LogOnInfo
logoninfo.ConnectionInfo.ServerName = "C:\Program Files\Radmicrocam\anbardar\behdari\Release\databas e2.mdb"
objr.Database.Tables(0).ApplyLogOnInfo(logoninfo)
CrystalReportViewer1.ReportSource = (objr)
CrystalReportViewer1.RefreshReport()
End Sub
End Class
متد db_dataset یه کواری میگیره بهمون یه دیتاست میده
کلاس database_class هم یه کلاس برای کار با بانک اطلاعاتیه
متاسفانه من تا حالا هیچ پروژه ای که با چاپ و گزارش و .. سروکار داشته باشه دست و پنجه نرم نکردم . ولی برای تست هم که شده میخواستم امتحان کنم ببینم گزارشگیری چطوریه ولی برام مشکلی به وجود اومده من وقتی گزارش رو لود میکنم همون اطلاعات قبلی نشون داده میشه و با آپدیت دیتابیس اطلاعات به گزارش اضافه نمیشن. من از کد زیر استفاده کردم میشه راهنمایی کنید مشکل من از کجاست؟
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class storereport
Dim db As New database_class
Dim logoninfo As New CrystalDecisions.Shared.TableLogOnInfo
Private Sub storereport_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim objr As New r1 'my report obj'
Dim ds As New DataSet
ds = db.db_dataset("select * from t_store", "t_store", 2)
objr.SetDataSource(ds)
logoninfo = objr.Database.Tables(0).LogOnInfo
logoninfo.ConnectionInfo.ServerName = "C:\Program Files\Radmicrocam\anbardar\behdari\Release\databas e2.mdb"
objr.Database.Tables(0).ApplyLogOnInfo(logoninfo)
CrystalReportViewer1.ReportSource = (objr)
CrystalReportViewer1.RefreshReport()
End Sub
End Class
متد db_dataset یه کواری میگیره بهمون یه دیتاست میده
کلاس database_class هم یه کلاس برای کار با بانک اطلاعاتیه