meh_secure
یک شنبه 19 تیر 1384, 11:52 صبح
سلام.
یکی از راههای ساده برای اتصال بانک به گزارش استفاده از Data Env می باشد.
راههای دیگری برای اتصال نیز می باشد و شما باید توجه کنید که یک RecordSet به گزارش خود بفرستید.
روش اتصال Data Env به گزارش:
ابتدا در DatEnv یک Command بسازید و دستور مورد نظر خود را بنویسید به عنوان مثال :
Select Id, Fname, Lname From Customers
در اینجا نام Command را sqlCustomers گذاشتم.
شروع به ساختن گزارش توسط Crystal Reports کنید و توجه کنید که برای انتخاب بانک مورد نظر از Project Data استفاده نمایید.(اولین گزینه در لیست)
پس از اتمام ساخت گزارش این کدها را در فرمی که CRViewer موجود بنویسید.
Dim Report As New CrystalReports1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Report.DiscardSavedData '*1
datEnv.Recordsets.Item(1).Open ' *2
Report.Database.SetDataSource datEnv.rssqlCustomers '*3
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
datEnv.Recordsets.Item(1).Close '*4
End Sub
1- این کد به صورت هوشمند عمل می کند. در واقع می توانید مقادیری از قبیل Text هارا تغییر و همچنین برای update شدن اتصال بین بانک و گزارش استفاده نمایید. توجه کنید که اگر تغییری در اجزای گزارش ندهید آنها به صورتی که در گزارش اولیه طراحی شده اند باقی می مانند.
2- این خط Command ی که در بالا نوشته ایم را برای استفاده باز می کند.
3- این خط کد که مهمترین بخش این قسمت می باشد RecordSet ی که مربوط به Command ما می باشد و به طور خودکار توسط VB ایجاد شده است را به گزارش می فرستد.
4- در پایان نیز Command می بایست بسته شود تا سبب ایجاد خطا نگردد.
نکته: شما می توانید در زمان اجرای برنامه Command خود را تغییر دهید که گزارش شما به صورت پارامتری تهیه گردد یعنی قبل از اینکه Command را Open کنید آنرا تغیییر دهید مثال:
strsql = "Select Id, Fname, Lname From Customers where Fname= '" & strFname &"' ;"
datEnv.Commands.Item(1).CommandText = strsql
یکی از راههای ساده برای اتصال بانک به گزارش استفاده از Data Env می باشد.
راههای دیگری برای اتصال نیز می باشد و شما باید توجه کنید که یک RecordSet به گزارش خود بفرستید.
روش اتصال Data Env به گزارش:
ابتدا در DatEnv یک Command بسازید و دستور مورد نظر خود را بنویسید به عنوان مثال :
Select Id, Fname, Lname From Customers
در اینجا نام Command را sqlCustomers گذاشتم.
شروع به ساختن گزارش توسط Crystal Reports کنید و توجه کنید که برای انتخاب بانک مورد نظر از Project Data استفاده نمایید.(اولین گزینه در لیست)
پس از اتمام ساخت گزارش این کدها را در فرمی که CRViewer موجود بنویسید.
Dim Report As New CrystalReports1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Report.DiscardSavedData '*1
datEnv.Recordsets.Item(1).Open ' *2
Report.Database.SetDataSource datEnv.rssqlCustomers '*3
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
datEnv.Recordsets.Item(1).Close '*4
End Sub
1- این کد به صورت هوشمند عمل می کند. در واقع می توانید مقادیری از قبیل Text هارا تغییر و همچنین برای update شدن اتصال بین بانک و گزارش استفاده نمایید. توجه کنید که اگر تغییری در اجزای گزارش ندهید آنها به صورتی که در گزارش اولیه طراحی شده اند باقی می مانند.
2- این خط Command ی که در بالا نوشته ایم را برای استفاده باز می کند.
3- این خط کد که مهمترین بخش این قسمت می باشد RecordSet ی که مربوط به Command ما می باشد و به طور خودکار توسط VB ایجاد شده است را به گزارش می فرستد.
4- در پایان نیز Command می بایست بسته شود تا سبب ایجاد خطا نگردد.
نکته: شما می توانید در زمان اجرای برنامه Command خود را تغییر دهید که گزارش شما به صورت پارامتری تهیه گردد یعنی قبل از اینکه Command را Open کنید آنرا تغیییر دهید مثال:
strsql = "Select Id, Fname, Lname From Customers where Fname= '" & strFname &"' ;"
datEnv.Commands.Item(1).CommandText = strsql