Menampilkan Data ke Listview Dan Hapus Data Menggunakan Class Database pada VB.Net
Tuesday, August 16, 2016
Add Comment
Selamat malam pembaca,
Kemarin kita telah membahas tentang bagaimana menyimpan dan mengubah data menggunakan Class Database pada VB.Net, kali ini saya akan melanjutkan pembahasan tentang bagaimana menampilkan data ke listview dan menghapus data menggunakan Class Database di VB.Net. Pastikan anda sudah membaca artikel sebelumnya yang membahas tentang Class Database di VB.Net. Hasil akhir pembahasan kita kali ini bisa dilihat seperti gambar dibawah ini :
Oke, langsung saja kita ikuti langkah-langkah step by step berikut :
1. Buat Desain Formnya seperti nampak dibawah ini, kalau anda sudah membuat form seperti pada artikel sebelumnya, anda hanya tinggal menambahkan Listview saja.
2. Masuk ke pengkodean, buat fungsi untuk menampilkan data ke listview, kali ini fungsi saya berinama "DataToListView()". Sesuaikan seperti kode dibawah ini :
Sub DataToListView()
Dim dr As DataRow
Dim lv As ListViewItem
Dim strTable As String = "tbldata"
Dim i As Integer
With Me.lvwData
.Items.Clear()
.FullRowSelect = True
.GridLines = True
.View = View.Details
.AllowColumnReorder = True
.Items.Clear()
.Columns.Clear()
.Columns.Add("NO", 30)
.Columns.Add("KODE BARANG", 100)
.Columns.Add("NAMA BARANG", 100)
.Columns.Add("WARNA", 70)
.Columns.Add("BANYAK", 70)
End With
With myDB
.rs = .QuerySelectAll(strTable).Tables(0)
For i = 0 To .rs.Rows.Count - 1
dr = .rs.Rows(i)
lv = lvwData.Items.Add(lvwData.Items.Count + 1 & ".")
lv.SubItems.Add(dr("kodebarang"))
lv.SubItems.Add(dr("nama"))
lv.SubItems.Add(dr("warna"))
lv.SubItems.Add(dr("banyak"))
Next i
End With
End Sub
3. Panggil Fungsi "DataToListView()" di Event Form Load
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
DataToListView()
End Sub
4. Buat fungsi untuk menampilkan data di Listview ke Textbox saat list Item terpilih
Sub ListviewToText()
On Error Resume Next
With lvwData
Me.txtKodeBarang.Text = .FocusedItem.SubItems(1).Text
Me.txtNamaBarang.Text = .FocusedItem.SubItems(2).Text
Me.txtWarna.Text = .FocusedItem.SubItems(3).Text
Me.txtBanyak.Text = .FocusedItem.SubItems(4).Text
End With
End Sub
5. Panggil fungsi ListToText di Event "SelectedIndexChanged"
Private Sub lvwData_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles lvwData.SelectedIndexChanged
ListviewToText()
End Sub
6. Buat Fungsi Hapus Data
Sub HapusData()
Dim strTable As String
Dim strWhere As String
Dim dtFields(0) As String
Dim dtValues(0) As String
Dim strKodeBarang As String = Me.txtKodeBarang.Text
strTable = "tbldata"
dtFields(0) = "kodebarang"
dtValues(0) = strKodeBarang
strWhere = dtFields(0) & "='" & dtValues(0) & "'"
With myDB
Dim strPesan = MsgBox("Yakin ingin hapus data ?", vbQuestion + vbYesNo + vbDefaultButton2, "Hapus Data")
If strPesan = vbYes Then
.rs = .QuerySelect(dtFields, strTable, strWhere).CreateDataReader
If .rs.HasRows Then
.IsRun = .QueryDelete(strTable, strWhere)
MsgBox("Data " + .IsRun + " dihapus", vbInformation, "Informasi")
Else
MsgBox("Data tidak ditemukan", vbInformation, "Informasi")
End If
End If
End With
End Sub
7. Panggil Fungsi Hapus Data di Event cmdHapu_Click
Private Sub cmdHapus_Click(sender As Object, e As System.EventArgs) Handles cmdHapus.Click
HapusData()
DataToListView()
End Sub
Silahkan anda jalankan projectnya, data akan langsung tampil di Listview, kemudian pilih salah satu data yang ada di Listview kemudian pilih hapus, maka akan ada konfirmasi proses hapus. Untuk lebih jelasnya, anda bisa pelajari source code yang akan saya bagikan di akhir sesi nanti. Pada sesi selanjutnya akan saya bahas bagaimana melakukan pencarian data dinamis menggunakan Class Database yang sudah kita buat sebelumnya. Semoga bermanfaat, terimakasih
0 Response to "Menampilkan Data ke Listview Dan Hapus Data Menggunakan Class Database pada VB.Net"
Post a Comment