Menjelajah dunia dengan ilmu

Setelah aplikasi dibuat tentu ada laporan yang harus di tampilkan. Laporan  yang dibuat menggunakan Crytal Report 8.5, dan bisa aja di gunakan untuk versi-versi lain. Data yang diambil dari MySQL. Tetap menggunakan VBMySQLDirect, tapi ada tambahan kita gunakan juga VBMySQLCrystalDataSource.

Codes VBMySQLCrystalDataSource dapat kita ambil dari hasil download VBMySQLDirect.

Saya sarankan code di include dalam aplikasi aja, karena ada error yang akan terjadi jika kita jadikan class.

Dan tambahkan CRDataSource dalam reference nya “crsource.tlb”

Option Explicit
Private cSQL As String

Public Sub PreviewRpt(pcReportTitle As String, _
poReport As Object, poRs As MYSQL_RS, Optional pcTag As String = “”, Optional pbShownForm As Boolean = True)

Screen.MousePointer = vbHourglass
Dim oNewForm As frmRptViewer
Set oNewForm = New frmRptViewer
On Error Resume Next
‘
With oNewForm
.Tag = pcReportTitle
.Caption = pcReportTitle
.Hide ‘~~berguna untuk laporan langsung di print tanpa preview

Dim pCrystal As VBMySQLCrystalDataSource
Set pCrystal = New VBMySQLCrystalDataSource
Set pCrystal.Recordset = poRs

poReport.Database.SetDataSource pCrystal
Set .crReport = poReport

.crv.ReportSource = .crReport
.crv.ViewReport
Do While .crv.IsBusy
DoEvents
Loop
.crv.Refresh

.crv.Me.Tag = pcTag
If pbShownForm Then .Show

End With

Screen.MousePointer = vbDefault
End Sub