20 September 2011

Menampilkan Data Kedalam ListView

Listvew merupakan salah satu control yang cukup sering digunakan dalam pemrograman Visual Basic baik versi 6 kebawah ataupun versi .NET. Listview biasanya digunakan untuk menampilkan sejumlah baris data dalam bebagai style tampilan, seperti icon baik besar atau kecil, daftar atau yang lainnya. Selain Listview sebenarnya masih ada control yang lain misalnya DataGridView, tapi menurut saya tampilan Listview lebih menarik walau hanya sekedar menampilkan daftar baris data. Penjelasan tentang Control ListView dapat dilihat disini.
 
Menampilkan data kedalam listview bisa menggunakan dua macam cara yang dengan memanfaatkan class ListViewItem yang kemudian ditambahkan melalui properti Items atau secara langsung di tambahkan melalui property items. Penambahan dengan menggunakan class ListViewItem dapat dilihat pada link diatas.
Disini akan di tampilkan cara menambahkan secara langsung melalui property Items.

Mari kita bikin konsensus terlebih dahulu. Diasumsikan Con merupakan objek Connection yang sudah terhubung dengan database, objek connection bisa menggunakan sqlconnection, Oracleclient, OledbConnection, atau yang lainnya. Berikutnya adalah mendeklarasikan objek Command dan DataReader, disini saya menggunakan database SQL Server. Nama dari control ListView adalah View1. Contoh program yang dibuat dengan VB.NET sebagai berikut :

        'Deklarasikan Variable
        Dim Cmd As New SqlCommand("Select top 100 * from Tabel", Con)
        Dim DT As SqlDataReader

        DT = Cmd.ExecuteReader(CommandBehavior.CloseConnection)

        Dim lCount As Integer   'variable mencatat nomor record

        'Tambahkan Kolom pada ListView
        View1.Columns.Add("Kode ICD", 200, HorizontalAlignment.Left)
        View1.Columns.Add("Keterangan", 300, HorizontalAlignment.Left)
        
       'Lakukan Perulangan memasukan data kedalam listview
        While DT.Read
            View1.Items.Add(DT(0))
            View1.Items(lCount).SubItems.Add(DT(1))
            lCount += 1
        End While

Contoh lain Mengisi Listview menggunakan Dataset dapat dilihat disini.