Membuat Report dengan Crystal Report MySQL dan VB.NET

Membuat Report dengan Crystal Report MySQL dan VB.NET

Pada project ini saya menggunakan visual basic 2008, crystal repor xi r2 dan mysql bawaan xampp di windows 7

Langkah-langkah yang ANDA lakukan untuk membauta report dengan Crysttal Report, MySQL dan Visual Basic .net:
1. Membuat datasource
2. Membuat Report
3. Menampilkan Report


1. Membuat datasource
Pada artikel ini ANDA akan membuat dataset dengan vb.net sebagai datasource lalu menyimpannya dalam format XML.

Anda harus bisa menghubungkan vb.net dengan sumbar data mysql untuk mengerjakan project ini.

Berikut adalah kode untuk membuat dataset:

Imports CrystalDecisions.CrystalReports.Engine Imports System.Data Imports MySql.Data.MySqlClient Public Class Form1     Private myData As New DataSet     Private conn As New MySqlConnection     Private cmd As New MySqlCommand     Private myAdapter As New MySqlDataAdapter     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) HandlesMe.Load         conn.ConnectionString = "server=localhost;uid=root;pwd=;database=kuliah"         conn.Open()         cmd.CommandText = "SELECT kd_kul,nama_kul from mata_kuliah"         cmd.Connection = conn         myAdapter.SelectCommand = cmd         myAdapter.Fill(myData)         myData.WriteXml(Application.StartupPath & "\dataset.xml", XmlWriteMode.WriteSchema)     End Sub

2. Membuat Report Hal yang penting dalam pembuatan report nya adalah Anda harus mengarahkan sumber data ko ADO.NET (XML). Lihat gambar di bawah ini:

3. Menampilkan Report Berikut adalah kode untuk menampilkan reportnya:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click         Dim myReport As New ReportDocument         If conn.State <> ConnectionState.Open Then             conn.Open()         End If         cmd.CommandText = "SELECT kd_kul,nama_kul from mata_kuliah"         cmd.Connection = conn         myAdapter.SelectCommand = cmd         myData.Clear()         myAdapter.Fill(myData)         myReport.Load(Application.StartupPath & "\kuliah.rpt")         myReport.SetDataSource(myData)         CrystalReportViewer1.ReportSource = myReport     End Sub

Berikut adalah gambar reprt dengan crystal report mysql dan vb.net sedang berjalan:

Silahkan download contoh project nya di mari gan .

Browse More Articles

Tweet

Written by thoestone

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.