Filtrar Resultados con Combos

nemesixxx · #1 (**permalink**) 20/12/2008, 17:14

Hola, muy buenas noches.

Les escribo porque deseo realizar una búsqueda en ASP filtrando con Combos. Consistiría básicamente en una página donde con un desplegable (combo) seleccionases una "asignatura", en otro igual, un "curso", le dieras a realizar búsqueda con un botón submit, y EN LA MISMA PÁGINA te mostrara en una tabla los resultados, con un <%while not rs.eof rs.movenext wend%>.

El problema surge que no sólo puedes elegir una asignatura o un curso, también debe haber una posibilidad de buscar por todos los cursos. En la sentencia SQL, si eliges "Todos los cursos" o "Todas las asignaturas" en el WHERE no debe poner la condición de que la asignatura o curso sea ESA o ESE. Creo que me explico bien, es un poco lioso pero bueno...

Básicamente habría que construirse una cadena (la llamamos por ejemplo micadena) y en el rs.open le pondriamos rs.open "select * from la_tabla where " & micadena & " ORDER BY lo_que_sea DESC".

El construir esta cadena dependiendo que se elige es un poco complicada, espero podáis echarme una mano, porque sabiendo esto luego quiero ampliar la búsqueda añadiendo unos calendarios para elegir las fechas entre las que quiero buscar.

Nada más, espero sus respuestas. Me es algo urgente.

Un saludo ;)

Shiryu_Libra · #2 (**permalink**) 20/12/2008, 19:19

........

que tanto codigo llevas y como lo estas tratando??????

luisvasquez · #3 (**permalink**) 21/12/2008, 11:55

Hola nemesixxx,

Fijate en esta búsqueda (estilo filtro) que tengo en mi sitio a ver si se adapta a lo que quieres:

http://www.tuflete.com/buscar_camiones.asp

Si es así te paso el código y lo adaptamos.

Saludos,
Luis

nemesixxx · #4 (**permalink**) 21/12/2008, 19:01

Bien, pues al haber en total 4 posibilidades he creado 4 rs.open "select....." atendiendo a lo que pone el usuario.

Tengo un campo fecha de tipo Fecha/Hora que es Fecha General, en Access. La forma de presentarlo lo hace con barras ("/") y dia/mes/año, pues he hecho pruebas con Response.Write y demás.

Este es el código de una de las sentencias:

Código asp:

Ver originalrs.open "select * from pedidos where idusuarios="&session("id") &" AND fechaimpresion is not NULL AND asignatura = '" & Request.form("cmbasignaturas") &"' AND curso = '" & Request.form("cmbcursos") &"' AND fechaimpresion BETWEEN #"& request.form("txtfechainicial") &"# AND  #"& request.form("txtfechainicial") &"#",cnn,3,3

Es una búsqueda de un pedido atendiendo a la Asignatura y Curso seleccionados, que el campo "fechaimpresion" tenga algo (halla sido impreso) y que el campo "fechaimpresion" además esté entre esos valores.

Decir que en "txtfechainicial" y "txtfechafinal" al hacer clic en el campo de texto me abre un calendario donde marcas el día, mes y año y te cambia el valor de la caja de texto por "dia/mes/año" seleccionado, en este formato "dd/mm/yyyy".

A ver si podéis ayudarme, yo es que el código lo veo bien. Un saludo!!

Adler · #5 (**permalink**) 22/12/2008, 07:13

Hola

¿Te da algún error? ¿No hace lo que esperas que hiciera? ¿No le faltan las comillas simples a las fechas?

'#"& request.form("txtfechainicial") &"#' AND '#"& request.form("txtfechainicial") &"#'

Suerte

nemesixxx · #6 (**permalink**) 22/12/2008, 08:46

Efectivamente, no hace lo que yo esperaba. Tengo 2 pedidos entre las fechas 1 de diciembre y 31 de diciembre y no me los muestra.

Al ponerle las comillas simples, me ha tirado este error:

Código asp:

Ver originalMicrosoft JET Database Engine error '80040e07'
 
No coinciden los tipos de datos en la expresión de criterios.
 
/falces/fotocopias/admin/gesfotocopias/buscar.asp, línea 25

Las fechas en ASP creo que van entre almohadillas, por eso lo había dejado nada más que con almohadillas, es decir, algo como lo siguiente: #dd/mm/yyyy#.

A ver si entre todos lo sacamos jeje! Un saludo y gracias por responder.

Shiryu_Libra · #7 (**permalink**) 22/12/2008, 09:37

... nemesis.... muestra la fraccion de codigo que usas para la consulta, para poder ayudarte mejor

nemesixxx · #8 (**permalink**) 22/12/2008, 09:51

Esto es el código de la búsqueda:

Código asp:

Ver original<%
if session("nombre")="" or session("nivel")<1 then
    response.Redirect("index.asp")//lo llevo a la página de login
end if
 
    set cnn=server.CreateObject("ADODB.Connection")
    set rs=server.CreateObject("ADODB.Recordset")
    set rsasignaturas=server.CreateObject("ADODB.Recordset")
    set rscursos=server.CreateObject("ADODB.Recordset")
    ruta=server.MapPath("../db/bd.mdb")
    cnn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta & ";User Id=admin;Password=;"
    miasignatura=Request.Form("cmbasignaturas")
    micurso=Request.Form("cmbcursos")
    
If miasignatura="0" AND micurso="0" Then
'esto es si seleccionan todas las asignaturas asignatura y todos los cursos
    rs.open "select * from pedidos where idusuarios="&session("id") &" AND fechaimpresion is not NULL AND fechaimpresion BETWEEN #"& request.form("fechainicial") &"# AND  #"& request.form("fechainicial") &"#",cnn,3,3
    ElseIf miasignatura="0" AND micurso<>"0" Then
    'esto es si seleccionan todas las asignaturas y un curso
    rs.open "select * from pedidos where idusuarios="&session("id") &" AND fechaimpresion is not NULL AND curso = '" & Request.form("cmbcursos") &"' AND fechaimpresion BETWEEN #"& request.form("fechainicial") &"# AND  #"& request.form("fechainicial") &"#",cnn,3,3
        ElseIf miasignatura<>"0" AND micurso="0" Then
            'esto es si seleccionan una asignatura y todos los cursos
        rs.open "select * from pedidos where idusuarios="&session("id") &" AND fechaimpresion is not NULL AND asignatura = '" & Request.form("cmbasignaturas") &"' AND fechaimpresion BETWEEN #"& request.form("fechainicial") &"# AND  #"& request.form("fechainicial") &"#",cnn,3,3
        Else
            'esto es si seleccionan una asignatura y un curso
        rs.open "select * from pedidos where idusuarios="&session("id") &" AND fechaimpresion is not NULL AND asignatura = '" & Request.form("cmbasignaturas") &"' AND curso = '" & Request.form("cmbcursos") &"' AND fechaimpresion BETWEEN #"& request.form("fechainicial") &"# AND  #"& request.form("fechainicial") &"#",cnn,3,3
End If
%>

Y así es como lo "pinto" en la tabla:

Código asp:

Ver original<table width="634" border="0" align="center" class="bordetablas">
            <tr class="titular">
              <td width="115"><div align="center">Fecha de impresi&oacute;n</div></td>
              <td width="86"><div align="center">Asignatura</div></td>
              <td width="107"><div align="center">Curso</div></td>
              <td width="143"><div align="center">Concepto</div></td>
              <td width="49"><div align="center">Copias</div></td>
              <td width="74"><div align="center">Hojas/copia</div></td>
              <td width="26"><div align="center">Ver</div></td>
            </tr>
<%while not rs.eof%>
            <tr class="textonormal">
              <td><div align="center"><span class="titular"><span class="textonormal"><%=rs("fechaimpresion")%></span></span></div></td>
              <td><div align="center"><span class="textonormal"><%=rs("asignatura")%></span></div></td>
              <td><div align="center"><span class="textonormal"><%=rs("curso")%></span></div></td>
              <td><div align="center"><span class="textonormal"><%=rs("pedido")%></span></div></td>
              <td><div align="center"><span class="textonormal"><%=rs("copias")%></span></div></td>
              <td><div align="center"><span class="textonormal"><%=rs("originales")%></span></div></td>
              <td><div align="center"><a href="#"><img src="../../images/ver.png" alt="ver" width="16" height="16" border="0" onclick="AbreVentana('recibo.asp?idpedidos=<%=rs("idpedidos")%>')""/></a></div></td>
            </tr>
<%
  rs.movenext
  wend
  %>
    </table>

Adler · #9 (**permalink**) 22/12/2008, 15:15

Hola

Prueba con

CDate(request.form("fechainicial"))

Suerte

nemesixxx · #10 (**permalink**) 22/12/2008, 16:03

Nada, que no me sale lo que busco...

A ver si podemos encontrar el error...

Adler · #11 (**permalink**) 23/12/2008, 06:08

Hola

Detalles, detalles ...

Código asp:

Ver originalIf miasignatura="0" AND micurso="0" Then
 
'esto es si seleccionan todas las asignaturas asignatura y todos los cursos
 
    rs.open "select * from pedidos where idusuarios="&session("id") &" AND fechaimpresion is not NULL AND fechaimpresion BETWEEN #"& request.form("fechainicial") &"# AND  #"& request.form("txtfechafinal") &"#",cnn,3,3
 
    ElseIf miasignatura="0" AND micurso<>"0" Then
 
    'esto es si seleccionan todas las asignaturas y un curso
 
    rs.open "select * from pedidos where idusuarios="&session("id") &" AND fechaimpresion is not NULL AND curso = '" & Request.form("cmbcursos") &"' AND fechaimpresion BETWEEN #"& request.form("fechainicial") &"# AND  #"& request.form("txtfechafinal") &"#",cnn,3,3
 
        ElseIf miasignatura<>"0" AND micurso="0" Then
 
            'esto es si seleccionan una asignatura y todos los cursos
 
        rs.open "select * from pedidos where idusuarios="&session("id") &" AND fechaimpresion is not NULL AND asignatura = '" & Request.form("cmbasignaturas") &"' AND fechaimpresion BETWEEN #"& request.form("fechainicial") &"# AND  #"& request.form("txtfechafinal") &"#",cnn,3,3
 
        Else
 
            'esto es si seleccionan una asignatura y un curso
 
        rs.open "select * from pedidos where idusuarios="&session("id") &" AND fechaimpresion is not NULL AND asignatura = '" & Request.form("cmbasignaturas") &"' AND curso = '" & Request.form("cmbcursos") &"' AND fechaimpresion BETWEEN #"& request.form("fechainicial") &"# AND  #"& request.form("txtfechafinal") &"#",cnn,3,3
 
End If

Suerte

luisvasquez · #12 (**permalink**) 23/12/2008, 08:22

El error debe estar en un apostrofe o alguna variable que no tiene valor asignado.

Sinceramente yo recomiendo que guardes el SQL en una variable en lugar de ejecutarlo directamente. Me explico:

cambia

rs.open "select *.... por MiSQL= "select *...

y luego, despues del End if de la linea 25 (del ejemplo anterior) pongas esto

response.write(MiSQL)
response.end()
rs.open MiSQL

En principio no ejecutará el sql pero te permitirá verlo para analizarlo. Copialo y pegalo en Access (como consulta) para que te muestre donde está el error. Así vas depurando.

Saludos

nemesixxx · #13 (**permalink**) 23/12/2008, 09:08

Adler no me he fijado muy bien que has modificado pero he copiado el código y pegado y YA FUNCIONA !!! Podrías comentarlo... igual era alguna & no sé...

De todas formas, muchísimas gracias a ti y a TODOS por molestarse tanto en que me funcione el filtro de las narices jeje!!

Os deseo muy feliz navidad !!!

Adler · #14 (**permalink**) 23/12/2008, 12:35

Hola

Hagamoslo más despacio

BETWEEN #"& request.form("fechainicial") &"# AND #"& request.form("fechainicial") &"#

BETWEEN #"& request.form("fechainicial") &"# AND #"& request.form("txtfechafinal") &"#