Ayudaza con Visual Basic 6 !!!
Futuro
07 de Agosto del 2003
Holas, lo que quiero hacer en mi programa en VB 6.0, es hacer bu'squedas pero no de una palabra ya escrita buscar alguna que sea iagual, si no asi
Palabra a buscar= "Perro"
Bien, escribo la "p"
Obtengo:
Pato
Pera
Perro
Porongo
Escribo "Pe"
Obtengo:
Pera
Perro
Escribo "Perr"
Y ya obtengo la palabra que con esas letras he logrado filtrar, a esta pregunta ya la he hecho antes pero nadie me ha podido contestar, ya he buscado ejemplos en planet-source-code, pero no los he conseguido, busque con palabras claves como search by word, advanced search y otras pero no llegue a nada.
Me conformari'a con este tipo de bu'squeda ya que lo requiero para un programa que he hecho el cual se centra en organizar cd?s dentro de los cuales se encuentran los de Mp3, y si quiero buscar determinados temas me lo facilitari'a este algotritmo que no puedo definir aun.
Ahora bien lo ideal seri'a hacer un buscador igualito al del Winamp, que si se fijan bien, no solo filtra las palabras que a medida que pulsas una letra muestra si no que combina, pero lo veo mucho mas dificil ya que ni el anterior he podido lograr.
pues, ya he tratado que compare strings en el HD asi pero no me sale el algoritmo que lo haga con cada una de las palabras del campo, con una sola si pero con mas de 5000? no me sale, si alguien tiene un ejemplo lo pone y si no gracias de todos modos, no pido que se pongan a desarrollar, solo si tienen uno ya hecho por que no encuent4ro ningun ejemplo que se le parezca
De antemano muchas gracias, salu2 a todos lo que conforman este foro que realmente he aprendido bastante en varias ramas de la informa'tica
Palabra a buscar= "Perro"
Bien, escribo la "p"
Obtengo:
Pato
Pera
Perro
Porongo
Escribo "Pe"
Obtengo:
Pera
Perro
Escribo "Perr"
Y ya obtengo la palabra que con esas letras he logrado filtrar, a esta pregunta ya la he hecho antes pero nadie me ha podido contestar, ya he buscado ejemplos en planet-source-code, pero no los he conseguido, busque con palabras claves como search by word, advanced search y otras pero no llegue a nada.
Me conformari'a con este tipo de bu'squeda ya que lo requiero para un programa que he hecho el cual se centra en organizar cd?s dentro de los cuales se encuentran los de Mp3, y si quiero buscar determinados temas me lo facilitari'a este algotritmo que no puedo definir aun.
Ahora bien lo ideal seri'a hacer un buscador igualito al del Winamp, que si se fijan bien, no solo filtra las palabras que a medida que pulsas una letra muestra si no que combina, pero lo veo mucho mas dificil ya que ni el anterior he podido lograr.
pues, ya he tratado que compare strings en el HD asi pero no me sale el algoritmo que lo haga con cada una de las palabras del campo, con una sola si pero con mas de 5000? no me sale, si alguien tiene un ejemplo lo pone y si no gracias de todos modos, no pido que se pongan a desarrollar, solo si tienen uno ya hecho por que no encuent4ro ningun ejemplo que se le parezca
De antemano muchas gracias, salu2 a todos lo que conforman este foro que realmente he aprendido bastante en varias ramas de la informa'tica
Invitado
07 de Agosto del 2003
Lo que te funcionaria con VisualBasic 6 es el like,, el hace lo que necesitas....
un ejemplo con instruccion en sql
strsql = "SELECT * FROM clientes WHERE nombre LIKE \'%" & variable & "%\'"
un ejemplo con instruccion en sql
strsql = "SELECT * FROM clientes WHERE nombre LIKE \'%" & variable & "%\'"
Invitado
07 de Agosto del 2003
la instruccion anterior es sin las barras
Neka
07 de Agosto del 2003
Yo lo haria asi:
'Introduces la palabra a buscar en un InputBox
x = InputBox("Introduce la palabra a buscar", Buscar)
Data1.Recordset.FindFirst "palabra like '" & x & "*" & "' "
If Data1.Recordset.NoMatch Then
MsgBox "Palabra no encontrado", vbInformation, "INFORMACIÓN"
Else
MsgBox "Palabra encontrado", vbOKOnly, "OK"
Espero que te sirva de algo, si tienes dudas escribeme.
Saludos
'Introduces la palabra a buscar en un InputBox
x = InputBox("Introduce la palabra a buscar", Buscar)
Data1.Recordset.FindFirst "palabra like '" & x & "*" & "' "
If Data1.Recordset.NoMatch Then
MsgBox "Palabra no encontrado", vbInformation, "INFORMACIÓN"
Else
MsgBox "Palabra encontrado", vbOKOnly, "OK"
Espero que te sirva de algo, si tienes dudas escribeme.
Saludos
Futuro
07 de Agosto del 2003
Muchisimas gracias por su ayuda, aprendo mucho con todos ustedes, ya aviso si tengo nuevas pendientes.