Membuat Laporan RDLC di VB.Net menggunakan Access dan Dataset

Membuat Laporan di VB.Net menggunakan Access dan Dataset.

Di posting kali ini kita akan mencoba membuat report yang terfilter, kali ini kita belum menggunakan parameter di reportya tetapi kita filter saat pemanggilan datanya dengan filter WHERE di SQL untuk info lebih jelas bagaimana penggunaan klausan where bisa cek disini.

Database Sample.

Sampel Struktur database MS. Access 2007

4 Buah field dengan NIK menjadi primary key

dengan sample data seperti ini.

setelah database tersedia, kita masuk dalam desain program.

Form 

Form Print Preview

gunakan report viewer, jika report viewer tidak ada dalam Toolbox kemungkinannya adalah

cek disini

Buat Report

setelah desain report selesai, kita mulai mengisi form yang kita buat dengan script

Script Untuk Mengisidata ke dataset dan menampilkannya kedalam report.

 Private Sub print_preview_by_nik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles print_preview_by_nik.Click
        'buat variable untuk mendeklarasikan datasource
        Dim rptDataSource As ReportDataSource
        'deklarasikan f sebagai form print preview
        Dim f As New print_preview
        With f.rtv.LocalReport
            'PENTING HARUS 1 FOLDER KARENA DISINI TIDAK DIDEFINISIKAN FOLDERNYA
            .ReportPath = "report_by_nik.rdlc"
            .DataSources.Clear()
        End With
        'populasi data dari datagridview 
        Dim ds As DataSet = New Dataset_karyawan
        Using iKon = New OleDbConnection(connection_string)
            If iKon.State = ConnectionState.Open Then iKon.Close()
            iKon.Open()
            Using iCmd = New OleDbCommand("select * from karyawan where nik = @nik", iKon)
                iCmd.Parameters.Add(New OleDbParameter("@nik", tnik.Text))
                Using iAdapter As New OleDbDataAdapter
                    iAdapter.SelectCommand = iCmd
                    iAdapter.Fill(ds, "data_karyawan")
                End Using
            End Using
        End Using
        rptDataSource = New ReportDataSource("ds_karyawan", ds.Tables(0))
        f.rtv.LocalReport.DataSources.Add(rptDataSource)
        f.Show()
        f.rtv.RefreshReport()
    End Sub

klik cetak dan data akan tampil di form print viewer.

Bahasa : VB.Net
IDE : Visual Studio 2010
Framework : .Net 3.5
Report : RDLC, Microsoft Report Viewer
Database : MS Access 2007



sekian dulu berbaginya, jangan lupa like, komen, share.
jangan lupa sertakan link blog ini sebagai sumber kalo kalian mau paste tutorial ini di blog kalian.