Assalamualaikum wr...wb... Pada kesempatan sebelumnya sy udah sharing mengenai cara koneksi Database MySQL dengan vb 6.0 dan saya anggap masalah koneksi database sobat udah beress... he he..


OKEY. Silahkan sobat rancang sebuah database ama tabelnya juga, masalah nama itu terserah sobat. Gak usah banyak-banyak ya, satu tabel aja cukup. Yang penting sobat langsung input aja tuh datanya sekalian, soalnya kali ini kita fokus Cuma ama nampilin data aja di listview aja dulu. Saya masih menggunakan database yang sama ama postingan sebelumnya. Kurang lebihnya kayaq dibawah ini lah :

NO
JUDUL
PENYANYI
1
Message in a bottle
The Police
2
Shape of my heart
Sting
3
I will remember
Toto
4
Lain dunia
Padi
5
Heal the world
Michael Jackson

Kalo sobat belum faham masalah koneksi vb 6.0 mySQL bisa liat disini. Baiklah kita langsung aja meluncur ke VB 6.0.
Berikut langkah-langkahnya :

1.   Buka aplikasi VB 6.0
2.   Pilih menu Project dan klik References
3.   Centang seperti gambar dibawah ini kemudian klik OK


4.   Pilih kembali menu Project dan klik Component atau bisa dengan menekan ctrl+T dan centang Microsoft Windows Common Controls 6.0 (SP6) dan kilik OK. Lebih jelasnya sobat liat gambar dibawah ini :

5.   Klik komponen Listview kemudian masukkan pada form VB sobat seperti yang dilingkari merah pada gambar dibawah ini :


6.   klilk kanan listview tersebut dan pilih properties.
7.   Pada tab General, lihat kolom View. Ganti menjadi lvwReport
8.   Setelah itu pindah ke tab Coloum Headers kemudian klik tombol Insert Coloum dan masukkan nama Field tabel sesuai yang sobat bikin. Disini saya menggunakan 3 Field yaitu (NO, Judul, dan penyanyi). Jika sudah klik Apply dan OK.
9.   Double Click form sobat untuk membuat sub Form_Load dan ketikkan “openDatabase” (tanpa tanda petik).
10. Masukkan sebuah Command Button (tombol) kedalam form sobat kemudian double click tombol tersebut dan copy-paste kode dibawah ini :

Dim LV As ListItem
Dim SQL As String
Dim Reset As New ADODB.Recordset

SQL = "SELECT * FROM tb_lagu"
Set Reset = KonekDatabase.Execute(SQL)
ListView1.ListItems.Clear
Do While Not Reset.EOF

Set LV = ListView1.ListItems.Add(, , Reset.Fields(0))
LV.SubItems(1) = Reset!judul & ""
LV.SubItems(2) = Reset!penyanyi & ""

Reset.MoveNext
Loop
Set Reset = Nothing

11. Coba Run dan klik tombol tersebut. Jika sukses tampilannya akan sepert gambar dibawah ini :


Sekian sobat.. semoga bermanfaat..