Foros del Web » Programando para Internet » ASP Clásico »

Despliegue de datos / día

Estas en el tema de Despliegue de datos / día en el foro de ASP Clásico en Foros del Web. Estimados amigos, Os voy a hacer una pregunta cuya respuesta pudiera llegar a ser una tontería, pero que desconozco. Tengo una base de datos con ...
  #1 (permalink)  
Antiguo 04/08/2005, 23:20
Avatar de emajesus  
Fecha de Ingreso: abril-2003
Mensajes: 278
Antigüedad: 21 años, 1 mes
Puntos: 1
Despliegue de datos / día

Estimados amigos,

Os voy a hacer una pregunta cuya respuesta pudiera llegar a ser una tontería, pero que desconozco.

Tengo una base de datos con registros que corresponden a cada día de la semana; necesito desplegarlos y que el comienzo de cada bloque diario se indique el día a que corresponden.

Por ejemplo:

LUNES
registro 01
registro 02

MARTES
registro 03
registro 04

... y así sucesivamente ...

Pues bien, estoy loco; no sé cómo hacerlo ... He tenido que trampear la BD para que el despliegue fuera correcto.

¿Me podéis echar una mano?

Aprovecho y os hago una última consulta; he elaborado un texto muy largo; quisiera paginarlo -estilo periódico-; no deseo cortar el texto en párrafos sino que éste sea un único registro que aparezca en distintas páginas sucesivas ... ¿cómo podría hacerlo? Sé paginar múltiples resultados de un recordset, pero un único recordset no ...

Gracias,

Emajesus

Última edición por emajesus; 05/08/2005 a las 00:19
  #2 (permalink)  
Antiguo 05/08/2005, 01:07
Avatar de mamon  
Fecha de Ingreso: enero-2002
Ubicación: Lima
Mensajes: 1.302
Antigüedad: 22 años, 5 meses
Puntos: 3
mmm.. eso de los lunes, martes, etc.. qué tal si haces 7 consultas? una para cada dia de la semana?.. y lo de la paginación...

es algo medio complicado la vdd.. ya que más o menos es que se muestra n caracteres en una página.. pero qué pasa si se come la mitad de una palabra.. más o menos lo puedes hacer con la función MID.. ahorita acá en Perú son las 2:14 de la mañana.. la vdd es q no tengo muchas ganas de estar pensando en eso jejeje.. mañana voy a buscar la solución...
__________________
Yo si sé lo que es trabajar duro, porque lo he visto.
  #3 (permalink)  
Antiguo 05/08/2005, 01:50
Avatar de emajesus  
Fecha de Ingreso: abril-2003
Mensajes: 278
Antigüedad: 21 años, 1 mes
Puntos: 1
Gracias; es muy importante y agradezco tu interés ;)
  #4 (permalink)  
Antiguo 05/08/2005, 07:32
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 4 meses
Puntos: 146
Muy simple, ¿tienes un campo que distinga el día?, pues ya esta, solo agrúpalo (GROUP BY) u ordénalos (ORDER BY) por ese campo y listo.
Cuando lo despliegues coloca un condicional (CASE) que verifique ese campo y si es distinto al anterior (inicilizas una variable a "" y le asignas el día actual cuando cambie) colocas el nombre del día.

Saludos
  #5 (permalink)  
Antiguo 05/08/2005, 16:45
Avatar de mamon  
Fecha de Ingreso: enero-2002
Ubicación: Lima
Mensajes: 1.302
Antigüedad: 22 años, 5 meses
Puntos: 3
YA! TE TENGO LA SOLUCION E PAGINAR TU TEXTO=)

mira la variable que se llama variable tiene el texto... luego, la variable mostrar son la cantidad de palabras que quieres mostrar.... ya está paginado=) espero te sirva.. me dices qué te parecio

<%
variable = "Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est"
variable = Replace(variable,vbcrlf,"<br>")
V = Split(variable," ")
palabras = Ubound(V)
mostrar = 10
If Request.QueryString("pag") = "" Then
pagina_actual = 0
Else
pagina_actual = CInt(Request.QueryString("pag"))
End If
cant_paginas = Int(palabras/mostrar)
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 0 Then pagina_actual = 0
if pagina_actual < cant_paginas then
for i = pagina_actual*mostrar to pagina_actual*mostrar+mostrar-1
response.Write(V(i)&" ")
next
else
for i = pagina_actual*mostrar to palabras
response.Write(V(i)&" ")
next
end if
response.Write("<br>")
if pagina_actual > 0 then
response.Write("<a href='mid.asp?pag="&pagina_actual-1&"'><<</a> ")
end if

if pagina_actual < cant_paginas then
response.Write(" <a href='mid.asp?pag="&pagina_actual+1&"'>>></a>")
end if
%>

es más.. podemos hacer una función con ésto... voa ponerla en las biblioteca de ASP
__________________
Yo si sé lo que es trabajar duro, porque lo he visto.
  #6 (permalink)  
Antiguo 05/08/2005, 16:50
Avatar de emajesus  
Fecha de Ingreso: abril-2003
Mensajes: 278
Antigüedad: 21 años, 1 mes
Puntos: 1
Voy a probarlo y te cuento ... ¡mashote, eres un encanto!

Emajesus
  #7 (permalink)  
Antiguo 06/08/2005, 02:01
Avatar de emajesus  
Fecha de Ingreso: abril-2003
Mensajes: 278
Antigüedad: 21 años, 1 mes
Puntos: 1
Funciona genial; era justo lo que buscaba.

Gracias por tu apoyo,

Emajesus

Última edición por emajesus; 06/08/2005 a las 04:38
  #8 (permalink)  
Antiguo 06/08/2005, 16:31
Avatar de mamon  
Fecha de Ingreso: enero-2002
Ubicación: Lima
Mensajes: 1.302
Antigüedad: 22 años, 5 meses
Puntos: 3
si lo quieres hacer x párrafos sería asi:
cambias
variable = Replace(variable,vbcrlf,"<br>")
V = Split(variable," ")
palabras = Ubound(V)
mostrar = 10
por
'variable = Replace(variable,vbcrlf,"<br>")
V = Split(variable,vbcrlf)
palabras = Ubound(V)
mostrar = 1

eso es todo.. no sé xq a mi mail me llego un mensaje preguntando eso.. q cómo haria para separarlo x párrafos... y aquí no sale nada de eso:S jjejeje.. pero igual.. x si acaso
__________________
Yo si sé lo que es trabajar duro, porque lo he visto.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 00:26.