ctrindad1
30 de Septiembre del 2004

Hola, necesito hacer una búsqueda de texto si tengo los títulos de varios libros y quiero buscarlos dando como parámetro de búsqueda una o varias de las palabras del título del libro. Si alguien me puede ayudar se lo agradeceré muchísimo.

Mi mail es [email protected]

Gracias

Bartolom
30 de Septiembre del 2004

Si utilizas ADO, debes ocupar el método find del Recordset, mediante un procedimiento:

Private Sub Buscar()
Dim Criterio As String
Criterio = "Campo Like '*" & TextBox & "*'"

ADO.Recordset.MoveNext
If Not ADO.Recordset.EOF Then
ADO.Recordset.Find Criterio
End If

If ADO.Recordset.EOF Then
ADO.Recordset.MoveFirst
ADO.Recordset.Find Criterio
If ADO.Recordset.EOF Then
ADO.Recordset.MoveLast
MsgBox ("No se encuentra el nombre")
End If
End If
End Sub

Donde Criterio es una variable de tipo String y si te fijas, debes definirla así

Criterio= "Campo Like '*" & Texbox & "*' "

Lo importante es incluir el * en la cadena, ya que así indica cualquier conjunto de caracteres que cumplan con el requisito. Por ejemplo, si quieres buscar Programación, buscas por P, prog, progra, program, etc,

Saludos!
Bartolom
Chile

ctrindad1
30 de Septiembre del 2004

Voy a probarlo ahora mismo gracias