
03/07/2002, 02:45
|
 | Usuario no validado | | Fecha de Ingreso: abril-2002 Ubicación: Merida
Mensajes: 2.165
Antigüedad: 23 años, 1 mes Puntos: 3 | |
Re: Buscador en ASP while InStr(cadena," ")
Cadena=Replace(Cadena," "," ")
wend
if len(cadena)>0 then
if InStr(cadena," ")>0 then
Sacar= Sacar(left(cadena,InStr(cadena," ")-1),campos) & " OR " & Sacar(right(cadena,len(cadena)-InStr(cadena," ")),campos)
elseif InStr(cadena,"+")>0 then
Sacar=Sacar(left(cadena,InStr(cadena,"+" )-1),campos) & " AND "& Sacar(right(cadena,len(cadena)-InStr(cadena,"+")),campos)
elseif InStr(cadena,"-")>0 then
Sacar=Sacar(left(cadena,InStr(cadena,"-")-1),campos) & " AND NOT " & Sacar(right(cadena,len(cadena)-InStr(cadena,"-")),campos)
else
'fijamos la sentencia
SacarAux=""
i=1
SacarAux= "( " & campos(i) & " Like '%" & cadena & "%'"
i=i+1
while len(campos(i))>0
SacarAux= SacarAux & " OR " & campos(i) & " Like '%" & cadena & "%'"
i=i+1
wend
SacarAux=SacarAux & " )"
Sacar=SacarAux
end if
else
sacar=""
end if
end function
function GeneraSql(cadena,tabla,campos)
if len(cadena)>0 then
generaSql="Select * from " & tabla & " Where " & Sacar(cadena,campos)
else
Response.Write "No hay criterios"
end if
end function
dim campos(3) 'el tamano del array debe superar en uno al numero de campos
campos(1)="nombre_campo1"
campos(2)="nombre_campo2"
'para mostrar cual seria el resultado...
cadena="hola cariola+cocacola-colacao"
tabla="cualquiera"
resultado=GeneraSql(cadena,tabla,campos)
Response.Write resultado
%> |