aYUDA CON BUSQUEDAS

[foreneo]

ALGUIEN ME PUEDE DECIR COMO HACERLE PARA BUSCAR UN REGISTRO DE UNA TABLA NADAMAS PONIENDOLE UNA PALABRA Y QUE EL RECORDSET BUSQUE LOS REGISTROS QUE SEAN PARECIDOS A LO QUE YO CAPTURE

USO UN DATA Y UN FLEXGRID

[jc_moty]

Hacelo con un SELECT ... algo asi:

Código:

Dim db As Database
Set db = OpenDatabase(Ruta de la Base de datos)
Set Data1.Recordset = db.OpenRecordset("SELECT * FROM tabla WHERE campo LIKE '" & Text1 & "%'")

Saludos

[foreneo]

y que pongo despues de like

[jc_moty]

Despues de LIKE pones el nombre de la variable o del TextBox que contiene la palabra o frase que buscas....
En el ejemplo que pongo Text1, es el Nombre del textbox, adaptalo a tus necesidades...

[foreneo]

pues ya puse todo bien pero me marca error en el nombre de la base de datos


Dim db As Database
Set db = OpenDatabase("\BD.mdb")
Set Data1.Recordset = db.OpenRecordset("SELECT * FROM tabla WHERE campo LIKE '" & Clave.Text & "%'")

[foreneo]

hey
ya quite el error pero de todas formas cuando busca le tengo que poner el nombre, no pasa nada si le nadamas le pongo una letra o 3 letras que tenga en el registro

[jc_moty]

Y donde pones el codigo, ¿en un Command?, porque no lo pones en el evento Change del Text...

[GeoAvila]

proba de esta manera entonces..

Dim db As Database
Set db = OpenDatabase("\BD.mdb")
Set Data1.Recordset = db.OpenRecordset("SELECT * FROM tabla WHERE campo LIKE '%" & Clave.Text & "%'")

nos vemos..