[stevennathaniel]

Saya ingin mencoba berbagi pengetahuan tentang kegiatan belajar pemrograman yang sedang saya kerjakan. saya sedang mempelajari pemrograman Visual Basic .NET. dengan tujuan membuat aplikasi database. server yang di pergunakan adalah MYSQL. Mungkin catatan pengetahuan ini kurang lengkap, tapi setidaknya saya mencoba berbagi. Karena biasanya cuma nulis status di Facebook, jadi apa salahnya kalau share juga disini, biar forum ini jadi tambah rame.

Dibawah ini saya share dulu source code yang terakhir berhasil saya tulis. dalam source code ini sudah ada code Crystal Report, jadi untuk reportnya saya menggunakan crystal report. berikut ini source code nya:

Code:

Imports MySql.Data.MySqlClient

Imports CrystalDecisions.CrystalReports.Engine


Public Class Form1

    Dim Koneksi As MySqlConnection

    Dim PerintahSQL As MySqlCommand

    Dim DataAdapter As MySqlDataAdapter

    Dim ds As DataSet


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        ' Menampilkan data di datagridview secara langsung ketika form di load

        Koneksi = New MySqlConnection("server=localhost;database=latihan1;password=kucing;username=root;")

        Dim TampilkanData As String = "SELECT * FROM pengguna"

        DataAdapter = New MySqlDataAdapter(TampilkanData, Koneksi)

        ds = New DataSet

        Koneksi.Open()

        DataAdapter.Fill(ds, "pengguna")

        Koneksi.Close()

        DataGridView1.DataSource = ds

        DataGridView1.DataMember = "pengguna"

        Koneksi.Dispose()


    End Sub

    Private Sub DataGridView1_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

        Dim i As Integer

        i = DataGridView1.CurrentRow.Index

        Me.txtIdPengguna.Text = DataGridView1.Item(0, i).Value

        Me.txtNamaLengkap.Text = DataGridView1.Item(1, i).Value

        Me.txtNamaPengguna.Text = DataGridView1.Item(2, i).Value

        Me.txtKataKunci.Text = DataGridView1.Item(3, i).Value



    End Sub

    Private Sub btnSimpan_Click(sender As System.Object, e As System.EventArgs) Handles btnSimpan.Click

        ' bikin koneksi ke MYSQL & kemudian bikin perintah SQL untuk input data ke server

        Koneksi = New MySqlConnection("server=localhost; database=latihan1; password=kucing; username=root;")

        Dim masukanData As String = "INSERT INTO pengguna(namalengkap,namapengguna,katakunci) VALUES ('" + txtNamaLengkap.Text + "','" + txtNamaPengguna.Text + "','" + txtKataKunci.Text + "')"

        PerintahSQL = New MySqlCommand(masukanData)

        PerintahSQL.Connection = Koneksi

        Koneksi.Open()

        PerintahSQL.ExecuteNonQuery()


        txtNamaLengkap.Text = ""

        txtNamaPengguna.Text = ""

        txtKataKunci.Text = ""

        txtNamaLengkap.Focus()


        Dim tampilkanData As String = "SELECT * FROM pengguna"


        DataAdapter = New MySqlDataAdapter(tampilkanData, Koneksi)

        ds = New DataSet

        DataAdapter.Fill(ds, "pengguna")

        Koneksi.Close()

        DataGridView1.DataSource = ds

        DataGridView1.DataMember = "pengguna"

        Koneksi.Dispose()



    End Sub

    Private Sub btnUpdate_Click(sender As System.Object, e As System.EventArgs) Handles btnUpdate.Click

        Koneksi = New MySqlConnection("server=localhost;database=latihan1;password=kucing;username=root;")

        Dim updateData As String = "UPDATE pengguna SET namalengkap = '" & txtNamaLengkap.Text & "',namapengguna = '" & txtNamaPengguna.Text & "',katakunci = '" & txtKataKunci.Text & "' WHERE iduser = '" & txtIdPengguna.Text & "';  "

        PerintahSQL = New MySqlCommand(updateData)

        PerintahSQL.Connection = Koneksi

        Koneksi.Open()

        PerintahSQL.ExecuteNonQuery()


        txtIdPengguna.Text = ""

        txtNamaLengkap.Text = ""

        txtNamaPengguna.Text = ""

        txtKataKunci.Text = ""


        txtNamaLengkap.Focus()


        Dim tampilkanData As String = "SELECT * FROM pengguna"

        DataAdapter = New MySqlDataAdapter(tampilkanData, Koneksi)

        ds = New DataSet

        DataAdapter.Fill(ds, "pengguna")



        Koneksi.Close()

        DataGridView1.DataSource = ds

        DataGridView1.DataMember = "pengguna"


        Koneksi.Dispose()




    End Sub

    Private Sub btnHapus_Click(sender As System.Object, e As System.EventArgs) Handles btnHapus.Click

        Koneksi = New MySqlConnection("server=localhost;database=latihan1;password=kucing;username=root;")

        Dim hapusData As String = "DELETE FROM pengguna WHERE iduser = '" & txtIdPengguna.Text & "';"

        PerintahSQL = New MySqlCommand(hapusData)

        PerintahSQL.Connection = Koneksi

        Koneksi.Open()


        PerintahSQL.ExecuteNonQuery()


        txtIdPengguna.Text = ""

        txtNamaLengkap.Text = ""

        txtNamaPengguna.Text = ""

        txtKataKunci.Text = ""


        txtNamaLengkap.Focus()

        Dim tampilkanData As String = "SELECT * FROM pengguna "


        DataAdapter = New MySqlDataAdapter(tampilkanData, Koneksi)

        ds = New DataSet

        DataAdapter.Fill(ds, "pengguna")



        Koneksi.Close()

        DataGridView1.DataSource = ds

        DataGridView1.DataMember = "pengguna"

        Koneksi.Dispose()


    End Sub

    Private Sub btnTampilReport_Click(sender As System.Object, e As System.EventArgs) Handles btnTampilReport.Click

        Dim cryRpt As New ReportDocument

        cryRpt.Load("D:\Proyek Database Visual Basic\Latihan10\Latihan10\Latihan10\CrystalReport1.rpt")

        CrystalReportViewer1.ReportSource = cryRpt

        CrystalReportViewer1.Refresh()

    End Sub
End Class

Tampilan gambar desain GUI untuk kode diatas:





Link untuk download file-file pemrograman Visual Basic .Net diatas


Dalam proyek ini saya menggunakan plugin Crystal Report For Visual Studio 2010 yang bisa di download di sini :


Link Download Crystal Report For Visual Studio 2010


Referensi mengenai Crystal Report For Visual Studio 2010 salah satunya bisa di dapatkan disini:

Crystal Reports Version for VS 2010

Saya juga menggunakan konektor .NET untuk MYSQL. Buat dapatin konektor nya bisa ke sini:

.NET Connector For MYSQL

Kalau untuk koneksi Crystal Report ke MYSQL server saya menggunakan konektor ODBC yang untuk MYSQL. ODBC nya bisa didapatkan disini:

ODBC Connector For MYSQL


Ini foto tabel database MYSQL nya yg sudah di isi lewat program yg dibuat, saya menggunakan aplikasi SQLyog untuk menampilkan data & mengoperasikan database MYSQL dengan menggunakan tampilan visual:





Ini desain tabel MYSQL nya, untuk membuat tabelnya saya pun menggunakan SQLyog:




mau kasih lihat cara untuk memasukan plugin Crystal Report For Visual Basic .NET 2010 ke dalam kodingan. begini caranya:

Pertama kita pilih menu Project , kemudian kita pilih Add New Item .




Kemudian akan muncul tampilan window seperti dibawah ini, kemudian kita pilih Crystals Report :




Kemudian akan muncul window ini, dan kita pilih Using the Report Wizard , dan di bagian Choose an Expert, biarkan pilihan pada Standard . Selanjutnya klik tombol OK :




Kemudian akan muncul window seperti di bawah ini, kita klik tanda + yg ada disamping MYSQL , maka akan muncul tampilan window seperti dibawah ini. juga kita klik tanda + di samping tulisan latihan1 . latihan1 merupakan nama database MYSQL nya.:




Kemudian pilih tabel pengguna, dan klik tombol > sehingga di bawah kolom Selected Tables akan muncul tulisan pengguna1 . Setelah itu di klik tombol Next .

Maka akan muncul tampilan Window di bawah ini:




Selanjutnya kita pilih nama-nama kolom yang ada di tabel pengguna1 , yaitu:

1. iduser
   
2. namalengkap
   
3. namapengguna
   
4. katakunci
   

misalnya setelah kita pilih iduser, kemudian klik tombol yang ada tanda > , maka iduser akan tampil di kolom Field to Display. Demikin juga dengan namalengkap, namapengguna, katakunci. seperti terlihat pada gambar di bawah ini:




Setelah tampilan window wizard kita menjadi seperti diatas, maka kita tinggal mengklik tombol Finish. Setelah itu maka akan muncul tampilan seperti ini:




dengan munculnya tampilan seperti ini, maka berarti kita sudah keluar dari window wizardnya Crystal Report, dan kita berada di tampilan yang bisa dipakai untuk mendesain form report/laporan kita di  Crystal Report For Visual Basic 2010. Untuk latihan diatas, saya tetap membiarkan tampilan defaultnya , tidak saya ubah dikarenakan masih sebatas mengetest kode VB .NET yang saya buat, apakah bisa dijalankan atau tidak.

Untuk yg selanjutnya nanti, akan saya perlihatkan, bagaimana cara menaruh komponen untuk menampilkan form reportnya ketika program dijalankan, juga sebuah tombol yang dibuat untuk mengeksekusi perintah menampilkan form report yang dibuat menggunakan Crystal Report.


Ok segini dulu. nanti saya usahakan update update lagi. seperti biasa. sedikit sedikit updatenya seperti di Facebook. Masih belajar supaya rajin posting di Forum. Kalau di FB kan udah sering bantuin forum forum FB. hahahaha.... curhat dikit.