josejunior
06 de Noviembre del 2008

tengo un problema para hacer una consulta, es la sgte
tengo un registro " descripcion"
en una caja de texto escribir la oracion o palabra para
hacer la consula pero con la condicion de q no importa
el orden de las palabras por ejemplo...
impresora epson 810xl 220 voltios color
en la consulta escribo:
epson impresora color 880xl
y me ubica dicha consulta, espero q me hallan
entendido, se podra hacer eso?

por favor necesito ayuda jose.
<por favor necesito ayuda

mvallejos
06 de Noviembre del 2008

Yo separaría la frase en palabras con la funcion Split usando el espacio como separador, y ejecutaría una consulta generando un filtro por cada palabra de la lista resultante, pero usando OR en vez de AND.

Dim Frase as String
Dim Lista
Dim i as integer
dim Filtro as string

Frase = Text1.Text
Lista = Split( Frase, " ")
Filtro = "Where Campo Is Not Null And ("

For i = 0 to Ubound(Lista)
Filtro = Filtro & " Campo = '" & lista(i) & "' OR "
Next i

Bueno....esto no es mas que un esquema del algoritomo, generar tantos filtros como palabras tenga la frase.

Espero que al menos, sirva como punto de partida

Saludos

josejunior
06 de Noviembre del 2008

la idea funciona bien hasta q hago la consula
Set RSPrecios = DBSistema.OpenRecordset(" SELECT *FROM TABLAPRECIOS WHERE Filtro ORDER BY TPREPRODUCTO")
al colocar filtro me da error 3061 pocos parametros se esperaba 1
no se que hacer, probe con ' " + - y nada
por favor ayudame mvallejos