Visual Basic - Busqueda de Datos - Urgente

Life is soft - evento anual de software empresarial
 
Vista:

Busqueda de Datos - Urgente

Publicado por Yolanda Zelaya (4 intervenciones) el 18/04/2006 14:52:40
Hola, como estan

Necesito una ayuda urgente, nose como puedo hacer para buscar datos en visual basic, mi problema es el siguiente:
Necesito q cuando el usuario introduca una letra en el textbox yo pueda desplegar una lista de las posibles palabras q empiezen con esa letra por ejemplo

el usuario introduce "M" yo debo de mostrar
* Marcelo Gomez
* Maria Rios
etc.....

Les pido xfavor me ayuden es un proyecto q tengo q presentar y solo eso me esta faltando, muchas gracias desde ya por leer este msj.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Busqueda de Datos - Urgente

Publicado por Ruben (10 intervenciones) el 18/04/2006 23:02:37
prueba con esto

dim base as database
dim tabla as recordset
dim largo,encontrado as integer

set base=dbengine.workspaces(0).opendatabase("ruta base de datos") 'abrir bas
set tabla=base.openrecordset("nombre tabla",dbopentable) 'abrir tabla

largo=len(text1) 'obtener el largo del texto

'aqui va la busqueda

tabla.movefirst
do until tabla.eof()
if left(tabla!nombre,largo)=text1 then 'ajustar el largo del campo nombre y condi
List1.additem tabla!nombre 'cuando encuentra uno lo agrega a la lista
encontrado=encontrado+1 'cuenta los encontrados
endif
tabla.movenext
loop

if encontrado>0 then
label1.caption=encontrado & "Coincidencias en la base de datos"
encontrado=0
end if

suerte este codigo no esta probado, pero debiera funcionar con cualquier BD

Chaoooo...desde Chilito....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Busqueda de Datos - Urgente

Publicado por alejandra (3 intervenciones) el 02/05/2006 15:37:51
Mira yo lo que te recomiendo es que todos los datos los pongas primero en access y luego la enlacez por medio de una data de visual y luego en la caja de texto le pones este codigo

Private Sub txtbox_KeyPress(KeyAscii As Integer)
If txtbox.Text = "A" Then
Data1.RecordSource = "AUTORA"
Data1.Refresh

Else
If txtbox.Text = "B" Then
Data1.RecordSource = "AUTORB"
Data1.Refresh

y asi sucesibamente hasta la z...

mira lo que tienes que hacer en access de cada letra poner una nueva tabla y lo de autora porque ese corresponde a la letra a "a" entonces al hacer un if, then, else tesale intentalo y veraz.....................:)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar