Menampilkan Database ke Listview (VB6)

Halo sobat, bagaimana kabarnya? semoga sehat selalu ya ...

Menyambung pada pembahasan sebelumnya, kali ini saya akan membahas mengenai Listview. Pada pembahasan ini adalah menampilkan file yang ada pada database ke dalam listview. Yuk kita buka terlebih dahulu program Visual Basic 6 nya.

• Tambahkan 1 Form : Form1 (Default)
• Tambahkan Microsoft Windows Common Controls 6 (SP6)
  Caranya : Klik menu Project => Component , lalu centang Microsoft Windows Common Controls 6 (SP6), lalu klik OK
• Tambahkan Listview ke dalam Form1

 

Maka tampilan listview seperti ini, jika sudah meletakkan listview ke dalam Form1, tulisakan codingnya ke seperti dibawah ini

Private Rs As New ADODB.Recordset
Private Con As New ADODB.Connection
Private iList As ListItem

Private Sub Form_Load()
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./DBProj.mdb;Persist Security Info=False"
Set Rs = New ADODB.Recordset
Rs.Open "select *from TBL_USER", Con, adOpenStatic, adLockOptimistic

ListView1.View = lvwReport
ListView1.ListItems.Clear
        Do Until Rs.EOF
            Set iList = ListView1.ListItems.Add(, , Rs.Fields(0))
                iList.SubItems(1) = Rs.Fields(1)
                iList.SubItems(2) = Rs.Fields(2)
            Rs.MoveNext
        Loop
End Sub

Tulisan yang berwarna Merah "./DBProj.mdb" dapat dirubah dengan menggunakan "& App.Path &"\DBProj.mdb . Penggunaan "./" dan "& App.Path &" sama saja.

Download Source Code
Semoga Bermanfaat ...

share this article to: Facebook Twitter Google+ Linkedin Technorati Digg

Posted by Admin (Ade Setiadi), Published at 10:26:00 AM and have 1 comments