Foros del web, para los que viven de bits

nemesixxx · 20-dic-2008, 16: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 · 20-dic-2008, 18:19

........

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

luisvasquez · 21-dic-2008, 10: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 · 21-dic-2008, 18: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 originalCopiarrs.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 · 22-dic-2008, 06: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 · 22-dic-2008, 07: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 originalCopiarMicrosoft 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 · 22-dic-2008, 08:37

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

nemesixxx · 22-dic-2008, 08:51

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

Código asp:

Ver originalCopiar<%
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 originalCopiar<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 · 22-dic-2008, 14:15

Hola

Prueba con

CDate(request.form("fechainicial"))

Suerte

nemesixxx · 22-dic-2008, 15:03

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

A ver si podemos encontrar el error...

Adler · 23-dic-2008, 05:08

Hola

Detalles, detalles ...

Código asp:

Ver originalCopiarIf 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 · 23-dic-2008, 07: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 · 23-dic-2008, 08: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 · 23-dic-2008, 11:35

Hola

Hagamoslo más despacio

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

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

20-dic-2008, 16:14	#1 (permalink)
nemesixxx Fecha de Ingreso: diciembre-2008 Mensajes: 16	Filtrar Resultados con Combos 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 ;)

20-dic-2008, 18:19	#2 (permalink)
Shiryu_Libra Colaborador Fecha de Ingreso: febrero-2007 Ubicación: Si preguntas por esto.... "Hay Tabla"... mientras en "En Kirafa Kaput" Mensajes: 3.480	Respuesta: Filtrar Resultados con Combos ........ que tanto codigo llevas y como lo estas tratando?????? __________________ "Eres parte del problema, parte de la solucion o parte del paisaje" Un Saludo desde Desierto de Altar, Sonora, MX. Shiryu_libra

21-dic-2008, 10:55	#3 (permalink)
luisvasquez Fecha de Ingreso: diciembre-2003 Ubicación: Venezuela Mensajes: 723	Respuesta: Filtrar Resultados con Combos 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 __________________ Bolsa de Carga y Transporte de Venezuela

21-dic-2008, 18:01	#4 (permalink)
nemesixxx Fecha de Ingreso: diciembre-2008 Mensajes: 16	Respuesta: Filtrar Resultados con Combos 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 original Copiar 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("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!!

22-dic-2008, 06:13	#5 (permalink)
Adler Fecha de Ingreso: diciembre-2006 Mensajes: 1.308	Respuesta: Filtrar Resultados con Combos 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 __________________ Vive y dejame vivir o morir como yo quiera

22-dic-2008, 07:46	#6 (permalink)
nemesixxx Fecha de Ingreso: diciembre-2008 Mensajes: 16	Respuesta: Filtrar Resultados con Combos 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 original Copiar Microsoft 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.

22-dic-2008, 08:37	#7 (permalink)
Shiryu_Libra Colaborador Fecha de Ingreso: febrero-2007 Ubicación: Si preguntas por esto.... "Hay Tabla"... mientras en "En Kirafa Kaput" Mensajes: 3.480	Respuesta: Filtrar Resultados con Combos ... nemesis.... muestra la fraccion de codigo que usas para la consulta, para poder ayudarte mejor __________________ "Eres parte del problema, parte de la solucion o parte del paisaje" Un Saludo desde Desierto de Altar, Sonora, MX. Shiryu_libra

22-dic-2008, 14:15	#9 (permalink)
Adler Fecha de Ingreso: diciembre-2006 Mensajes: 1.308	Respuesta: Filtrar Resultados con Combos Hola Prueba con CDate(request.form("fechainicial")) Suerte __________________ Vive y dejame vivir o morir como yo quiera

22-dic-2008, 15:03	#10 (permalink)
nemesixxx Fecha de Ingreso: diciembre-2008 Mensajes: 16	Respuesta: Filtrar Resultados con Combos Nada, que no me sale lo que busco... A ver si podemos encontrar el error...

23-dic-2008, 07:22	#12 (permalink)
luisvasquez Fecha de Ingreso: diciembre-2003 Ubicación: Venezuela Mensajes: 723	Respuesta: Filtrar Resultados con Combos 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 __________________ Bolsa de Carga y Transporte de Venezuela

23-dic-2008, 08:08	#13 (permalink)
nemesixxx Fecha de Ingreso: diciembre-2008 Mensajes: 16	Respuesta: Filtrar Resultados con Combos 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 !!!

23-dic-2008, 11:35	#14 (permalink)
Adler Fecha de Ingreso: diciembre-2006 Mensajes: 1.308	Respuesta: Filtrar Resultados con Combos Hola Hagamoslo más despacio BETWEEN #"& request.form("fechainicial") &"# AND #"& request.form("fechainicial") &"# BETWEEN #"& request.form("fechainicial") &"# AND #"& request.form("txtfechafinal") &"# __________________ Vive y dejame vivir o morir como yo quiera

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Modo lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado