Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: amanda21 en Jueves 16 de Febrero de 2006, 23:33
Título: Buscar En Bases De Datos
Publicado por: amanda21 en Jueves 16 de Febrero de 2006, 23:33
: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
Título: Re: Buscar En Bases De Datos
Publicado por: LeGatoRojo en Martes 20 de Junio de 2006, 08:49
criterio = " id_operacion like ='" + buscado + "'"
que tal si lo pones asi.
Título: Re: Buscar En Bases De Datos
Publicado por: ing_marco en Martes 20 de Junio de 2006, 14:23
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.