loading...

loading...

Hai Gays , Kali ini saya mau share tutor cara menambahkan CheckBox pada datagridview vbnet , dimana checkbox tersebut nanti bisa di select untuk keperluan delete or insert ataupun yang lain.

Pertama buat New Project Vbnya

screenshot_1

kemudian buat conection string untuk membinding data dari database ke datagridviw , ketikan coding di bawah ini terlebih dulu , letakan paling atas

Imports System.Data
Imports System.Data.SqlClient

kemudian ketik coding ini persis di bawah Public Class Form1 ,guna untuk melakukan koneksi ke database, dalam kasus ini saya menggunakan Db Sql Server

Private Const ConnectionString As String = "Data Source=localhost;Initial
Catalog=INDOPLAT_121016;Integrated Security = true"

kemudian buatlah sub baru untuk penarikan data dari database ke datagridview


Private Sub BindGrid()
Using con As New SqlConnection(ConnectionString)
Using cmd As New SqlCommand("SELECT USERID,PASSWORD FROM dbo.OUSR", con)
cmd.CommandType = CommandType.Text
Using sda As New SqlDataAdapter(cmd)
Using dt As New DataTable()
sda.Fill(dt)
dataGridView1.DataSource = dt
End Using
End Using
End Using
End Using

'Add Checkbox pada gridview dan di masukan pada Index  0
Dim checkBoxColumn As New DataGridViewCheckBoxColumn()
checkBoxColumn.HeaderText = ""
checkBoxColumn.Width = 30
checkBoxColumn.Name = "checkBoxColumn"
dataGridView1.Columns.Insert(0, checkBoxColumn)
End Sub

kemudian panggil sub tadi pada form_load

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

Setelah itu klik 2x pada button dan coding kondisi yang kita inginkan

Private Sub btnGet_Click(sender As System.Object, e As System.EventArgs) Handles btnGet.Click
Dim message As String = String.Empty
For Each row As DataGridViewRow In dataGridView1.Rows
Dim isSelected As Boolean = Convert.ToBoolean(row.Cells("checkBoxColumn").Value)
If isSelected Then
message &= Environment.NewLine
message &= row.Cells(1).Value.ToString()
End If
Next
MessageBox.Show(Convert.ToString("Selected Values") & message)
End Sub

kemudian running Project Tersebut , dan Ini lah hasilnya
screenshot_2

Download Contoh Project

Semoga Membantu !

Add CheckBox Column to DataGridView in Windows Forms application using VB.Net
Share This
FacebookTwitterGoogle+WhatsAppEmailPrintFriendly
loading...

Post navigation


Leave a Reply

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