Menampilkan Crystal Report Melalui Reportviewer di Komputer Klien

Guys, kali ini gw mau membahas mengenai cara menampilkan laporan crystal report di komputer klien. Terkadang kita dengan sangat mudah menampilkannya di komputer kita (developer). Tapi ketika sudah di deploy dan didistribusikan ke komputer klien akan muncul masalah. Dan yang paling mengesalkan adalah muncul database login prompt yang mengharuskan kita memasukkan User ID dan Password. Mending ketika kita masukkan user dan password langsung tampil, nah ini bukannya tampil tapi error yang melanda.

Gw sempet berkutat dengan masalah ini hampir 2 hari lamanya. Gw cari di forum2 yang ada dan terus terang jawabannya kurang memuaskan. Bahkan terlalu teknis cara penyampaiannya. Gw yang newbie bukannya dapat inspirasi tapi malah tambah ‘down’ melihat cara penyelesaiannya. Intinya terlalu teknikal dan sulit untuk dipahami bagi yang baru belajar VB.Net. Okay, tanpa berpanjang lebar lagi gw langsung aja sharing cara penyelesaiannya biar teman2 langsung dapat menggunakannya. (Catatan : gw buat di VB.Net 2008 dan menggunakan SQL Server 2005)

Langkah-langkahnya :

1. Pertama-tama buat dulu crystal reportnya. Gw asumsikan nama dari crystal report yang gw buat adalah crDiagnosa.
2. Setelah itu, lo jangan lupa untuk buat Dataset.xsd -nya. Caranya gampang kok. Lo klik kanan di aplikasi buatan lo (di Solution Explorer). Terus lo klik add new item. Nah disitu lo langsung dibawa ke kolom categories yang banyak bgt. Sekarang lo pilih kategori Data. Dan di kategori tersebut lo bakalan ketemu dengan Dataset.xsd. Lo pilih dan kasih nama sesuai keinginan lo. Gw pake nama KlinikDataSet.xsd. Setelah lo buat, tinggal ikutin perintahnya aja. Lo drag database-nya ke halaman dataset yang lo buat. Ok, langkah ke 2 dah kelar.
3. Setelah itu, lo buat report viewernya. Gampang kok, lo tinggal klik kanan di aplikasi yang lo buat (sama seperti langkah ke dua). Add new item terus pilih windows form. Lo namain deh windows form itu sesuai keinginan lo.
4. Di windows form yang baru lo buat itu, lo masukkin property reportviewer-nya. Caranya lo cari di toolbox tab reporting. Setelah lo dapet lo buka. Nah disitu akan terlihat crystal reportviewer. Lo tinggal drag ke halaman windows form buatan lo tadi. Lo namain crystal reportviewer-nya sesuai dengan yang lo mau. Kalo gw menggunakan nama CrystalReportViewer1.
5. Nah langkah 1-4 udah kelar. Sekarang tinggal bagian coding aja. Lo double klik di windows form-nya. Ingat jangan double klik di report viewer-nya!
6. Ok, sekarang ini coding-nya :

—————————————————————————–

Public Class LaporanDokter      (1)

Private Sub LaporanDokter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rpt As New crDiagnosa   (2)

Dim MyCommand As New SqlClient.SqlCommand
Dim myDA As New SqlClient.SqlDataAdapter
Dim myDS As New KlinikDataSet   (3)

Try
MyCommand.Connection = conn   (4)
MyCommand.CommandText = “SELECT * FROM tdokter”  (5)
MyCommand.CommandType = CommandType.Text
myDA.SelectCommand = MyCommand

myDA.Fill(myDS, “tdokter”)

rpt.SetDataSource(myDS)
CrystalReportViewer1.ReportSource = rpt  (6)

Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

End Class

——————————————————————————————————–

(1) Merupakan nama windows form yang gw buat

(2) Merupakan nama crystal report gw

(3) Nama dataset yang dibuat

(4) conn —> sql connection-nya | | kalo gw udah inisiate di module login : Public conn As SqlConnection = Nothing

(5) Nama table yang berpengaruh di laporan lo

(6) CrystalReportViewer 1 –> merupakan nama crystal reportviewer yang lo buat

Ok….sekarang tinggal lo jalankan aja (F5)…..It works!!!!! Great

Sekarang muncul pertanyaan, kalo seandainya laporang yang gw buat ternyata melibatkan lebih dari 1 table gimana? Ok gampang….here we go :

—————————————————————————

Public Class LaporanDiagnosa

Private Sub LaporanDiagnosa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rpt As New crDiagnosa

Dim MyCommand As New SqlClient.SqlCommand
Dim MyCommand1 As New SqlClient.SqlCommand

Dim myDA As New SqlClient.SqlDataAdapter
Dim myDA1 As New SqlClient.SqlDataAdapter

Dim myDS As New KlinikDataSet

Try

MyCommand.Connection = conn
MyCommand.CommandText = “SELECT * FROM tpasien”
MyCommand.CommandType = CommandType.Text
myDA.SelectCommand = MyCommand

MyCommand1.Connection = conn
MyCommand1.CommandText = “SELECT * FROM tperiksa”
MyCommand1.CommandType = CommandType.Text
myDA1.SelectCommand = MyCommand1

myDA.Fill(myDS, “tpasien”)
myDA1.Fill(myDS, “tperiksa”)

rpt.SetDataSource(myDS)
CrystalReportViewer1.ReportSource = rpt

Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

End Class

————————————————————————–

Gampangkan?! Lo tinggal buat sql command dan sql adapternya aja…..Inget kalo ternyata table2 saling berhubungan baik itu primary key dan foreign key-nya lo harus lebih hati2. Karena entar nga mau running….

Setelah semuanya kelar lo tinggal deploy aja dan didistribusikan ke komputer klien. Di dalam deploy sistem, lo harus masukkan add file-nya semua baik itu crystal report, database, dan dataset-nya supaya running smoothly di komputer klien.

Dalam deployement sistem inget lo harus masukin pre-requisites untuk crystal report dan report viewer-nya. Karena penting untuk jalan di komputer klien….

Ok bro/sis sekian sharing dari gw….kalo ada pertanyaan langsung aja isi comment. Kita belajar dan sharing bareng. Gw juga nga jago2 bgt. Tapi setiap ilmu yang gw dapet harus di sharing biar semua jadi bisa….Bener nga guys?……

——————————————————————————————————

Berhubung ada beberapa e-mail yang sampe ke gw, dan menyatakan bahwa tidak bisa menjalankannya secara baik. Maka gw buat update-an teranyar dan gw harap bisa membantu teman-teman. Berikut coding-nya :

Imports System.Data.SqlClient
Imports System.Data

Public Class LaporanDiagnosa

Private Sub LaporanDiagnosa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rpt As New crDiagnosa()
Dim myConnection As SqlConnection
Dim MyCommand As New SqlCommand()
Dim myDA As New SqlDataAdapter()
Dim myDS As New KlinikDataSet()

Try

myConnection = New SqlConnection(“Data Source=.\SQLEXPRESS;Initial Catalog=bank;Integrated Security=True”)
MyCommand.Connection = myConnection
MyCommand.CommandText = “SELECT * from tdokter”
MyCommand.CommandType = CommandType.Text
myDA.SelectCommand = MyCommand

myDA.Fill(myDS, “tdokter”)
rpt.SetDataSource(myDS)
CrystalReportViewer1.ReportSource = rpt

Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

End Class