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