menampilkan Report di Visual Basic 6.0

para agan ane mau share tentang nampilin reprt di VB 6.0 ni, menurut ane ga terlalu rumit yang penting agan - agan coba aje dulu, langsung aja ni gan silahkan di baca coretan ane di bawah ini

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:

• 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. Di bawah ini contoh tampilannya

 

BAB II

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cryRpt As New ReportDocument
        cryRpt.Load("D:\Documen\VB.net\aplikasiQ\aplikasiQ\CReport\CrystalReport2.rpt")
        CrystalReportViewer1.ReportSource = cryRpt
        CrystalReportViewer1.Refresh()
    End Sub