TEXT WIDGET

Menampilkan data listview vb6 commoncontrol

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


Artikel terkait :

4 komentar:

Rudi Oktavian mengatakan...

assalammu'alaikum mas ...
mau tanya bagaimana cara mengkoneksikan database mysql phpmyadmin dengan vb 6 dengan menggunakan koding ?? tlong dijelaskan mulai dari awal dan terperinci ya mas, mksh sebelumnya

agoespriyanto mengatakan...

Wa`alaikumsallam mas Rudi,
Untuk koneksi ke mysql phpmyadmin kalo saya pake ODBC connector, lebih simple dan cepet, kalo pakai code mungkin Mas bisa buka masing-masing mulai dari
buat parameter public dengan koneksi pada local server"localhost",

public db as new conection
public rs as string

sub koneksi()
dim ConStr as string
ConStr= "DRIVER=MySQL ODBC 5.1 Driver;SERVER=localhost;UID=root;PWD=123;DATABASE=agoes"

'buka dengan ...
With db
.CursorLocation = adUseClient
.Open ConSrt
MsgBox "Connection OK", vbInformation
End With


Semoga membantu

rahmat heru siswanto mengatakan...

untuk menampilkan di listview nya gimana?? apa pake koneksi lagi??

Priyanto Agoes mengatakan...

@ rahmat heru siswanto...
Untuk nampilinnya gak perlu pake koneksi lagi, Tpi kalau masih proses design harus dikoneksikan, apabila sudah jadi program nonaktifkan parameter koneksinya supaya running program lebih cepat, secara logikanya kalo mesin motor sudah jalan kita tidak perlu menyalakan mesin lagi,
Semoga membantu...

Poskan Komentar

Say: Berkomentarlah dengan baik dan sopan...dan jangan gunakan SPAM untuk blog ini...Terima kasih [by.admin]