Koneksi VB dan Crsytal Report 10

Hal ini lebih dikarenakan rasa ingin mengupdate Crystal Report ku yang udah jadul, dari dulu masih aja pake yang 8.0 
Coba install yang versi 10 dan ternyata lancar-lancar aja tanpa ada kendala tapi begitu coba di VB kok ada yang berubah pada bagian komponen crystal report-nya. Naik turunin scroll component window kok ga nemu yang namanya crystal report yang ada malah crystal report viewer. Ya udah akhirnya pake yang itu dan dicoba dengan kode yang biasanya dipake juga tapi hasilnya ga jalan. Kenapa ya??? Apa gara-gara nama Seagate sudah hilang dari crystal report jadi coding di VB dirubah??? Wah ekstrim banget perubahannya. Ah, ga tau lah dan akhirnya q putusin cari info sana-sini dan ga taunya semenjak versi 8.5 kodingnya memang sudah berubah, wekzz telat kali q ya :p dan memang semenjak itu juga nama Seagate hilang. Dan inilah caranya

- – -
Tambahkan komponen Crystal ActiveX Report Viewer Library 10.0
Project – Components – Crystal ActiveX Report Viewer Library 10.0

Tambahkan references Crystal Report ActiveX Designer Run Time Library 10.0
Project – References – Crystal Report ActiveX Designer Run Time Library 10.0

Masukkan komponen crystal report viewer ke dalam form

Ketikkan kode di bawah ini

- – -

Private Sub Form_Load()
Call LoadReport
End Sub

Private Sub LoadReport()
Dim Appl As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report

Set Report = Appl.OpenReport(App.Path + “\report\stok.rpt”)
cr1.ReportSource = Report
cr1.ViewReport

End Sub

Silahkan jikalau perintah LoadReport-nya ingin langsung ditaruh di form_load atau yang lainnya. Perintah app.path saya berikan karena kebiasaan saya menaruhnya dalam satu folder dan supaya lebih pendek kodenya  tapi kalau ingin didefinisikan secara direktori langsung diganti aja.

Stok.rpt adalah nama file crystal reportnya dan cr1 adalah nama yang saya berikan kepada komponen crystal report viewer-nya.

Selesai ^^