27/03/2002, 23:50
|
 | | | Fecha de Ingreso: marzo-2002 Ubicación: InterNET
Mensajes: 1.121
Antigüedad: 23 años Puntos: 7 | |
| Re: Busqueda tipo Microsoft Encarta
Ya lo resolví, el truco estaba en el % ;)
Private Sub TxtNombreBusqueda_Change()
cnDatos.Open "dbDatos"
rsTblDatos.Open "Select nombre From TblDatos where Nombre Like'" & _
TxtNombreBusqueda.Text & "%'", cnDatos, 3, 3
LstResultado.Clear
While Not rsTblDatos.EOF
A = rsTblDatos!Nombre & ""
LstResultado.AddItem (A)
rsTblDatos.MoveNext
Wend
cnDatos.Close
End Sub
.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance-- |