Delete Multiple Record Menggunakan Kontrol Ceckbox Di Lisview

Delete Multiple Record di databse Menggunakan Program VB.Net F2VMCODER

Multi Delete Record di databse dengan checkBox di ListView Pernah waktu itu saya membuat sebuah aplikasi dengan menggunakn Program PHP dan databse mysql untuk menghapus Multi record di databse mysql,kemudian seorang teman yang baru belajar vb.net bertanya kepada saya “kalo ngapus multi record menggunakan VB.net gimana c ??tau gak caranya??”Mungkin artikel ini Jawaban dari teman saya tadi. Ok gak perlu banayak basa-basi Pertama2 kita buat databasenya dulu,dalam kasus ini saya akan membuat database data mahasiswa. Dan Querinya sebagai Berikut : 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 Raya');

values('0612502526','faiz fadly','Jl.Ulujami

INSERT INTO datamahasiswa Aja');

values('0612502527','Fitri meiyanti','Jalan Jalan

Untuk menulis sript di atas kalian boleh menggunakan editor mysql yang anda suka,boleh dengan command prompt, Mysql-Font atau phpMyadmin.karna yang di ajarkan di kampus menggunakan Mysql-Font maka saya akan memberi contoh menggunakan Mysql-Font,caranya buka Mysql-Font anda, kalo Sudah terbuka pilih tab “SQL Editor” dan pastekan kode di atas di area kode SQL editor, Kemudian klick tanda anak panah yang berwarna hijau. kemudian klick refresh atau F5.jelasnya seperti gambar di bawah ini :

© 2009 F2VMCODER | http://f2vmcoder.blogspot.com

1

Delete Multiple Record di databse Menggunakan Program VB.Net F2VMCODER

Ok database sudah Kita Buat,sekarang kita akan membuat programnya Menggukan Visual Studio 2005(VB.NET),mulailah Buka Visual Studio anda dan mulailah Membuat Projec baru(nama Terserah anda).karna kita menggunakan databse mysql maka kita perlu menambahkan mysql konektor ke project yang kita buat ,alternatifnya,tambahkan “Mysql.Data.dll” ke projek anda. anda bias mencarinya di google dengan kata kunci ”Mysql.Data.dll download”.dan untuk Menambahkan File tersebut Ke project yang telah kita buat caranya pilih menu projectaddReferencebrowse,kemudian pilih di mana anda meletakkan file “Mysql.Data.dll” kemudian klick OK.jelasnya seperti gambar dibawah ini:

© 2009 F2VMCODER | http://f2vmcoder.blogspot.com

2

Delete Multiple Record di databse Menggunakan Program VB.Net F2VMCODER

OK kalo File file “Mysql.Data.dll” Sudah Berhasil di add , Sekarang kita tambahkan control ListView dan Button ke form yang sudah anda buat lihat 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

Disan sudah selesai sekarang kita mulai masuk ke tahap koding.dan kodingnya sebagai berikut

© 2009 F2VMCODER | http://f2vmcoder.blogspot.com

3

Delete Multiple Record di databse Menggunakan Program VB.Net F2VMCODER 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

© 2009 F2VMCODER | http://f2vmcoder.blogspot.com

4

Delete Multiple Record di databse Menggunakan Program VB.Net F2VMCODER

Hasilnya Akan tampak Seperti di bawah ini :

Ok Selamat Mencoba..............., Maaf Tampilan Formnya agak berantakan,anda bisa Mempercantiknya dengan Kreasi anda sendiri,

Biografi Penulis : Faiz Fadly , putra pulau garam anak kedua dari tiga bersaudara,kelahiran 198..., menyelesaikan sekolah di pondok pesantren Ummulquro al-islami bogor tahun 2006,saat ini bekerja sebagai Programer Freelance dan web developer,dan masih kuliah di universitas budi luhur jakarta, smt 5,jurusan Sistem Informasi. Penulis sanngat mencintai pemprograman khususnya Vb.Net ,PHP dan databse mysql,juga menyukai disain grafis dan disain web.tulisan-tulisan saya mengenai VB.Net ,PHP ,Mysql dapat di download di http://f2vmcoder.blogspot.com.

© 2009 F2VMCODER | http://f2vmcoder.blogspot.com

5

Delete Multiple Record di databse Menggunakan Program VB.Net F2VMCODER

© 2009 F2VMCODER | http://f2vmcoder.blogspot.com

6