Buat project baru VB.Net 2008 lalu berinama bikinlaporan kemudian buatlah sebuah code file untuk koneksi caranya (Project - Add New Item -> Pilih Code File). Isikan kode berikut ini :
Imports System.Data.SqlClient
Public Module modulkoneksi
#Region "Deklarasi Variabel"
Public koneksi As SqlConnection = Nothing
Public cmd As SqlCommand = Nothing
#End Region
#Region "Fungsi Testing Koneksi Database"
Public Sub TestKoneksi()
Dim connString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"
koneksi = New SqlClient.SqlConnection(connString)
Try
koneksi.Open()
koneksi.Close()
Catch ex As Exception
MessageBox.Show("Database Connection Error : " & ex.Message)
End Try
End Sub
#End Region
End Module
Untuk Data Source (nama Server) dan Initial Catalog (nama Database) dapat disesuaikan dengan kondisi di komputer anda.Untuk membuat file laporan, klik project - Add new Item - Crystal Report dan beri nama laporan.rpt (lihat gambar berikut)
Kemudian pada kotak dialog Crystal Report Gallery pilih As a Blank Report dan kita akan mendapat report kosong.
Munculkan Field Explorer (Apabila tidak muncul dapat dipanggil melalui menu Crystal Report - Field Explorer). Melalui Field Explorer klik kanan Database Fields dan pilih Database Expert, lalu pada Tree View pilih Create New Connection - OLE DB (ADO) lalu pilih Microsoft OLE DB Provider for SQL Server dan klik Next. Lalu pada settingan Server masukkan nama server anda (Atau bisa gunakan Computer Name), dalam hal ini saya menggunakan Integrated Security (bila anda tidak menggunakannya, masukkan username dan password login SQL Server anda) kemudian pilih database di opsi Database. Kemudian Klik Next dan Finish.
Koneksi sudah terbentuk, lalu pindahkan tabel tbl_buku sebagai selected tables dan Klik OK. Lihat gambar :
Melalui Field Explorer klik Database Fields, masukkan Field-field di tabel tbl_buku ke lembar laporan dan atur seperti contoh dibawah ini dan Save.
Buka Form1 dan melalui Toolbox cari CrystalReportViewer dan masukkan ke Form1. Melalui properties CrystalReportViewer, isikan ReportSource dengan laporan yang kita buat tadi. Run (F5) VB dan Report akan ditampilkan.
Tidak ada komentar:
Posting Komentar