Contoh data berikut ini akan ditampilkan dalam Listview. (Data dalam format database Access 2000 (*.mdb), untuk database lain seperti mySql dapat mengubah parameter string koneksi dan mySql Connector)
NIP | Nama Lengkap | Alamat | Jurusan |
114006 | Moh Imam Santoso | Cirebon | IPA |
114007 | Mulyana | Ciamis | Bahasa |
114008 | Nurkarim | Tegal | IPS |
114009 | Jaiman | Kebumen | IPS |
114010 | Maulana | Jakarta | Bahasa |
114011 | Ido Angga Chandra Negara | Surabaya | IPS |
- Buatlah sebuah form baru, lalu masukkan komponen Listview dan Button pada form. Ubah ukurannya agar sesuai dengan data diatas
- Ubahlah beberapa parameter berikut dari Listview. View:Details, FullRowSelect:True, GridLines:True
- Buatlah sub perintah untuk menampilkan data dari database ke dalam listview
- Hasilnya jadi seperti ini
- Selesai. Kode selengkapnya dapat anda download pada link berikut:
Dim ds As New DataSet Dim dr As DataRow Dim da As OleDb.OleDbDataAdapter Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Application.StartupPath & "\db.mdb") 'menambahkan kolom baru sesuai kolom dari database If ListView1.Columns.Count <= 0 Then ListView1.Columns.Add("NIP", 50, HorizontalAlignment.Center) ListView1.Columns.Add("Nama Lengkap", 150, HorizontalAlignment.Left) ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Left) ListView1.Columns.Add("Jurusan", 100, HorizontalAlignment.Center) End If 'melakukan collect data dari database da = New OleDbDataAdapter("SELECT * FROM identitas", cnn) da.Fill(ds) 'membersihkan list ListView1.Items.Clear() 'menambahkan list dari database ke listview For Each dr In ds.Tables(0).Rows Dim lvw As ListViewItem lvw = ListView1.Items.Add(dr(1).ToString) lvw.SubItems.Add(dr(2).ToString) lvw.SubItems.Add(dr(3).ToString) lvw.SubItems.Add(dr(4).ToString) Next
Download source code VB.NET : Menampilkan Data kedalam Listview [Size: 156KB]
Tutorial diatas menggunakan versi Visual Basic .NET 2008. Untuk versi VB diatasnya atau dibawahnya mungkin ada sedikit perbedaan. Semoga membantu