Menggunakan ListView untuk menampilkan Data pada VB 6

Gambar 1.0
Penggunaan listview sebagai pengganti dari datagrid, ini adalah contoh program dari postingan yang sebelumnya. Hasil dari tampilan tersebut seperti terlihat di gambar 1.0.
Untuk membuat tampilan tersebut apa saja yang harus kita siapkan:

  • Buatlah database dengan menggunakan Access disini saya menggunakan Access 2010 tapi saat membuat jangan lupa ubah file type menjadi format 2000-2003, nama database adalah db1.mdb
  • Ciptakan Tabel Baru dengan nama: employee

FieldName
Type
EmpNo*
Number/Integer
EmpName
Text(30)
Phone
Text(150
HireDate
DateTime
Jangan Lupa untuk mengisi Tabel tersebut terserah Anda.


  • Buka Visual Basic 6 dan tambahkan Component (CTRL+T) seperti dibawah ini(Gambar 2.0):
Gambar 2.0
  • Kemudian Design Form dengan menambahkan object ListView pada Toolbox, seperti Gambar 1.0, Selanjutnya adalah mengatur properties pada listview dengan cara:
Klik kanan pada listview dan atur propertise sebagai berikut: pada Tab[General] ubah view menjadi -LvwReport
Gambar 3.0
Pada Tab[Column Headers] Click Insert Column untuk menambahkan jumlah kolom yang akan ditampilkan pada listview, isikan pada text judul kolom yang akan dibuat 1. EmpNo; 2. EmpName; 3. Phone; dan 4. HireDate
Setelah itu OK.

Langkah Selanjutnya adalah mengetikan Coding pada jedela Code:
Option Explicit
Dim Conn As New ADODB.Connection
Dim AdoRs As New ADODB.Recordset

Private Sub Form_Load()
'membuat koneksi ke database
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"

'menyiapkan recordset untuk tabel/query yang digunakan
Set AdoRs = New ADODB.Recordset
AdoRs.Open "SELECT * FROM employee", Conn, adOpenStatic, adLockOptimistic

'memanggil procedure untuk menampilkann list view
Call tampil_isi_listview
End Sub

Sub tampil_isi_listview()
Dim iList As ListItem

'0 : EmpNo
'1 : EmpName
'2 : Phone
'3 : HireDate

    With AdoRs
        ListView1.ListItems.Clear
        Do Until .EOF
            Set iList = ListView1.ListItems.Add(, , .Fields(0))
                iList.SubItems(1) = .Fields(1)
                iList.SubItems(2) = Format(.Fields(2))
                iList.SubItems(3) = Format(.Fields(3))
            .MoveNext
        Loop
    End With
End Sub
Silahkan di Coba, contoh program bisa di download disini.

1 comments:

Unknown said...

debug Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"

Post a Comment

Alexa Rank's

Follow

Powered by Blogger.
Post Comment