Menampilkan Data Pada ListView

Sebelum kita menampilkan data di dalam listbox, kita harus memiliki source yang akan digunakan untuk sumber data yang akan ditampilkan pada listview
Disini kita menggunakan database yang di buat sebelumnya menggunakan SQL Server sebagai source.
Kemudian kita akan membuat sebuah form pada visual basic 2005 yang akan disisipkan listview untuk membaca source yang telah kita buat sebelumnya
Pertama-tama tambahkan
Imports System.Data
Imports System.Data.SqlClient
Diatas  [Public Class Form1]

Kemudian deklarasikan beberapa variabel yang digunakan untuk menghubungkan dengan SQL,
Public koneksiSQL As New SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DbStock;Data Source=.\SQLEXPRESS")
Public perintahSQL As New SqlCommand
Public bacadataSQL As SqlDataReader


Kemudian sisipkan Control ListView didalam Form
Gambar control ListView


Form akan menjadi seperti :

Pada properti listview pada bagian  columns   klik button […] untuk menambahkan columns, sehingga muncul tampilan seperti :

Tambahkan 4 buah columns menggunakan button add sehingga menjadi
Properties yang diubah adalah
ColumnHeader1
Text
Kode Barang
ColumnHeader1
Width
200
ColumnHeader2
Text
Nama barang
ColumnHeader2
Width
200
ColumnHeader3
Text
Satuan
ColumnHeader3
Width
200
ColumnHeader4
Text
Harga
ColumnHeader4
Width
200

Kemudian Ok, selanjutnya pada properties listview yang diubah adalah
Gridlines
True
View
Details

Hasil akhir dari listview yang telah diubah adalah


Tambahkan sebuah button yang digunakan untuk menampilkan data di dalam listview


Tambahkan coding didalam nya
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListView1.Items.Clear()
        koneksiSQL.Close()
        koneksiSQL.Open()
        perintahSQL.Connection = koneksiSQL
        perintahSQL.CommandType = CommandType.Text
        perintahSQL.CommandText = "Select * From Barang order by Kode_Barang"
        bacadataSQL = perintahSQL.ExecuteReader
        While bacadataSQL.Read
            Dim ls1grid As ListViewItem
            ls1grid = ListView1.Items.Add(bacadataSQL("kode_barang"))
            ls1grid.SubItems.Add(bacadataSQL("nama_barang")).ToString()
            ls1grid.SubItems.Add(bacadataSQL("satuan")).ToString()
            ls1grid.SubItems.Add(bacadataSQL("harga")).ToString()
        End While
        koneksiSQL.Close()
    End Sub


Jalankan/Debug Program Yang kita buat untuk mengetahui apakah sudah bekerja dengan benar
Selanjutnya klik button yang tadi di buat,

Jika program yang di buat dengan benar maka akan menampilkan data pada masing-masing column berdasarkan source yang digunakan(disini menggunakan DbStock yang dibuat pada awal tutorial ini)
Seperti gambar dibawah ini :


EmoticonEmoticon