Buscar registros VB

[keikos]

Hola brothers tengo este code para visual basic 32 bits.

busqueda = inputbox ("texto de busqueda:.")

rs.index = "nombre"
rs.seek "=" , busqueda
if rs.notMatch then
msgbox ("sin resultados")
else
' muestralos
msgbox ("Si se encontraron")
end if

ese codigo me funciona pero solo busca la cadena completa
osease , que esta muy dificil poner todo el nombre
solo quiero que pongan el primer nombre y le traiga el mas coincidiente , alguien sabe como puedo hacer esto ??

creo que usando LIKE pero como lo adapto ?

TNK'SSSS

[Avelar]

¿Estás usando DAO para las conexiones, y en ese caso, enlazado?

[semas]

Hola, no se si esto te valdra, tp me especificas mucho sobre que lo vas a hacer y que usas, pero bueno ahi va

Private Sub cmdBuscar_Click()
Dim cadena As String, resultado As String, busca As Integer
cadena = Trim(InputBox("Nombre del Socio a buscar", "Buscar"))
If cadena <> "" Then
resultado = "Nombre like " & "'" & cadena & "*'"
With rstSocios
.MoveLast
.FindFirst resultado
If .NoMatch Then
MsgBox "No se encontraron registros con " & cadena & ".", vbCritical + vbCritical, "Buscar"
Else
busca = vbYes
End If
Do While busca = vbYes
busca = MsgBox("¿Buscar siguiente?", vbInformation + vbYesNo, "Buscar")
If busca = vbYes Then
.FindNext resultado
End If
If .NoMatch Then
MsgBox "No se encontraron registros con " & cadena & ".", vbCritical + vbCritical, "Buscar"
Exit Do
End If
Loop
End With
End If
End Sub

Los recordset los declaras en un modulo, y luego los llamas en el form load y form activate.

[GaboMaKano]

usa la sentencia sql=select * from tabla like ...........