VB dan CR

Untuk membuat laporan sering kali kita direpotkan mengenai gabungan antara bahasa pemrograman yg kita buat dengan crystal report. apalagi selalu menggunakan koneksi yg berulang2 utk CR, belum lagi pada saat dideploy ke client bisa jadi akan repot sendiri untuk setting semua koneksi DB ke CR nya, belum lagi kriteria2 yang harus kita masukkan

untuk itu saya akan coba share mengenai bagaimana membuat laporan dgn crystal report dengan sumber datanya dari recordset apalgi kita bisa manfaatkan fasilitas Stored procedured sedikit banyak kita bisa membuat Report yang kita bisa buat tanpa harus sll compile ulang program kita..

Berikut code nya dengan VB6 dan CR 9

 dim CrxApplication As New CRAXDRT.Application
    dim CrxReport As CRAXDRT.Report
    Dim rs As Recordset

    ‘Code to insert data from a Stored Procedure into a recordset, don’t use if you have your own
    Dim cmd As Command
    Dim Param As Parameter
    Set cmd = New Command
    cmd.ActiveConnection = Conn
    cmd.CommandText = “SP_IRReport” ‘the name of the store procedure
    cmd.CommandType = adCmdStoredProc
 
    Set Param = cmd.CreateParameter(”Rowid”, adInteger, adParamInput, 30, Rowid)
    cmd.Parameters.Append Param
    Set rs = New Recordset
    Set rs = cmd.Execute  ‘end of populating the recordset
   
    Set CrxReport = CrxApplication.OpenReport(App.Path & “/REPORT.rpt”) ‘opening the report
    CrxReport.DiscardSavedData           ‘emtying old data value
    CrxReport.Database.SetDataSource rs  ‘here’s the line code to populate Crystal Report with the recordset from RS
    .CRViewer91.ReportSource = CrxReport
    .CRViewer91.ViewReport          ‘viewing the report

Semoga bermanfaat. Thanks

~ by opiepurnama on July 20, 2007.