Print CR

Imports MySql.Data.MySqlClient
Imports CrystalDecisions.CrystalReports.Engine
Public Class RptPegawai
    Private oConnection As New MySqlConnection


    Private Sub RptPegawai_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        ConnectionString = "server=" + Server + ";user id=" + UserName + ";" _
                        & " password=" + KataKunci + ";database=" + Database + ";"


        ShowData2()


    End Sub



    Private Sub ShowData2()
        'Dim rpt As New rpt_pegawai() 'The report you created.
        Dim rpt As New ReportDocument() 'The report you created.
        Dim myCon As MySqlConnection
        Dim myAdapter As MySqlDataAdapter
        Dim myDataset As New db_report 'The DataSet you created.
        myCon = New MySqlConnection(ConnectionString)

        myAdapter = New MySqlDataAdapter("Select * FROM pegawai WHERE IDPegawai='2001'", myCon)
        myAdapter.Fill(myDataset.Tables(0)) 'DS.Tables(0)
        rpt.Load(System.Environment.CurrentDirectory & "\rpt_pegawai.rpt")
        rpt.SetDataSource(myDataset.Tables(0))

        CrystalReportViewer1.ReportSource = rpt

        CrystalReportViewer1.Refresh()
    End Sub


End Class