Pencarian Data Menggunakan ListView pada VB 6.0

Pencarian Data Menggunakan ListView pada VB 6.0 - Pada kesempatan kali ini saya akan posting mengenai pencarian data menggunakan listview pada VB 6. Inget pas lagi kuliah, pada waktu Saya dan teman-teman bingung untuk membuat pencarian menggunakan listview, sebelumnya kami sudah mendapatkan materi pencarian data menggunakan grid (mshflexgrid). Kami coba samakan dengan penggunaan mshflexgrid, eh ternyata gak taunya datanya muncul berulang-ulang. Saya coba Tanya dosen tapi gak ngerti. Akhirnya, setelah saya muter kepala ketemu juga cara melakukan pencarian di listview. Oke, langsung saja ke TKP…

 1. Buat Database, untuk percobaan kita buat field NIM dan Mahasiswa.

    Simpan dengan nama Tb_Mahasiswa.

2. Buat Form Pencarian Data Mahasiswa

 3. Jangan lupa memasukkan komponen Microsoft ADO Data Control 6.0(OLEDB) dan Microsoft 

    Windows Common Controls 6.0(SP4) dengan menekan CTRL+T atau ke Menu Project > Components.

 4.   Tekan F7 atau Klik 2 kali pada form dan isikan coding berikut, Jika gak ingin ribet Copas juga boleh:

Public Db As New ADODB.Connection

Public Rs As New ADODB.Recordset

Private Sub Koneksi()

Set Db = New ADODB.Connection

Db.Open "provider=Microsoft.JET.OLEDB.4.0;Data Source=" & App.Path & "\dbmahasiswa.mdb;persist security info=false"

Db.CursorLocation = adUseClient

End Sub

Private Sub TampilData()

Rs.Open "select * from tb_mahasiswa order by nim", Db, adOpenKeyset

If Rs.RecordCount <> 0 Then

ListMahasiswa.ListItems.Clear

Do While Not Rs.EOF

Set Lst = ListMahasiswa.ListItems.Add(, , Rs!Nim)

With Lst

.SubItems(1) = Rs!Mahasiswa

End With

Rs.MoveNext

Loop

End If

End Sub

Private Sub AturListView()

With ListMahasiswa

.View = lvwReport

.FullRowSelect = True

.GridLines = True

With .ColumnHeaders

.Add , , "Nim", 1500

.Add , , "Nama Mahasiswa", 4500

End With

End With

End Sub

Private Sub CmdExit_Click()

Unload Me

End Sub

Private Sub Form_Load()

Call AturListView

Call Koneksi

Call TampilData

CmbKriteria.AddItem "NIM"

CmbKriteria.AddItem "Nama Mahasiswa"

End Sub

Private Sub TxtCari_Change()

If Rs.State = adStateOpen Then Rs.Close

If CmbKriteria.Text = "NIM" Then

Rs.Open "select * from tb_mahasiswa where NIM like '%" & TxtCari.Text & "%'", Db, adOpenKeyset

Else

Rs.Open "select * from tb_mahasiswa where Mahasiswa like '%" & TxtCari.Text & "%'", Db, adOpenKeyset

End If

If Rs.RecordCount <> 0 Then

ListMahasiswa.ListItems.Clear

Do While Not Rs.EOF

Set Lst = ListMahasiswa.ListItems.Add(, , Rs!Nim)

With Lst

.SubItems(1) = Rs!Mahasiswa

End With

Rs.MoveNext

Loop

Else

ListMahasiswa.ListItems.Clear

End If

End Sub

5. Coba dijalankan, maka akan tampil sesuai kriteria.

                         

Ternyata mudah kan… hehehe…

Demikian artikel Pencarian Data Menggunakan ListView pada VB 6.0. Terima kasih atas kunjungannya... Semoga Bermanfaat…