Menampilkan Data ke Listview Dan Hapus Data Menggunakan Class Database pada VB.Net

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