by

Tutorial Menggunakan DataGridView di Visual Basic

DataGridView adalah salah satu komponen di Visual Basic VB.NET yang sering digunakan untuk menampilkan record data pada database. Kemudahan dalam penggunaan serta codingnya membuat DataGridView mempunyai kelebihan tersendiri di hati para desktop programmer.

Menggunakan DataGridView di Visual Basic
Menggunakan DataGridView di Visual Basic

Selain itu daripada menggunakan ListView, custom untuk style/gaya dari DataGridView juga relatif lebih banyak, sehingga membuatnya nampak jauh lebih menarik. Jika anda berniat ingin menggunakan DataGridView untuk menampilkan record dari database, saya akan memberikan tutorialnya kepada anda.

Anda juga dapat mendownload project lengkapnya, sehingga dapat anda pelajari dengan lebih mudah dan leluasa.

Tutorial menggunakan DataGridView di Visual Basic

  1. Buat file “class” koneksi dan berinama dengan “DTConnection”. Masukkan coding berikut dalam class DTConnection.

Kode “DTConnection.vb”:

[vb]Imports MySql.Data.MySqlClient

Public Class DTConnection
Dim conect As New MySqlConnection("server=localhost;user=root;password=”;database=’db_GRID’")
Public Function open() As MySqlConnection
Try
conect.Open()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return conect
End Function

Public Function close() As MySqlConnection
Try
conect.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return conect
End Function

End Class[/vb]

  1. Tambahkan/buat sebuah form dan beri nama dengan “Form1”. Untuk item-itemnya silakan lihat screenshot pada postingan ini. Berikut adalah coding untuk “Form1” yang berfungsi untuk menampilkan, dan melakukan perintah CRUD data dengan database MySQL.

Kode “Form1.vb”:

[vb]Imports MySql.Data.MySqlClient
Public Class Form1
#Region "declaration"
Dim mycmd As New MySqlCommand
Dim myconection As New DTConnection
Dim dadapter As MySqlDataAdapter
Dim dtable As New DataTable
#End Region
#Region "ForGridview"
Sub VwGridview()
mycmd.Connection = myconection.open
mycmd.CommandText = "select * from tb_details order by id asc"
dadapter = New MySqlDataAdapter(mycmd)
dtable.Rows.Clear()
dadapter.Fill(dtable)
If Not dtable Is Nothing AndAlso dtable.Rows.Count > 0 Then
DataGridView1.AutoGenerateColumns = False
DataGridView1.DataSource = dtable
DataGridView1.Columns(0).DataPropertyName = "id"
DataGridView1.Columns(1).DataPropertyName = "names"
End If
myconection.close()
End Sub

Sub clickGridView()
Dim i As Integer
Try
With DataGridView1
If .CurrentCell.Value Is Nothing Then
Exit Sub

Else
i = .CurrentRow.Index
TID.Text = .Rows(i).Cells(0).Value.ToString
TNAME.Text = .Rows(i).Cells(1).Value.ToString
End If
End With
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
End Sub
#End Region
Private Sub BTINSERT_Click(sender As Object, e As EventArgs) Handles BTINSERT.Click
mycmd.Connection = myconection.open
mycmd.CommandText = "insert into tb_details(id,names) values(‘" & TID.Text & "’,’" & TNAME.Text & "’)"
mycmd.ExecuteNonQuery()
myconection.close()
VwGridview()
MsgBox("Data saved !", MsgBoxStyle.Information, "Notice")
End Sub

Private Sub BTUPDATE_Click(sender As Object, e As EventArgs) Handles BTUPDATE.Click
mycmd.Connection = myconection.open
mycmd.CommandText = "update tb_details set names=’" & TNAME.Text & "’ where id=’" & TID.Text & "’"
mycmd.ExecuteNonQuery()
myconection.close()
VwGridview()
MsgBox("Data updated !", MsgBoxStyle.Information, "Notice")
End Sub
Private Sub BTDELETE_Click(sender As Object, e As EventArgs) Handles BTDELETE.Click
mycmd.Connection = myconection.open
mycmd.CommandText = "delete from tb_details where id=’" & TID.Text & "’"
mycmd.ExecuteNonQuery()
myconection.close()
VwGridview()
MsgBox("Data deleted !", MsgBoxStyle.Information, "Notice")
End Sub

Private Sub BTVIEW_Click(sender As Object, e As EventArgs) Handles BTVIEW.Click
VwGridview()
End Sub
Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
clickGridView()
End Sub
End Class[/vb]

Jika anda masih kurang jelas, anda dapat melihat video tutorialnya dibawah (include projectnya).

[ Download Project No. 2 ]

Comment

Leave a Reply

Your email address will not be published. Required fields are marked *