Menampilkan Field Database Dengan Listview Pada VB

Untuk Lebih lanjut maka Download Project ini :
Persiapan :

Object	Name	Property	Value
Form	Form1	Text	-
ListView1	lvwDosen	View	3-lvwReport
Tambahkan Component Microsoft windows common control 5.0 (SP2)
Tambahkan referensi Microsoft DAO 3.51 Object Library

Untuk Menambahkan Component Microsoft Windows Common Control 5.0 (SP2)

tekan Cotrol+T dan beri centang pada nama Component tersebut

Untuk Menambahkan Referensi Tambahkan referensi Microsoft DAO 3.51 Object Library

klick menu Project dan Pilih Referense dan beri centang pada Referensi tersebut

Copykan kode Ini kedalam Form :

Option Explicit<br /> Dim DB As DAO.Database<br /> Dim WorkJet As DAO.Workspace<br /> Dim RS As DAO.Recordset<br /> Private Sub InitDataBase()<br /> Set WorkJet = CreateWorkspace("", "admin", "", dbUseJet)<br /> Set DB = WorkJet.OpenDatabase(App.Path & "\DataMhs.mdb")<br /> Set RS = DB.OpenRecordset("dosen")<br /> End Sub<br /> Private Sub InitLvwDosen()<br /> On Error Resume Next<br /> Dim lvw As ListView<br /> Dim RS As DAO.Recordset<br /> Dim li As ListItem<br /> Set lvw = LvwDosen<br /> AddColumn lvw, "Kode Dosen", 900<br /> AddColumn lvw, "Nama Dosen", 1500<br /> AddColumn lvw, "Alamat", 1800<br /> AddColumn lvw, "Jabatan", 2000<br /> Set RS = DB.OpenRecordset("Dosen", dbOpenDynaset)<br /> If Not (RS.BOF And RS.EOF) Then RS.MoveFirst<br /> While Not RS.EOF<br /> Set li = lvw.ListItems.Add<br /> li.Text = RS!kode<br /> li.SubItems(1) = RS!nama<br /> li.SubItems(2) = RS.Fields("alamat")<br /> li.SubItems(3) = RS.Fields("jabatan")<br /> RS.MoveNext<br /> Wend<br /> Set RS = Nothing<br /> End Sub<br /> Private Sub Form_Load()<br /> InitDataBase<br /> InitLvwDosen<br /> End Sub<br />

Copykan Kode Ini kedalam Modul:
Public Sub AddColumn(lvw As ListView, Caption As String, width As Single)<br /> Dim Ch As ColumnHeader<br /> Set Ch = lvw.ColumnHeaders.Add()<br /> Ch.Text = Caption<br /> Ch.width = width<br /> End Sub<br />

Jalankan dengan Menekan F5 pada Keyboard

Good Luck