Senin, 30 Juli 2012
Untuk menampilkan Report di Visual Basic 6.0 bisa dilakukan dengan menggunakan komponen CrystalActivexReportViewer bawaan dari Crystal Report 10. dengan database apapun laporan bisa ditampilkan dengan kontrol ini. Contoh Report yang akan saya buat ini adalah menggunakan koneksi Data Source (ODBC). Anda bisa membuat Data Source (ODBC) baru untuk ke database Acces, SQL Server dan lain-lain. Yang belum tahu cara membuat Data Source (ODBC) bisa mengikuti tutorial bawah ini:
- Setting ODBC ke Microsoft Acces 2000-2003
- Setting ODBC ke Microsoft SQL Server 2000
- Desain Report di Crystal Report 10
Jika sudah melakukan setting ODBC dan mendesain reportnya di Crystal Report, langkah selanjutnya adalah membuat program di Visual Basic 6.0 untuk menampilkan report ke dalam form yang kita buat.
| 1. | Buat Project Baru |
| 2. | Tambahkan References melalui menu Project >> References. Pada kotak dialog references tambahkan pilihan berikut : |
| Microsoft ActiveX Data Objects 2.0 Library | |
| Crystal ActiveX Report Viewer Library 10.0 | |
| Crystal Reports ActiveX Designer Run Time Library 10.0 | |
| Lihat gambar di bawah ini untuk lebih jelasnya | |
 | |
| 3. | Tambahkan Komponen Crystal Report melalui menu Project >> Components (aktifkan Crystal ActiveX Report Viewer Library 10.0). Lihat gambar di bawah ini. |
 | |
| 4. | Tambahkan modul baru di project dan masukkan code program seperti di bawah ini |
Public Strcon As New ADODB.Connection Public RS As New ADODB.Recordset Public Const strODBC = "DATASOURCE-SISWA" Sub OPEN_DATABASE() On Error GoTo err Set Strcon = New ADODB.Connection Strcon.Open strODBC Strcon.CursorLocation = adUseClient Exit Sub err: MsgBox "DATABASE BELUM DISETTING ATAU SETTINGAN DATABASE " & _ "SALAH (BUAT DATASOURCE ODBC DI CONTROL PANEL)! " & _ "Cek Kembali Settingan ODBC..!", vbOKOnly + vbCritical, "Database" End End Sub | |
| 5. | Tambahkan kontrol CrystalActiveXReportViewer di form1 dan ubah name menjadi : CARV. Kemudian masukkan kode program di bawah ini pada jendela code pada form1 |
| Dim Appl As New CRAXDRT.Application Dim RPT As New CRAXDRT.Report Private Sub Form_Load() Dim sqlSelect, ReportFilePath As String OPEN_DATABASE sqlSelect = "SELECT * FROM t_siswa" If RS.State = 1 Then RS.Close RS.Open sqlSelect, Strcon ReportFilePath = App.Path & "\LaporanSiswa.rpt" Set RPT = Appl.OpenReport(ReportFilePath) RPT.Database.SetDataSource RS, 3, 1 CARV.ReportSource = RPT CARV.ViewReport RPT.DiscardSavedData End Sub Private Sub Form_Resize() CARV.Width = Me.Width CARV.Height = Me.Height End Sub | |
| 6. | Sekarang tinggal Run Program Anda. Thanks To - http://fransiskussutris.blogspot.com/ |
