Multi Delete Record di database dengan Vb.NetMulti Delete Record di databse dengan checkBox di ListView

Dalam kasuss tertentu,terkadang kita harus Menghapus Multiple Rikord dari database,dalam hal ini saya akan mengggunakan vb.net untuk menghapus multiple Rikord,dan caranya gampang bangget, ok pertama-tama kita create dulu databasenya.terserah anda menggunakan editor Mysql apa aja di sini saya akan membuat databse mahasiswa,dan Querinya sebagai berkikut :

Queri untuk membuat database

CREATE DATABASE Data ;

USE Data;

CREATE TABLE `datamahasiswa` (

`nim` int(11) NOT NULL auto_increment,

`nama` varchar(100) collate latin1_general_ci NOT NULL,

`alamat` varchar(100) collate latin1_general_ci NOT NULL,

PRIMARY KEY (`nim`)

);

Queri untuk Memasukkan data

INSERT INTO datamahasiswa values('0612502526','faiz fadly','Jl.Ulujami Raya');

INSERT INTO datamahasiswa values('0612502527','Fitri meiyanti','Jalan Jalan Aja');

Ok database sudah di Buat sekarang kita akan membuat programnya mengunakan vb.net,mulailah memebuat project baru.karna kita menggunakan databse mysql maka kita perlu menambahkan mysql konektor ke project kita untuk mengkoneksikan program yang akan kita buat ke databse mysql,alternatifnya,tambahkan “Mysql.Data.dll” ke projek anda.caranya pilih menu projectàaddReferenceàbrowse,kemudian pilih di mana anda meletakkan file “Mysql.Data.dll” kemudian klick OK.jelasnya seperti gambar dibawah ini:

Ok sekarang kita tambahkan kontrol ListView dan Button Ke project Kita hasilnay Seperti gambar di bawah ini :

Propertinya Sebagai Berikut :

Control	Properti
Button1	Name = btnHapus Text = Hapus
ListView1	Colum --> Add(3 ColumnHeader) --> text(ColumnHeader1 = NIM ColumnHeader2 = NAMA ColumnHeader2 = ALAMAT ) FullRowSelect = true Gridllines =true View = details Name = listView1 checkBoxes = true

Kode Lengkapnya Seperti di bawah ini :

Imports MySql.Data.MySqlClient

Public Class Form1

Dim strconn As String = "server=localhost;uid=root;pwd=;database=data;"

Dim cmd As MySqlCommand

Dim reader As MySqlDataReader

Dim cn As New MySqlConnection(strconn)

Public Sub tammpil_data()

Dim q As String

q = "SELECT nim,nama,alamat FROM datamahasiswa"

cmd = New MySqlCommand(q, cn)

reader = cmd.ExecuteReader

ListView1.Items.Clear()

While reader.Read

Dim item As New ListViewItem

item.Text = reader.Item("nim")

item.SubItems.Add(reader.Item("nama"))

item.SubItems.Add(reader.Item("alamat"))

ListView1.Items.AddRange(New ListViewItem() {item})

End While

End Sub

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

cn.Open()

tammpil_data()

End Sub

Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

Dim x As Boolean

For i As Integer = 0 To ListView1.Items.Count - 1

If ListView1.Items(i).Checked Then

Dim Q2 As String

Q2 = "DELETE FROM datamahasiswa WHERE nim ='" & ListView1.Items(i).Text & "'"

cmd = New MySqlCommand(Q2, cn)

cmd.Dispose()

reader.Close()

x = cmd.ExecuteNonQuery

End If

Next

If x = True Then

MsgBox("Data Berhasil di hapus", MsgBoxStyle.Information)

Else

MsgBox("Silah cek dulu data yanng mau di hapus", MsgBoxStyle.Critical)

End If

tammpil_data()

End Sub

End Class

Hasilnya Seperti di bawah ini :