Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marvazoler

script de tabela

Por , em ASP Clássico

Recommended Posts

marvazoler    0

marvazoler
Postado

Olá galera beleza?

 

Tenho o seguinte caso:

 

tenho uma filtragem de horários de ônibus com referecia, ou seja, pontos de saida!

 

por exemplo

 

Saida do Centro

saida do Morumbi

 

olha como ficaria a filtragem com os horários

 

 

DIAS ÚTEIS

SAÍDA DO CENTRO

05:00 05:40 06:10

06:50 07:30 08:00

___________________

SAÍDA DO MORUMBI

05:05 05:45 06:15

06:55 07:35 08:05

 

Na prática é so fazer um loop na tabela que vai mostrar as referencias e seus horários

um referencia em baixo da outro. mas, ja pensou se cada referencia tiver 100 horários, vai gerar

um barra enorme.

 

mas agora que vem o tal, tem como colocar uma referencia do lado da outro?

 

 

DIAS ÚTEIS

SAÍDA DO CENTRO | SAIDA MORUMBI

05:00 05:40 06:10 | 05:00 05:40 06:10

06:50 07:30 08:00 | 06:50 07:30 08:00

 

 

 

Desde ja agradeço

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Salientando as regras de nosso fórum, porfavor poste apenas um mensagem com o mesmo conteúdo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Loop dentro de Loop

 

Faça um loop para gerar todos os horários de cada ponto de saida... terminado isso.. um outro loop irá colocar os horários do outro ponto ao lado do primeiro..

 

Utilize DIV's para isso...

 

 

Abraços...

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

cara, se usar a tabela normal não funciona?

 

value pela atenção

 

Olha script abaixo

 

<table width="448" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
  
	<td height="36"><div align="center"><font size="3"><strong><%=oRs3("cod_linha") %> 
		- Bela Vista</strong></font></div></td>
  </tr>
  <tr> 
	<% do while not oRs3.eof %>
	<% 
  Dim dia_anterior  
  if (oRs3("COD_DIA") <> dia_anterior) then
	 dia_anterior = oRs3("COD_DIA")
 %>
	<td height="36"> <div align="center"><% if oRs3("COD_DIA")= 2 then : response.Write("SEGUNDA A SEXTA") %> <% if oRs3("COD_DIA")= 8 then : response.Write("SÁBADOS")%><% if oRs3("COD_DIA")= 6 then : response.Write("DOMIGOS E FERIADOS")%></div>
	  <%end if%>
	</td>
  </tr> <% 
  Dim referencia_anterior  
  if (oRs3("REFERENCIA") <> referencia_anterior) then
	 referencia_anterior = oRs3("REFERENCIA")
 %>
 <tr> 
	<td><div align="center"><% if oRs3("referencia")= 6 then : response.Write("SAIDA - INSS") : else : response.Write("SAIDA - BELA VISTA") %></div><%end if%></td>
</tr>
<tr> 
	<td><div align="center"> <%=oRs3("centro") %> <%=oRs3("trajeto") %></div></td>
</tr>  
 
  <%
  oRs3.movenext
  loop  
  %>
</table>

 

Por favor com o script acima, como ficaria essa div que você falou?

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

Olá Darkdemo beleza?

 

Cara tentei fazer os loop que você me disse, mas....

 

Não da erro, no script que fiz as referencias estão mostrando umas em baixo das outras.

 

por favor me mostre onde tem que ser alterado!!

 

Valeu pela atenção

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Eeeeeee.... pedir tudo de mão beijada é fácil né ???

 

Parar e pensar um pouco que é bom ninguém qr né ?? ¬¬

 

Vou colocar a estrutura pra você entender

 

LOOP 1 ( monta as divs uma ao lado da outra )

While NOT RS.EOF Then
%>
<div>
<%
LOOP 2 (Aki você monta os horarios)

While NOT RS1.EOF Then

Response.Write(RS1("Horarios") & "<br>")

Rs1.Netx
Wend

Response.Write("</div>")
Rs.Next
Wend
%>
Abraços....

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

amigão olha a idéia abaixo

 

eu fiz um script para a seguinte situação

 

linha = 30 "Linha do ônibus"

dia = 2 "dia da semana"

referencia = 6 - bairro, 36 - centro " ponto onde o ônibus passa "

 

30 - linha centro

2 - dias úteis

6 - saida do bairro

06:00

06:35

07:05

07:40

08:00

09:35

10:05

11:40

 

36 - saida do centro

06:00

06:35

07:05

07:40

08:00

09:35

10:05

11:40

 

bom até aqui eu fiz, mas daqui para frente hummm

 

30 - linha centro

2 - dias úteis

6 - saida do bairro | 36- saido do centro

06:00 06:35 07:05 | 06:30 07:00 07:35

07:40 08:00 09:35 | 08:00 08:33 09:00

10:05 11:40 | 09:20 10:00

 

isso é para compacta as informação , ou seja uma referencia do lado da outra

 

desde já agradeço

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

essas horas ai:

06:00

06:35

07:05

07:40

08:00

09:35

10:05

11:40

vem de uma coluna só?

 

descreva cada coluna do seu banco!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

as horas vem de uma sim!!

eis minha tela de cadastro de horas

 

linha

trajeto

Dia da semana

referencia

horas

 

olha como ficaria!

 

linha - 30

trajeto - 31

Segunda a sexta

referencia - centro

06:35

07:05

07:40

08:00

09:35

10:05

11:40

 

referencia - bairro

06:35

07:05

07:40

08:00

09:35

10:05

11:40

 

Sábado

referencia - centro

06:35

07:05

07:40

08:00

09:35

10:05

11:40

 

referencia - bairro

06:35

07:05

07:40

08:00

09:35

10:05

11:40

 

Domingos e feriados

referencia - centro

06:35

07:05

07:40

08:00

09:35

10:05

11:40

 

referencia - bairro

06:35

07:05

07:40

08:00

09:35

10:05

11:40

 

entedeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

Olha o que estou fazendo

 

Set ors = oConn.Execute("SELECT distinct(codigo),horario.* FROM HORARIO where COD_LINHA = 70 order by referencia asc,centro")
Set ors2 = oConn.Execute("SELECT count(codigo) as cod FROM HORARIO where COD_LINHA = 70 " )
%>
<% do while not oRs.eof %>
<table width="500" border="0" cellspacing="0" cellpadding="0">
  <tr> 
	<td colspan="2"><div align="center"><%=oRs("cod_linha")%></div></td>
  </tr>
  <tr> <% dim dia
		 if oRs("cod_dia") <> dia then ' script para não repetir 
				dia = oRs("cod_dia")
	   %>
	<td colspan="2"><div align="center"><%=oRs("cod_dia")%></div></td>  </tr><%end if%>
  <tr> 
  <%  dim ref
		 if oRs("referencia") <> ref then ' script para não repetir 
		   ref = oRs("referencia")
	   %>
	<td colspan="2"><div align="center"><%=oRs("referencia")%></div></td></tr><% end if %>
  <tr> 
	<td colspan="2"><div align="center"><%=oRs("centro")%></div></td></tr>
  <Tr>
</table>
	<%
  oRs.movenext
  loop
%>
ta muito errado do que deveria ser?

Compartilhar este post

Link para o post
Compartilhar em outros sites

filipescoob    1

filipescoob
Postado

Bom, o que ja da para melhorar neste codigo é.

 

Abra table antes do LOOP e feche depois do FIM DO LOOP.

 

Trabalhei apenas com as linhas e colunas dentro do LOOP. Tera o mesmo resultado com um codigo/resultado mais limpo.

 

 

Vamos la.

 

Seu retorno de select é o abaixo ?

 

 

linha | trajeto | Dia da semana | referencia | horas |

30 | 31 | Segunda a sexta | centro | 06:35

30 | 31 | Segunda a sexta | centro | 07:05

30 | 31 | Segunda a sexta | centro | 07:40

30 | 31 | Segunda a sexta | centro | 8:00

30 | 31 | Segunda a sexta | centro | 09:35

30 | 31 | Segunda a sexta | centro | 10:05

30 | 31 | Segunda a sexta | centro | 11:40

30 | 31 | Segunda a sexta | bairro | 06:35

30 | 31 | Segunda a sexta | bairro | 07:05

30 | 31 | Segunda a sexta | bairro | 07:40

30 | 31 | Segunda a sexta | bairro | 08:00

30 | 31 | Segunda a sexta | bairro | 09:35

30 | 31 | Segunda a sexta | bairro | 10:05

30 | 31 | Segunda a sexta | bairro | 11:40

30 | 31 | Segunda a sexta | bairro |

 

 

E assim sucessivamente com os abaixo ?

 

 

Sábado

referencia - centro

06:35

07:05

07:40

08:00

09:35

10:05

11:40

 

referencia - bairro

06:35

07:05

07:40

08:00

09:35

10:05

11:40

 

Domingos e feriados

referencia - centro

06:35

07:05

07:40

08:00

09:35

10:05

11:40

 

referencia - bairro

06:35

07:05

07:40

08:00

09:35

10:05

11:40

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

Amigão fiz uma ateração

 

e o resultado do teste no link http://www.vjd.com.br/tAbeladinamica.asp

 

<table width="492" border="0" cellspacing="0" cellpadding="0">
<% do while not oRs.eof %>
  <tr> 
	<td><div align="center"><%=oRs("cod_linha")%></div></td>
  </tr>
  <tr> <% if oRs("cod_dia") <> dia then%>
	<td><div align="center"><%=oRs("cod_dia")%></div></td>
  </tr><% dia = oRs("cod_dia") %>
		  <%end if%>
  <tr> 
	<td><div align="center"> 
		<table width="477" border="0" cellspacing="0" cellpadding="0">
		  <tr>
		  <% if oRs("referencia")<> ref then %>
			<td align="center"><%=oRs("referencia")%></td>
			<td align="center"><%=oRs("referencia")%></td>
		  </tr><%ref = oRs("referencia")%>
			   <%end if%>

		</table>
	  </div></td>
  </tr>
  <tr> 
	<td><div align="center">
		<table width="477" border="0" cellspacing="0" cellpadding="0">
		  <tr>
			<td align="center"><%=oRs("centro")%></td>
			<td align="center"><%=oRs("centro")%></td>
		  </tr>
		</table>
	  </div></td>
  </tr>
  <%
 oRs.movenext
  loop
%>

</table>
temos no resultado a referencia 6 e 8

 

e estão apresentado uma abaixo do outro e está repetindo a mesma coluna e não é para

não acontecer

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo de como criar dinamicamente uma tabela HTML a partir de um recordset ADO.Tudo o que você precisa é a sua conexão e o nome da tabela.pode te ajudar a lógica.

 

<%	
		Dim conn
		Dim cmd
		Dim rs
		
		Set conn = Server.CreateObject("ADODB.Connection")
		Set cmd = Server.CreateObject("ADODB.Command")
		
		cmd.ActiveConnection = "Provider = MSDASQL;Data Source=Northwind;Database=Northwind;User Id=;Password=;"
		cmd.CommandText = "SELECT * FROM Customers"
		
		Set rs = cmd.Execute
		
		Response.Write "<table width=100% border=1>" 
		Response.Write "<tr>" 
		for i = 1 to rs.Fields.Count - 1
			Response.Write "<td><strong>" & rs.Fields(i).Name & "<strong></td>" 
		next
			Response.Write "</tr>"
			
		Do While Not rs.EOF
				Response.Write "<tr>" 
			for i = 1 to rs.Fields.Count - 1
					Response.Write "<td>" & rs.Fields(i) & "</td>" 
			next
			rs.MoveNext
				Response.Write "</tr>"
		Loop
				Response.Write "</table>"
	%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

amigão bom dia tudo bom?

xanburzum, seu exemplo não me ajudou muito pois eu gostaria minha tabela dinâmica ficasse igual

ao que se encontra no link:

 

http://www.vjd.com.br/tAbeladinamica.asp

 

pois a paste certa que deveria ficar correto é a tabela da parte de baixo, entede!!

 

pois minha tabela de cadastro de horários contem os seguinte campos:

 

Linha = linha do ônibus

trajeto = trajeto onde o ônibus passa

dia = dia da semana

referencia = pontos de passagens

horario = horários dos ônibus

 

ou seja eu quero que quebre por dia da semana, referencia, mas com um detalhe, a referencia e posta lado a lado

 

desde já agradeço

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito