Membuat Report di Visual Basic 6.0

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 link di bawah ini:
 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. Di bawah ini contoh tampilannya


Kalau mau download Source Codenya silahkan klik di sini

8 your comment here:

Bima Laksana Putra at: April 27, 2012 at 2:30 AM said...

Sangat membantu gan,,
kunjungi juga,, join ya
http://bimawerkudara.blogspot.com/
masih pemula

CANDRA VINCENT at: June 4, 2012 at 11:46 PM said...

bisa Gk tuu

Fransiskus Sutris at: June 8, 2012 at 3:43 AM said...

Ok mas Bima, sama2..

Madalene Collection at: November 26, 2012 at 7:00 PM said...

Sangat membantu nih mas... makasih udah berbagi... :)

Admin at: November 26, 2012 at 8:18 PM said...

Terima kasih Madalene udah berkunjung...

Irwansyah at: December 6, 2012 at 1:33 AM said...

Mau tanya buat project di vb6 dan buat laporan pakai crystal report juga,setelah saya buat ke .exe kena crystal reportnya tdk bisa di buka ya?

Mamah Dezan at: March 21, 2013 at 4:44 AM said...

Terima Kasih. ini Sangat Membantu.
Tapi, Untuk Export nya bagaimana Ya,?

Mamah Dezan at: March 21, 2013 at 4:45 AM said...

Terima Kasih, Ini sangat Membantu.
Tapi, Untuk Exportnya gimana Ya,?

Post a Comment