Show Report In Crystal Report Viewer VBNET | DASAR PROGRAMER

Show Report In Crystal Report Viewer VBNET

Selamat tahun baru 2012... salam sukses untuk semuanya. Posting pertama saya di tahun baru ini adalah tentang cara menampilkan report di Crystal Report Viewer. Saya suka Crystal Report, karena selain mudah dipelajari juga banyak fitur fitur canggihnya. Sebenarnya sangat mudah menampilkan report di crystal report viewer ini, karena cukup dengan mengisi Property ReportSource di CrystalReportViewer, contoh CRViewer1.ReportSource = ReportName.
Hanya saja yang sering jadi masalah adalah pada saat meng-exceute perintah itu terkadang selalu muncul Login Prompt, yaitu kita harus mengisi dahulu user name dan password untuk koneksi ke database. Hal ini tentu sangat menjengkelkan bukan ?!. Baiklah, sebenarnya banyak cara untuk mengatasi hal itu, saya akan share cara menampilkan report with no login prompt yang paling mudah dengan menggunakan SetDataSource.
Agar langsung prakek, siapkan 1 project Visual Basic .NET, 1 Form (name:Form1), 1 Button (name:djieButton1), 1 TextBox (name:djieTextBox1), 1 CyrstalReportViewer (name:djieCrystalReportViewer1), 1 Report employee dari database Northwind.
Saya sudah buatkan functionnya :
Private Sub crystal_report_show(ByVal djieReport As CrystalDecisions.CrystalReports.Engine.ReportDocument, ByVal sql As String)
        Try
            Using con As New Odbc.OdbcConnection("DRIVER=sql server native client 10.0;SERVER=pandji\sql2008;UID=sa;PWD=djiesoft;DATABASE=northwind")
                'buat datasource
                con.Open()
                Dim adp As New Odbc.OdbcDataAdapter(sql, con)
                Dim tbl As New DataTable
                adp.Fill(tbl)
                'set report datasource
                With djieReport
                    .SetDataSource(tbl)
                    .Refresh()
                End With
               ''view report
                With djieCrystalReportViewer1
                    .ReportSource = djieReport
                    .Refresh()
                End With
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Kemudian pada saat button1 di-click:
Private Sub djieButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles djieButton1.Click
        Call crystal_report_show(New rptEmployees, "select * from employees") 'djieTextBox1.Text
End Sub

Sekian posting nya, semoga bisa bermanfaat ya... keep to explore !!!

Tags:
crystal report viewer, how to show report in vb net c#, basic crystal report dan visual studio, refresh report, report source crystal report, CR, view report, data source report, reporting in vs, report using crystal report, example, source code, function
Jika Anda menyukai Artikel di blog ini, Silahkan klik disini untuk berlangganan gratis via email, dengan begitu Anda akan mendapat kiriman artikel setiap ada artikel yang terbit di dasarprogrammer.blogspot.com

0 komentar:

Posting Komentar