VB.Net Tutorial Creating a Function Displaying Data From Table To Datagridview

The purpose of making this function is to facilitate and accelerate the making of the application, because every time you will display data from the table to the datagridview you simply call this function so there is no need to rewrite the long program code.

I hope you understand first how to create database and table in mysql.

1. Create database with name: kampus_db and create table t_mahasiswa with structure below. please execute your sql script following:

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. Add Mysql.Data.dll in Project Reference

3. Add a Module and name it Module1.vb, then copy the following program code :

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. Please add Windows Form and leave the name Form2.vb, drag the datagridview control into form2, add the Button to the form2 as shown below:

5. Double Click on control Button 1, then copy the following program code on sub Button1_Click :

Cursor.Current = Cursors.WaitCursor showDataToDGV("Select * FROM t_mahasiswa", "t_mahasiswa", DataGridView1) Cursor.Current = Cursors.Default
The full program code in form2.vb is as follows :

6. Please change the Startup Form on the project properties to Form2. Then try press F5 to run the program. When executed and Button1 is clicked then student data from table t_mahasiswa will appear in datagridview:

7. So every time you will display data from table to datagridview just call the showDataToDGV function.

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

Explanation Function showDataToDGV :

Parameter	Description
sql	sql query to read data with prefixed commands select
tableName	selected table names
dgv	control name datagridview which will be used to display data