Programación General > VBA

 Buscar En Bases De Datos

(1/1)

amanda21:
:rolleyes: hola a todos. necesito ayuda.
he creado un formulario y he introducido un boton control ado ,he enlazado la base de datos y todos los campos ,pero solo me falla el boton de busqueda de un registro.os paso el codigo y a ver si me podeis decir que falla.


Private Sub cmdBuscar_Click()
Dim buscado As String
Dim criterio As String
Dim cadena As String
buscado = InputBox("¿Que Codigo desea buscar?")
criterio = " id_operacion like '*" & buscado & "*'"

Adodc2.Recordset.Find criterio

If Adodc2.Recordset.EOF Then
cadena = " El registro " & UCase(buscado) & " no existe"
MsgBox cadena, 64, "Resultado de la busqueda"
Adodc2.Recordset.MoveLast
End If
End Sub


in saludo

LeGatoRojo:
criterio = " id_operacion like ='" + buscado + "'"

que tal si lo pones asi.

ing_marco:
Cuando usar LIKE el comodin de busqueda no es *, es % de tal manera que tu sentencia debe quedar algo asi:


--- Código: Text ---criterio = " id_operacion like '%" & buscado & "%'" Solo es cosa de probar con las comillas, talves estoy comentiendo un error en las comillas y no tengo donde probarlo en este momento.

Pero no olvides solo debes de cambiar el comodin.

Navegación

[0] Índice de Mensajes