cara membuat laporan menggunakan koneksi ke dataset dari database mysql

membuat multi koneksi pada crystal report menggunakan dataset dan data mengambil dari database mysql,tanpa menggunakan adodb

yang diperlukan :
1. net framework 0.4
2. membuat dataset
3.membuat koneksi mysql
4. membuat laporan pada crystal report
5. menghubungkan crystal report dengan dataset
6. buatlah form dan isikan dengan komponen crystal report viewer

dan isikan koding berikut :

Imports MySql.Data.MySqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class Form_Laporan_Penerimaan_Bulanan
    Dim Da As New MySqlDataAdapter
    Dim cmd As MySqlCommand
    Dim Ds As New Laporan_Sibbuna
    Private Sub Btampilkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btampilkan.Click
        Call switch_koneksi()
        Dim Laporan As New Laporan_Penerimaan_Bulanan
        Try
            CRV.ReportSource = Nothing
            cmd = New MySqlCommand("Select tgl_pembelian,jam,faktur,no_mobil,nama_supir,stik_mobil,pembelian,pembelian_id from tb_pembelian", conn)
            Da.SelectCommand = cmd
            Da.Fill(Ds, "tb_pembelian")
            cmd = New MySqlCommand("Select tangki_id,pembelian_id,nama_tangki,tgl_tangki,stok_fisik_awal,stok_fisik_akhir from tb_tangki", conn)
            Da.SelectCommand = cmd
            Da.Fill(Ds, "tb_tangki")
            cmd = New MySqlCommand("Select totalisator_id,tangki_id from tb_totalisator", conn)
            Da.SelectCommand = cmd
            Da.Fill(Ds, "tb_totalisator")
            cmd = New MySqlCommand("Select nozzel_id,totalisator_id,nama_nozzel,jml_awal,jml_akhir from tb_nozzel", conn)
            Da.SelectCommand = cmd
            Da.Fill(Ds, "tb_nozzel")
            Laporan.SetDataSource(Ds)
            Laporan.SetDatabaseLogon("" & Tuserr & "", "" & Tpasss & "", "" & Tserverr & "", "" & Tdatabasee & "")
            CRV.SelectionFormula = "Month({tb_pembelian.tgl_pembelian}) =" & Dbulan.Value.ToString("MM") & ""
            With CRV
                .ReportSource = Laporan
                .RefreshReport()
                .Refresh()
            End With
        Catch Excep As Exception
            MessageBox.Show(Excep.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
End Class

sesuaikan dengan koneksi yang agan bikin dan apabila terjadi error tambahkan script berikut ke app.confing pada projek agan  :

<?xml version="1.0"?>
<configuration>
    <startup useLegacyV2RuntimeActivationPolicy="true">
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
    </startup>
</configuration>

okey selamat mencoba semoga bermanfaat