En el ejemplo siguiente, debes tener una caja llamada txtPel_Titulo, y un ListView llamado lwPeliculas. Es de un programa de Video Club que hice y en este ejemplo al ir escribiendo en la caja, se muestran las coincidencias en en ListView. Declara ademas, a nivel de formulario las variables
sqlBusq como String
rsBusq como Recordset
db como DataBase
Obviamente, antes debes tener hecha la conexion
La idea es que al presionar teclas en la caja se llama al procedimiento lwCargar, y se ejecuta la consulta, caracter a caracter.
Private Sub txtPel_Titulo_KeyPress(KeyAscii As Integer)
Screen.MousePointer = vbHourglass
lwCargar
Screen.MousePointer = vbDefault
End Sub
Private Sub lwCargar()
sqlBusq = "SELECT IdPelicula, Pel_Titulo FROM Peliculas WHERE Pel_Titulo LIKE '*" & txtPel_Titulo & "*'"
Set rsBusq = db.OpenRecordset(sqlBusq)
With rsBusq
lwPeliculas.ListItems.Clear
Do While Not .EOF
Set items = lwPeliculas.ListItems.Add(, , !IdPelicula)
items.SubItems(1) = !Pel_Titulo
.MoveNext
Loop
End With
End Sub
