Tutorial VB.Net Membuat Fungsi Menampilkan Data Dari Tabel Ke Datagridview

Tujuan dari membuat fungsi ini adalah agar mempermudah sekaligus mempercepat pembuatan aplikasi, karena setiap kali anda akan menampilkan data dari tabel ke datagridview anda cukup memanggil fungsi ini sehingga tidak perlu menulis ulang kode program yang panjang.

Saya harap anda sudah memahami dahulu bagaimana membuat database dan table di mysql.

1. Buat database dengan nama : kampus_db dan buat tabel t_mahasiswa dengan struktur di bawah ini. silahkan anda execute script sql berikut:

DROP DATABASE IF EXISTS kampus_db; CREATE DATABASE kampus_db; USE kampus_db; DROP TABLE IF EXISTS `t_mahasiswa`; CREATE TABLE `t_mahasiswa` ( `id` int(5) NOT NULL AUTO_INCREMENT, `nim` varchar(6) NOT NULL, `full_name` varchar(20) NOT NULL, `jenis_kelamin` varchar(6) NOT NULL, `jurusan` varchar(30) NOT NULL, PRIMARY KEY (`id`), UNIQUE KEY `nim` (`nim`) ) ENGINE=InnoDB DEFAULT CHARSET=latin1; INSERT INTO t_mahasiswa (nim,full_name,jenis_kelamin,jurusan) VALUES ('100201','FRANSISKUS SUTRIS','PRIA','TEKNIK INFORMATIKA'), ('101202','MUHAMMAD ILHAM','PRIA','SISTEM INFORMASI'), ('102203','FRANSISKA HANDANI','WANITA','MANAJEMEN');

2. Tambahkan Mysql.Data.dll dalam Project Reference

3. Tambahkan Modul dan beri nama Modul1.vb, lalu kopikan kode program berikut :

Imports MySql.Data.MySqlClient Module Module1 Public conn As New MySqlConnection Public errorDescription As String Public server As String = "127.0.0.1" 'silahkan disesuaikan Public username As String = "root" 'disesuaikan /user default mysql adalah root Public password As String = "12345678" 'ini password root ditempat saya Public database_name As String = "kampus_db" Public Function bejoDBConnect() As String 'fungsi koneksi ke mysql database If Not conn Is Nothing Then conn.Close() conn.ConnectionString = String.Format("server={0}; user id={1}; password={2}; database={3}; pooling=false; Convert Zero Datetime=True", server, username, password, database_name) Try conn.Open() Return "OK" Catch ex As Exception errorDescription = ex.Message Return ex.Message End Try End Function Sub showDataToDGV(sql As String, tabelName As String, dgv As DataGridView) 'fungsi menampilkan data ke datagridview bejoDBConnect() Try Dim com As String = sql Dim Adpt As New MySqlDataAdapter(com, conn) Dim ds As New DataSet() Adpt.Fill(ds, tabelName) dgv.DataSource = ds.Tables(0) Catch ex As Exception MsgBox(ex.Message, vbCritical) End Try End Sub End Module

4. Silahkan tambahkan Windows Form dan biarkan namanya Form2.vb, drag control datagridview ke dalam form2, tambahkan juga Button ke dalam form2 seperti gambar berikut ini:

5. Double Click pada kontrol Button1, lalu kopikan kode program berikut ini pada sub Button1_Click :

Cursor.Current = Cursors.WaitCursor showDataToDGV("Select * FROM t_mahasiswa", "t_mahasiswa", DataGridView1) Cursor.Current = Cursors.Default
Kode program lengkapnya pada form2.vb adalah seperti berikut :

6. Silahkan ubah Startup Form pada project properties menjadi Form2. Lalu coba tekan F5 untuk menjalankan programnya. Ketika dijalankan dan Button1 diklik maka data mahasiswa dari tabel t_mahasiswa akan tampil di dalam datagridview:

7. Jadi setiap kali anda akan menampilkan data dari tabel ke datagridview cukup panggil saja fungsi showDataToDGV.

showDataToDGV(sql As String, tabelName As String, dgv As DataGridView)

Penjelasan Fungsi showDataToDGV :

Parameter	Deskripsi
sql	sql query untuk membaca data dengan diawali perintah select
tableName	nama tabel yang diseleksi
dgv	nama kontrol datagridview yang akan digunakan untuk menampilkan data