Menampilkan data listview vb6 common control

Mengenal dan menampilkan data pada listview vb6
Sebenarnya banyak cara untuk menggunakan listview sebagai view untuk mempermudah user dalam pengecekan data yg sudah ada dalam database atau pada saat sedang dalam penginputannya.
baiklah mari kita ulas beberapa fungsi listview pada vb6، langkah awal yg harus dilakukan adalah mengaktifkan conmon control komponen listview. selanjutnya sobat bisa memasukkan control listview tersebut dalam form yg sudah ada.
Masukkan coding sbb :

1. Menampilkan collum header listview

Sub tablelvs ()

with listview1 
.view = lvwreport 
.gridline= true 
.fulselect = true 
.hottracking = true 
With .columnheaders 
.add،،"no"،10 '(10) lebar columnheader (no) text columnheader 
.add،،"no nik"،800 
End with 
End with 
End sub

 Column header terbuat.

2. Memasukkan data dari database ke listview.

 Sub viewlvs ()

Dim rs as new ADODB.Recordset 
Dim no as string 
Dim listv as listitem 
rs.open "select*from tabel_siswa where nik ='"& text1.text &"' order by nik asc"  ,db,adopendinamic,adolockoptimistick
If rs.recordcount > 0 then
Listview1.listitem.clear 
listview1.sorted=false 
Rs.movefirst 
While not rs.EOF 
Set listv= listview1.listitems.add (، ،no+1) 
Listv.subitems (1)= rs.fields("nik") 
No=no+1 
Rs.movenext 
Wend 
end if

end sub

3. Tampilkan saat form load atau dengan menggunakan control common button.

sub form1_load()
call koneksi 'Koneksi Kedatabase
call tablelvs 'Menampilkan Header Listview
call viewlvs 'Menampilkan data dari database
end sub

Untuk event-event yang lain akan saya postingkan lain waktu karena saya belum sempat untuk posting lebih banyak lagi...
sekian dan terima kasih...
selamat mencoba

Tweet

Artikel terkait :