World – Understanding – Mine

Bahasa SQL memang megglobal bisa ditemui dimana saja termasuk Crystal Report. Walaupun namanya SQL language tapi jangan membayangkan kalau semua bahasa SQL bisa dipakai di sini, ya iyalah masa Crystal Report mau create table atau mau drop table ya ga mungkin lah wong Crystal Report cuma sekedar membuat laporan 
Bahasa SQL yang dipakai di sini hanya sekedar untuk memanggil dan menseleksi data, ya jadi yang dipakai hanya seputar select, from, order, like serta yang sejenisnya dan yang sering saya pergunakan adalah untuk menseleksi data, contohnya perintah:

select *from Data where Jenis like ‘Almari*’ order by Nama

dari perintah di atas dapat dilihat saya hanya menggunakannya untuk memanggil, menseleksi dan mengurutkannya. Untuk dapat menambahkan perintah SQL:

Baca entri selengkapnya »

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 ^^