Cara Belajar Vb6 Membuat Listview

Menyodorkan data listview vb6 common control

Mengenal dan menampilkan data pada listview vb6
Sesungguhnya banyak cara bagi menggunakan listview bak view untuk mempermudah user dalam pengecekan data yg telah ada dalam database alias pada saat menengah internal penginputannya.
baiklah mari kita ulas beberapa fungsi listview sreg vb6، langkah mulanya yg harus dilakukan adalah mengaktifkan conmon control komponen listview. selanjutnya sobat bisa memasukkan control listview tersebut privat form yg sudah lalu 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 memperalat control common button.

sub form1_load()
call koneksi
‘Pergaulan Kedatabase

call tablelvs
‘Mengemukakan Header Listview

call viewlvs
‘Mengedepankan data berpokok database

end sub

Untuk event-event yang lain akan saya postingkan lain waktu karena saya belum tahu untuk posting makin banyak lagi…

sekian dan sambut belas kasih…
selamat mencoba

Kata sandang terkait :

Source: http://priyantoagoes.blogspot.com/2012/10/menampilkan-data-listview-vb6_10.html