Beberap hari yang lalu saya mencoba membuat program sederhana;-) bagaimana cara mencari data di listview???, dsini saya membuat menggunakan Visual Basic 6.0,..!!dan contoh program ini perna di tanyakan oleh mahasiswa saya..???., nah untuk lebih jelasnya kita langsung ke TKP nya….

‘///neh Codingnya………..

Dim Conn As ADODB.Connection
Dim Lst As ListItem

Sub KoneksiDatabase()
‘On Error GoTo pesan
Set Conn = New ADODB.Connection
Conn.ConnectionString = “PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source=” & App.Path & “\db_mahasiswa.mdb;”
Conn.CursorLocation = adUseClient
Conn.Open

Exit Sub
pesan:
MsgBox “Koneksi Ke Database Tidak Tersambung”, vbInformation, “Gagal Tersambung”
End Sub

Sub TampilData()
Dim tampil As ADODB.Recordset
Set tampil = New ADODB.Recordset
If txtCari.Text = “” Then
tampil.Open “SELECT * FROM tb_Mahasiswa ORDER BY id ASC”, Conn, adOpenKeyset, adLockPessimistic
Exit Sub
End If

tampil.Open “SELECT * FROM tb_mahasiswa WHERE nim LIKE ‘%” & txtCari.Text & “%’”, Conn, adOpenKeyset, adLockPessimistic

If tampil.RecordCount > 0 Then

L1.ListItems.Clear
Do While Not tampil.EOF
Set Lst = L1.ListItems.Add(, , tampil.Fields!id)
With Lst
.SubItems(1) = tampil.Fields!nim
.SubItems(2) = tampil.Fields!mahasiswa
End With
tampil.MoveNext
Loop
End If
tampil.Close
Set tampil = Nothing
End Sub

Private Sub CmdCari_Click()
If txtCari.Text = “” Then
MsgBox ” Data Tidak Ditemukan”, , “Info”
Exit Sub
End If
If Trim(txtCari.Text) <> “” Then
Call TampilData
Else
L1.ListItems.Clear
End If
End Sub

Private Sub Command1_Click()
Dim tampil As ADODB.Recordset
Set tampil = New ADODB.Recordset
tampil.Open “SELECT * FROM tb_mahasiswa ORDER BY id ASC”, Conn, adOpenKeyset, adLockPessimistic
L1.ListItems.Clear
Do While Not tampil.EOF
Set Lst = L1.ListItems.Add(, , tampil.Fields!id)
With Lst
.SubItems(1) = tampil.Fields!nim
.SubItems(2) = tampil.Fields!mahasiswa
End With
tampil.MoveNext
Loop
‘———————–
txtCari.Text = “”
txtCari.SetFocus
End Sub

Private Sub Form_Load()
Call KoneksiDatabase
Call TampilData
End Sub

smga bermanfaat…