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”:

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
  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”:

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

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 *