mitch
27 de Febrero del 2005

He hecho una base de datos en Access2003 y un programa
en Visual en el cual mediante un Data y las propiedades dataBase , y unos textbox he conseguido ver mis registros.
Pero no se hacer una busqueda!!
necesito tener la opcion de buscar (poniendo nº socio .ejemplo) y que esta busqueda me salga reflejada en el texbox de mi formulario.

emerizalde
27 de Febrero del 2005

Hola mitch, esta es la rutina de busqueda:

Private sub Buscar_click()
Dim Buscado As String, Criterio As String
Buscado = InputBox("¿No. de Socio a buscar?")
Criterio = "Nombre Like '*" & Buscado & "*'"
Data1.Recorset.findFirst Criterio
if Data1.recorset.nomatch Then
MsgBox ("No encuentro ese Nombre")
Data1. Recordset.movelast
end if
end sub


Data1 corresponde al nombre que le dio al control de datos.

Findfirs es un metodo de recordset, y en criterio estamos dejando una sentencia tipo sql para la busqueda de la informacion, like permite buscar una parte de una cadena en un campo tipo texto, por esta razón colocamos * al inicio y final de la sentecia.

espero esto le sirva, mucha suerte

Ernesto