Cara Menampilkan Data Ke Dalam Listview Dengan VB 6 Dan Access

Kembali lagi bersama kami di blog PandaiVB. Kami terus menyajikan artikel mengenai Visual Basic baik VB6 maupun VB.Net. Berikut ini kami akan membuat artikel mengenai Cara Menampilkan Data Ke Dalam Listview Dengan VB 6.

1. Buat Project baru dan kemudian tambahkan component agar objek Listview muncul di dalam Toolbox VB6. Klik Menu Project lalu klik Components atau juga bisa tekan Control + T.
2. Kemudian akan muncul dialog box Components. Lalu cari controls Microsoft Windows Common Controls 6.0 (SP6). 





3. Lalu klik objek Listview taruh didalam Form designnya. Perhatikan gambar berikut.




4. Klik kanan pada objek Listview kemudian ubah Properties Listview pada tab General seperti berikut ini.





5. Masih dalam properties Listview, sekarang klik tab Columns Header. Tambahkan 3 kolom dengan klik Insert Column.




6. Masih menggunakan database DBLatihan.accdb buat tabel tbBarang.




7. Isi tabel tbBarang dengan beberapa data saja.




8. Kembali lagi ke Project VBnya. Kemudian masukkan script berikut ini.



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Dim Db As New ADODB.Connection Private Sub Koneksi() Dim Constr As String Constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\DbLatihan.accdb" Db.Open Constr End Sub Private Sub ListViewData() Dim sql As String Dim rs As New ADODB.Recordset Dim Ldata As ListItem sql = "Select * From tbBarang" rs.Open sql, Db, adOpenDynamic, adLockOptimistic ListView1.ListItems.Clear Do While Not rs.EOF Set Ldata = ListView1.ListItems.Add(, , rs.Fields("KodeBarang")) Ldata.SubItems(1) = rs.Fields("NamaBarang") Ldata.SubItems(2) = rs.Fields("Harga") rs.MoveNext Loop End Sub Private Sub Form_Load() Call Koneksi Call ListViewData End Sub



9. Coba sekarang jalankan, apabila berhasil akan muncul tampilan seperti gambar berikut ini.

Related Posts:

Tweet