Listview sebagai alternatif Pengganti DataGrid

Pada Tutorial VB kali ini saya akan membahas mengenai cara penggunaan Listview sebagai pengganti datagrid.kenapa harus listview?karena dengan listview, tampilan program database yang kita buat akan terasa lebih profesional dibanding dengan menggunakan Datagrid yang tampilanya kaya windows 98...=)

langsung aja.

yang dibutuhkan.
1. Tambahkan Component Microsoft windows Common Controls 6.0 (terserah mau yang 6.0 pa yang 5.0)
Sintak Program
1. Bagi yang menggunakan ADODB.

Private Sub Form_Load()

Dim Lv as ListItem

with Rs

Do while not .EOF ' RS disini adalah RecordSource dari adodb, ganti sesuai dengan RecordSource yang diperlukan

set lv = ListView1.ListItems.Add(, , .field(1)) ' disini memasukan isi dari Rs.field(1) kedalam kolom pertama

lv.SubItems(1)= .field(2) ' memasukan isi Rs.field(2) kedalam kolom berikutnya

Rs.MoveNext

loop

end with

End sub


2. Bagi yang menggunakan ADODC.

Private Sub Form_Load()

Dim Lv as ListItem

with Adodc1.Recordset ' RS disini adalah RecordSource dari adodb, ganti sesuai dengan RecordSource yang diperlukan

Do while not .EOF

set lv = ListView1.ListItems.Add(, , .field(1)) ' disini memasukan isi dari Rs.field(1) kedalam kolom pertama

lv.SubItems(1)= .field(2) ' memasukan isi Rs.field(2) kedalam kolom berikutnya

Rs.MoveNext

loop

end with

End sub

note: sebelumnya, setingan listviewnya juga harus dirubah. klik kanan listview alu klik properties

1. Pada tab General, rubah pada view menjadi (3-LvwReport)
2. Pada tab Column Headers, masukan nama-nama kolom yang akan digunakan degan cara mengklik tombol Insert Column.

sekian Tutorial VB dari saya, semoga bermamfaat.