problemas con buscador avanzado

tork · #1 (**permalink**) 14/03/2004, 12:01

Tengo un problema, en mi web hice un buscador avanzado pero al momento de darle buscar me paracee un error:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (falta operador) en la expresión de consulta 'UCase(Nombre) like '%BUSCADOR%' AND UCase(Descripción) like '%%' AND UCase(Palabra exacta) like '%%''.

/resultados.asp, line 42

El codigo de mi buscador es el siguiente:

<%
Dim mostrar 'cantidad de registros a mostrar por página
Dim cant_paginas 'cantidad de páginas que recibimos
Dim pagina_actual 'La página que mostramos
Dim registro_mostrado 'Contador utilizado para mostrar las páginas
Dim I 'Variable Loop
titulo = request.querystring("Nombre")
artista = request.querystring("Des")
anio = request.querystring("pal")
orden = request.querystring("orden")
alf = request.querystring("alf")
cantidad = request.querystring("cantidad")
if cantidad="10" then
mostrar = 10
elseif cantidad="20" then
mostrar = 20
elseif cantidad="30" then
mostrar = 30
end if
if orden = "" then
response.redirect "buscador.asp"
end if

' IF para saber que página mostrar
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If

strsql = "SELECT * FROM listado where UCase(Nombre) like '%" & UCase(Request("Nombre")) & "%' AND UCase(Descripción) like '%" & UCase(Request("Des")) & "%' AND UCase(Palabra exacta) like '%" & UCase(Request("pal")) & "%' order by "& orden & " "&alf

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("base.mdb")

' creo el RecordSet y defino la cantidad de registros a mostrar
Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar

' Abro la tabla...
RS.Open strSQL, oConn,3,1
'cuento las páginas que se formaron con la variable mostrar
cant_paginas = RS.PageCount

' Si el pedido de página cae afuera del rango,
' lo modifico para que caiga adentro
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
%>
<body style="background-color: #FFFFF4">
<%
' Si la cantidad de páginas da 0 es que no hay registros... por eso este IF
If cant_paginas = 0 Then%>

Se encontraron 0 resultados

<ul>
<li><a href="buscador.asp">Buscar nuevamente</a></li>
<li>
<a href="resultados.asp?orden=Des&Nombre=<%=Nombre%>& cantidad=10">Repetir la búsqueda sin restricciones</a></li>
</ul>
<%
'sino, si es que encuentra registros
Else
' Nos movemos a la página elegida
RS.AbsolutePage = pagina_actual
' muestra el dato de la página en la que estamos...
%>
<div align="center">
<center>
<table border="1" cellspacing="1" style="border-width:0; border-collapse: collapse" bordercolor="#111111" width="80%" id="AutoNumber2">
<tr>
<td width="29%" bgcolor="#CCCCFF" style="border-left:medium none #111111; background-color: #DDDDFF; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:none; border-bottom-width:medium" align="center">

Descripción </td>
<td width="36%" bgcolor="#CCCCFF" style="border-style: none; border-width: medium; background-color: #DDDDFF; text-align:center">
Nombre</td>
<td width="13%" bgcolor="#CCCCFF" style="border-style: none; border-width: medium; background-color: #DDDDFF" align="center">
Url</td>
<td width="10%" bgcolor="#CCCCFF" style="border-style: none; border-width: medium; background-color: #DDDDFF" align="center">
Palabra exacta</td>
</tr>
<%

' Hacemos el bucle mostrando los datos del registro
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not RS.EOF
if colorfila = 0 then
color= "#FFFFFF"
colorfila=1
else
color="#F3F3F3"
colorfila=0
end if
%>

<tr>
<td width="29%" style="border-style:none; border-width:medium; background-color: <%= color %>; "><%=RS("Des")%> </td>
<td width="36%" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:left; "><%=RS("Nombre")%></a> </td>
<td width="13%" align="center" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:center; "><%=RS("url")%> </td>
<td width="10%" align="center" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:center; "><%=RS("pal")%> </td>
<td width="18%" align="center" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:center; "></td>
</tr>
<%
' Sumamos 1 a los mostrados
registro_mostrado = registro_mostrado + 1
' Nos movemos al próximo registro...
RS.MoveNext
Loop

End If
%>
</table>

</center>
</div>

<%
' Cerramos y limpiamos...
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%>
<div align="center"> 

<%
' Ahora mostramos los enlaces a las otras páginas con el resto de los registros...
If pagina_actual > 1 Then
%> <a href="resultados.asp?eje=30&page=<%= pagina_actual - 1 %>&Nombre=<%=Nombre%>&Descripción=<%=Des%>&orden=< %=orden%>&Palabra exacta=<%=pal%>&cantidad=<%=cantidad%>">
[<< anterior ]</a> <%
End If

' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then
%> 
<%= I %>
<%
Else
%>
<a href="resultados.asp?eje=30&page=<%= I %>&Nombre=<%=Nombre%>&Descripción=<%=Des%>&orden=< %=orden%>&Palabra exacta=<%=pal%>&cantidad=<%=cantidad%>"><%= I %></a>
<%
End If
Next 'I

If pagina_actual < cant_paginas Then
%> <a href="resultados.asp?eje=30&page=<%= pagina_actual + 1 %>&Nombre=<%=Nombre%>&Descripción=<%=Des%>&orden=< %=orden%>&Palabra exacta=<%=pal%>&cantidad=<%=cantidad%>">
[ 


 siguiente



>>]</a>
 


<%
End If
'Fin
%>
</div>

 <center><a href="buscador.asp">Buscar de nuevo<a/>
</a>

</BODY>
</HTML>

Gracias de antemano

Relket · #2 (**permalink**) 14/03/2004, 22:15

Has intentado cambiar la expresión Like por = ?

tork · #3 (**permalink**) 14/03/2004, 22:25

Ya solucione eso gracias...ahora tengo otro problema, ahora hice un buscador normal y al moento de darle buscar, me aparece lo siguiente:

Resultados obtenidos con todo

Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: 'rs'

/pool/buscar.asp, line 55

Ahora el codigo del buscador es este:

<%xx=request.form("direccion")
if xx = "Atras" then
session("pagina")=session("pagina")-1

if session("pagina")< 1 then
session("pagina")=1 'evitamos el error por reload
end if

else
if xx="Adelante" then
session("pagina")=session("pagina")+1
else
session("pagina")=1 'primera pasada
end if
end if%>

<html>

<html> <head> <title>Búsqueda en bozz</title> <style type="text/css">
a.clase1{font-family:Arial;color:white;text-decoration:none;}
a.clase1:hover{font-family:Arial;color:white;text-decoration:underline;}
a.clase1:active{font-family:Arial;color:white;text-decoration:none;}
a.clase1:visited{font-family:Arial;color:white;}
a.clase2{font-family:Verdana;color:#ff6347;text-decoration:underline;}
a.clase2:hover{font-family:Verdana;color:#ff6347;text-decoration:none;}
a.clase2:active{font-family:Verdana;color:#ff6347;text-decoration:none;}
a.clase2:visited{font-family:Verdana;color:#ff6347;}
</style> </head>
<body bgcolor="white">

Resultados obtenidos con <%=Request("Palabra") %>

<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
rs.CursorType = adOpenstatic
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)};" & " Dbq=" & Server.MapPath("base.mdb")

Dim Temp

Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request("palabra")) & "%'"

Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>

No se ha encontrado nada con <%=Request("palabra")%> en la Base de Datos

<%
Else
%>

<%SQLtxt = "SELECT pal, Des, url FROM Tabla1"
rs.Open SQLtxt, "DSN=base"
rs.pagesize=10

if session("pagina")>rs.pagecount then
session("pagina")=rs.pagecount
end if%>

<%rs.absolutepage=session("pagina")
inicio=1+(session("pagina")-1)*rs.pagesize
fin=inicio+9
if fin > rs.recordcount then
fin =rs.recordcount
end if
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="28%" height="19">
Categoria
</td>
<td width="28%" height="19">
Nombre de la pagina
</td>
<td width="52%" height="19">
Descripcion
</td>
<td width="19%" height="19">
Url
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="28%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Categoria")%></td>
<td width="28%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Nombre")%></td>
<td width="52%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Des")%></td>
<td width="19%" bgcolor="#FFCC00" height="51">
<a href="<%=Tabla.Fields("url")%>">Ir</a>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table>
</center></div>
Busquedas
2002
 
</body>
</html>

GRACIAS

tork · #4 (**permalink**) 14/03/2004, 22:27

PERDON...EL ERROR QUE ME APARECE ES ESTE NO EL ANTERIOR:

Resultados obtenidos con todo

Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: ''

/pool/buscar.asp, line 37

Relket · #5 (**permalink**) 14/03/2004, 22:40

Es que tu Recorset es Tabla no rs , mira:

Código PHP:

  Set Tabla=Server.CreateObject("adodb.recordset") 

rs.CursorType = adOpenstatic

y debe ser

Código PHP:

  Set Tabla=Server.CreateObject("adodb.recordset") 

Tabla.CursorType = adOpenstatic

Y no solo ahí hay varias lineas de codigo donde tienes rs en vez de Tabla, mira:

Código PHP:

  rs.Open SQLtxt, "DSN=base"

rs.pagesize=10

 
if session("pagina")>rs.pagecount then

session("pagina")=rs.pagecount

end if%> 

 
<%rs.absolutepage=session("pagina")

inicio=1+(session("pagina")-1)*rs.pagesize

fin=inicio+9

if fin > rs.recordcount then

fin =rs.recordcount

end if

tork · #6 (**permalink**) 14/03/2004, 22:52

Pues...ya hice lo que me dijiste y cambie solo el rs que señalaste y me salio este error:

Resultados obtenidos con todo

Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: 'rs'

/pool/buscar.asp, line 56

Despues...cambie todas las rs que encontre por Tabla y me salio este error:

Resultados obtenidos con todo

ADODB.Recordset error '800a0e79'

La operación no está permitida si el objeto está abierto.

/pool/buscar.asp, line 56

Gracias

Relket · #7 (**permalink**) 14/03/2004, 22:58

el problema está en lo siguiente

Código PHP:

  rs.Open SQLtxt, "DSN=base"

rs.pagesize=10

La propiedad Pagesize no puede declararse luego de que se abre el Recorset, tienes que colocarlo antes de abrir el Recorset

Código PHP:

  rs.pagesize=10

rs.Open SQLtxt, "DSN=base"

tork · #8 (**permalink**) 14/03/2004, 23:03

Oye Relket me sale este error:

Resultados obtenidos con todo

Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: 'rs'

/pool/buscar.asp, line 56

Y el codigo es el siguiente:

<%xx=request.form("direccion")
if xx = "Atras" then
session("pagina")=session("pagina")-1

if session("pagina")< 1 then
session("pagina")=1 'evitamos el error por reload
end if

else
if xx="Adelante" then
session("pagina")=session("pagina")+1
else
session("pagina")=1 'primera pasada
end if
end if%>

<html>

<html> <head> <title>Búsqueda en bozz</title> <style type="text/css">
a.clase1{font-family:Arial;color:white;text-decoration:none;}
a.clase1:hover{font-family:Arial;color:white;text-decoration:underline;}
a.clase1:active{font-family:Arial;color:white;text-decoration:none;}
a.clase1:visited{font-family:Arial;color:white;}
a.clase2{font-family:Verdana;color:#ff6347;text-decoration:underline;}
a.clase2:hover{font-family:Verdana;color:#ff6347;text-decoration:none;}
a.clase2:active{font-family:Verdana;color:#ff6347;text-decoration:none;}
a.clase2:visited{font-family:Verdana;color:#ff6347;}
</style> </head>
<body bgcolor="white">

Resultados obtenidos con <%=Request("Palabra") %>

<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
rs.CursorType = adOpenstatic
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)};" & " Dbq=" & Server.MapPath("base.mdb")

Dim Temp

Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request("palabra")) & "%'"

Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>

No se ha encontrado nada con <%=Request("palabra")%> en la Base de Datos

<%
Else
%>

<%SQLtxt = "SELECT pal, Des, url FROM Tabla1"
rs.pagesize=10
rs.Open SQLtxt, "DSN=base"

if session("pagina")>rs.pagecount then
session("pagina")=rs.pagecount
end if%>

<%rs.absolutepage=session("pagina")
inicio=1+(session("pagina")-1)*rs.pagesize
fin=inicio+9
if fin > rs.recordcount then
fin =rs.recordcount
end if
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="28%" height="19">
Categoria
</td>
<td width="28%" height="19">
Nombre de la pagina
</td>
<td width="52%" height="19">
Descripcion
</td>
<td width="19%" height="19">
Url
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="28%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Categoria")%></td>
<td width="28%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Nombre")%></td>
<td width="52%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Des")%></td>
<td width="19%" bgcolor="#FFCC00" height="51">
<a href="<%=Tabla.Fields("url")%>">Ir</a>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
rs.Close
Conexion.Close
End If
%>
</table>
</center></div>
Busquedas
2002
 
</body>
</html>

Ya no se que hacer

tork · #9 (**permalink**) 14/03/2004, 23:05

JEJE OTRA VEZ SORRY el error que me sale es este:

Resultados obtenidos con todo

Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: ''

/pool/buscar.asp, line 37

ME EQUIVOQUE EN EL CAMBIO

Relket · #10 (**permalink**) 14/03/2004, 23:09

Cambia todos los rs por Tabla, ya que segun tu declaracion de objetos tu objeto recordset es Tabla. Mira esto te tiene que servir ya, por lo menos no será por el error que me dices

<%xx=request.form("direccion")
if xx = "Atras" then
session("pagina")=session("pagina")-1

if session("pagina")< 1 then
session("pagina")=1 'evitamos el error por reload
end if

else
if xx="Adelante" then
session("pagina")=session("pagina")+1
else
session("pagina")=1 'primera pasada
end if
end if%>

<html>

<html> <head> <title>Búsqueda en bozz</title> <style type="text/css">
a.clase1{font-family:Arial;color:white;text-decoration:none;}
a.clase1:hover{font-family:Arial;color:white;text-decoration:underline;}
a.clase1:active{font-family:Arial;color:white;text-decoration:none;}
a.clase1:visited{font-family:Arial;color:white;}
a.clase2{font-family:Verdana;color:#ff6347;text-decoration:underline;}
a.clase2:hover{font-family:Verdana;color:#ff6347;text-decoration:none;}
a.clase2:active{font-family:Verdana;color:#ff6347;text-decoration:none;}
a.clase2:visited{font-family:Verdana;color:#ff6347;}
</style> </head>
<body bgcolor="white">

Resultados obtenidos con <%=Request("Palabra") %>

<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Tabla.CursorType = adOpenstatic
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)};" & " Dbq=" & Server.MapPath("base.mdb")

Dim Temp

Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request("palabra")) & "%'"

Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>

No se ha encontrado nada con <%=Request("palabra")%> en la Base de Datos

<%
Else
%>

<%SQLtxt = "SELECT pal, Des, url FROM Tabla1"
Tabla.pagesize=10
Tabla.Open SQLtxt, "DSN=base"

if session("pagina")>Tabla.pagecount then
session("pagina")=Tabla.pagecount
end if%>

<%Tabla.absolutepage=session("pagina")
inicio=1+(session("pagina")-1)*Tabla.pagesize
fin=inicio+9
if fin > Tabla.recordcount then
fin =Tabla.recordcount
end if
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="28%" height="19">
Categoria
</td>
<td width="28%" height="19">
Nombre de la pagina
</td>
<td width="52%" height="19">
Descripcion
</td>
<td width="19%" height="19">
Url
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="28%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Categoria")%></td>
<td width="28%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Nombre")%></td>
<td width="52%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Des")%></td>
<td width="19%" bgcolor="#FFCC00" height="51">
<a href="<%=Tabla.Fields("url")%>">Ir</a>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Tabla.Close
Conexion.Close
End If
%>
</table>
</center></div>
Busquedas
2002
 
</body>
</html>

tork · #11 (**permalink**) 14/03/2004, 23:18

Men, me sale este error al cambiar el codigo:
Resultados obtenidos con todo

ADODB.Recordset error '800a0e79'

La operación no está permitida si el objeto está abierto.

/pool/buscar.asp, line 57

INCLUSO YA LE PUSE rs.Close AL FINAL DEL CODIGO Y APARECE EL MISMO ERROR.

Relket · #12 (**permalink**) 15/03/2004, 09:14

al momento de cerrar la tabla y la conexion solo necesitas esto

Tabla.Close
Conexion.Close

y en la linea 57, no es así:
Tabla.Open SQLtxt, "DSN=base"

Mira hazlo de esta manera:
Tabla.Open SQLtxt, Conexion

Esto es para que use la configuración de Conexion que creaste.

tork · #13 (**permalink**) 15/03/2004, 10:03

Gracias por toda la ayuda que me has dado pero, me siguie saliendo un error:

Resultados obtenidos con todo

ADODB.Recordset error '800a0e79'

La operación no está permitida si el objeto está abierto.

/pool/buscar.asp, line 57

YA CAMBIE LO QUE MARACASTE ARRIBA Y QUEDO ASI:

<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>

#14 (**permalink**) 30/12/2004, 10:25

podias marcar las lineas de 5 en 5.
¿Cual es la linea 57?

Ramondi · #15 (**permalink**) 31/12/2004, 02:43

El problema que veo es que abres el objeto recordset Tabla 2 veces con 2 sqls diferentes. Lo que importa es saber si quieres machacar ese objeto o crear otro nuevo.

Lo que entiendo.... a ver...
Haces una consulta para ver si lo que buscas está en la tabla :

Código:

Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request("palabra")) & "%'"

Tabla.Open Temp, Conexion

Vale. Despues de comprovar que realmente has encontrado algo muestras los resultados... pero según este codigo :

Código:

Else
%>

<%SQLtxt = "SELECT pal, Des, url FROM Tabla1"
Tabla.pagesize=10
Tabla.Open SQLtxt, "DSN=base"

Lo que haces es abrir de nuevo el objeto recordset Tabla, con un select * ¿¿?? No le encuentro logica. Además, la 1era declaración de Tabla, la haces con :

Código:

Conexion.Open "Driver={Microsoft Access Driver (*.mdb)};" & " Dbq=" & Server.MapPath("base.mdb")
Tabla.Open Temp, Conexion

y la segunda con DSN... ??

Creo que podrías aprovechar el 1er select, pasandole el pagecount y el absolutepage antes de hacer el .open.

Espero que haya quedado bastante claro... jejeje