Ir para conteúdo

Arquivado

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

marvazoler

Somar quantidade de registro Filtrada

Por , em ASP Clássico

Recommended Posts

marvazoler    0

marvazoler
Postado

Olá galera bom dia!

 

Fiz uma sql exemplo:

 

rs = "select codigo, nome, telefone from cliente"

 

de todos os campos eu só preciso de codigo e nome!!

 

como eu colocaria em uma variável o total de registros filtrados?

 

Agradeço desde já

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

Amigão estou tentando executa a script abaixa e está dando erro

 

Set oRs5 = oConn.Execute("select COUNT(CODIGO) AS COD from HORARIO WHERE HORARIO.COD_LINHA = "&varlinha&"")

 

Erro:

 

Objeto Response erro 'ASP 0251 : 80004005'

 

Limite do Buffer de Resposta Ultrapassado

 

/grupo_linha_result_col.asp, line 0

 

A execução da página ASP fez com que o Buffer de Resposta ultrapassasse seu limite configurado.

 

 

por que?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Faz o seguinte, pega essa SQL, cria uma nova consulta no ACCESS e veja o que vai retornar.

 

Sobre esse novo erro, poste o cabeçalho do seu código. Vou mover o tópico para o Fórum de ASP novamente, já que há um novo erro.

 

 

 

Movido de Modelagem/SQL http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Verifique se no código ASP da página exista um parametro

Resnpose.Buffer, caso exista este parametro deve estar setting = true.

 

coloca o 

<%Response.Buffer = True%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Motta    645

Motta
Postado

Em geral o objeto que manipula a query tem um método que obtem a quantidade de registros do result set.

 

Em geral é COUNT

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

Olá camarada beleza?

 

Estou tendando somar a quantidade de registro filtrada e divindo em um tabela, eis o código:

...
...
Set oRs5 = oConn.Execute("select COUNT(CODIGO) AS COD from HORARIO")
...
...
						  <tr> 
		<%
		n = 1
		max = oRs5("cod") ' exemplo: 101 registos filtrados
		Round(max) ' Arredondamento
		while n <= max
		%>
		<%=n%><br />
						  <td><div align="center" ><font size="1" face="Verdana, Arial, Helvetica, sans-		serif">  </font></div></td>
					  <td><%= oRs2("CENTRO")%></font></div></td>
					  <td class="tab"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><% Response.Write (right("0" & oRs2("TRAJETO"),3))%>						  </font></div></td>
		<%
		   if (n mod cInt(max/3) ) = 0 and n < max then
			  Response.Write "</td><td width='100'>"
		   end if
			  n = n + 1
			wend 
		%> 
					</tr>
Eis o erro:

Objeto Response erro 'ASP 0251 : 80004005'

 

Limite do Buffer de Resposta Ultrapassado

 

/grupo_linha_result_col.asp, line 0

 

A execução da página ASP fez com que o Buffer de Resposta ultrapassasse seu limite configurado.

O que pode ser?

 

Desde já agradeço

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Posta o código inteiro dessa página.

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

Olha o código inteiro

 

e está dando o erro:

 

 

 

 

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Filtragem por Grupo de Linha</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" class="tab">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
  <%
Dim oConn 
Dim oRs
Dim filePath
Dim Referencia_anterior
Dim varHora
Dim varlinha

Dim oConn_banco
Dim oRs_banco
Dim filePath_banco
filePath_banco = Server.MapPath("\banco\net.mdb")
Set oConn_banco = Server.CreateObject("ADODB.Connection")
oConn_banco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath_banco
Set oRs_banco = Server.CreateObject("ADODB.Recordset")
Set oRs_banco = oConn_banco.Execute("select * from usuario")

if oRs_banco("banco") = "NORMAL" then
filePath = Server.MapPath("\banco\banco.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
Set oRs = Server.CreateObject("ADODB.Recordset")
Set oRs2 = Server.CreateObject("ADODB.Recordset")
varlinha   = Request.QueryString("linha")
Set oRs = oConn.Execute("SELECT HORARIO.*,LINHA.LINHA,TRAJETO.DESCR,DIA.DIA,REFERENCIA.DESCR FROM ((((HORARIO LEFT JOIN LINHA ON LINHA.CODIGO = HORARIO.COD_LINHA) LEFT JOIN TRAJETO ON TRAJETO.CODIGO = HORARIO.TRAJETO) LEFT JOIN DIA ON DIA.CODIGO = HORARIO.COD_DIA) LEFT JOIN REFERENCIA ON REFERENCIA.CODIGO = HORARIO.REFERENCIA) WHERE HORARIO.COD_LINHA = "&varlinha&"  ORDER BY HORARIO.COD_LINHA")
Set oRs2 = oConn.Execute("SELECT DISTINCT (HORARIO.CENTRO), HORARIO.CODIGO,HORARIO.COD_LINHA,HORARIO.COD_DIA,HORARIO.TRAJETO,HORARIO.REFEREN
CIA,DEFICIENTE,[AS],[ASS],[ASQS],[ATQS],[AD],[SCDSS],LINHA.LINHA,TRAJETO.DESCR,DI
A.DIA,REFERENCIA.DESCR FROM ((((HORARIO LEFT JOIN LINHA ON LINHA.CODIGO = HORARIO.COD_LINHA) LEFT JOIN TRAJETO ON TRAJETO.CODIGO = HORARIO.TRAJETO) LEFT JOIN DIA ON DIA.CODIGO = HORARIO.COD_DIA) LEFT JOIN REFERENCIA ON REFERENCIA.CODIGO = HORARIO.REFERENCIA) WHERE HORARIO.COD_LINHA = "&varlinha&" ORDER BY DIA DESC,REFERENCIA.DESCR ASC,CENTRO")
Set oRs3 = oConn.Execute("SELECT HORARIO.*,LINHA.LINHA,TRAJETO.DESCR,DIA.DIA,REFERENCIA.DESCR FROM ((((HORARIO LEFT JOIN LINHA ON LINHA.CODIGO = HORARIO.COD_LINHA) LEFT JOIN TRAJETO ON TRAJETO.CODIGO = HORARIO.TRAJETO) LEFT JOIN DIA ON DIA.CODIGO = HORARIO.COD_DIA) LEFT JOIN REFERENCIA ON REFERENCIA.CODIGO = HORARIO.REFERENCIA) WHERE HORARIO.COD_LINHA = "&varlinha&" order by trajeto")
Set oRs4 = oConn.Execute("SELECT DISTINCT (HORARIO.CENTRO), HORARIO.CODIGO,HORARIO.COD_LINHA,HORARIO.COD_DIA,HORARIO.TRAJETO,HORARIO.REFEREN
CIA,DEFICIENTE,[AS],[ASS],[ASQS],[ATQS],LINHA.LINHA,TRAJETO.DESCR,DIA.DIA,REFEREN
CIA.DESCR FROM ((((HORARIO LEFT JOIN LINHA ON LINHA.CODIGO = HORARIO.COD_LINHA) LEFT JOIN TRAJETO ON TRAJETO.CODIGO = HORARIO.TRAJETO) LEFT JOIN DIA ON DIA.CODIGO = HORARIO.COD_DIA) LEFT JOIN REFERENCIA ON REFERENCIA.CODIGO = HORARIO.REFERENCIA) WHERE HORARIO.COD_LINHA = "&varlinha&" ORDER BY DIA DESC,REFERENCIA ASC,CENTRO")
Set oRs5 = oConn.Execute("select COUNT(CODIGO) AS COD from HORARIO")
if oRs.EOF then
	response.write "<script>history.back(1);alert('Registro não encontrado.')</script>"
	response.write "<script>self.close()</script>"
end if
if oRs2.EOF then
	response.write "<script>history.back(1);alert('Registro não encontrado.')</script>"
	response.write "<script>self.close()</script>"
end if
if oRs3.EOF then
	response.write "<script>history.back(1);alert('Registro não encontrado.')</script>"
	response.write "<script>self.close()</script>"
end if

else
filePath = Server.MapPath("\banco\banco.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
Set oRs = Server.CreateObject("ADODB.Recordset")
Set oRs2 = Server.CreateObject("ADODB.Recordset")
varlinha   = Request.QueryString("linha")
Set oRs = oConn.Execute("SELECT HORARIO.*,LINHA.LINHA,TRAJETO.DESCR,DIA.DIA,REFERENCIA.DESCR FROM ((((HORARIO LEFT JOIN LINHA ON LINHA.CODIGO = HORARIO.COD_LINHA) LEFT JOIN TRAJETO ON TRAJETO.CODIGO = HORARIO.TRAJETO) LEFT JOIN DIA ON DIA.CODIGO = HORARIO.COD_DIA) LEFT JOIN REFERENCIA ON REFERENCIA.CODIGO = HORARIO.REFERENCIA) WHERE HORARIO.COD_LINHA = "&varlinha&"  ORDER BY HORARIO.COD_LINHA")
Set oRs2 = oConn.Execute("SELECT DISTINCT (HORARIO.CENTRO), HORARIO.CODIGO,HORARIO.COD_LINHA,HORARIO.COD_DIA,HORARIO.TRAJETO,HORARIO.REFEREN
CIA,DEFICIENTE,[AS],[ASS],[ASQS],[ATQS],[AD],[SCDSS],LINHA.LINHA,TRAJETO.DESCR,DI
A.DIA,REFERENCIA.DESCR FROM ((((HORARIO LEFT JOIN LINHA ON LINHA.CODIGO = HORARIO.COD_LINHA) LEFT JOIN TRAJETO ON TRAJETO.CODIGO = HORARIO.TRAJETO) LEFT JOIN DIA ON DIA.CODIGO = HORARIO.COD_DIA) LEFT JOIN REFERENCIA ON REFERENCIA.CODIGO = HORARIO.REFERENCIA) WHERE HORARIO.COD_LINHA = "&varlinha&" ORDER BY DIA DESC,REFERENCIA.DESCR ASC,CENTRO")
Set oRs3 = oConn.Execute("SELECT HORARIO.*,LINHA.LINHA,TRAJETO.DESCR,DIA.DIA,REFERENCIA.DESCR FROM ((((HORARIO LEFT JOIN LINHA ON LINHA.CODIGO = HORARIO.COD_LINHA) LEFT JOIN TRAJETO ON TRAJETO.CODIGO = HORARIO.TRAJETO) LEFT JOIN DIA ON DIA.CODIGO = HORARIO.COD_DIA) LEFT JOIN REFERENCIA ON REFERENCIA.CODIGO = HORARIO.REFERENCIA) WHERE HORARIO.COD_LINHA = "&varlinha&"")
Set oRs4 = oConn.Execute("SELECT DISTINCT (HORARIO.CENTRO), HORARIO.CODIGO,HORARIO.COD_LINHA,HORARIO.COD_DIA,HORARIO.TRAJETO,HORARIO.REFEREN
CIA,DEFICIENTE,[AS],[ASS],[ASQS],[ATQS],LINHA.LINHA,TRAJETO.DESCR,DIA.DIA,REFEREN
CIA.DESCR FROM ((((HORARIO LEFT JOIN LINHA ON LINHA.CODIGO = HORARIO.COD_LINHA) LEFT JOIN TRAJETO ON TRAJETO.CODIGO = HORARIO.TRAJETO) LEFT JOIN DIA ON DIA.CODIGO = HORARIO.COD_DIA) LEFT JOIN REFERENCIA ON REFERENCIA.CODIGO = HORARIO.REFERENCIA) WHERE HORARIO.COD_LINHA = "&varlinha&" ORDER BY DIA DESC,REFERENCIA ASC,CENTRO")
Set oRs5 = oConn.Execute("select COUNT(CODIGO) AS COD from HORARIO WHERE HORARIO.COD_LINHA = "&varlinha&"")
if oRs.EOF then
	response.write "<script>history.back(1);alert('Registro não encontrado.')</script>"
	response.write "<script>self.close()</script>"
end if
if oRs2.EOF then
	response.write "<script>history.back(1);alert('Registro não encontrado.')</script>"
	response.write "<script>self.close()</script>"
end if
if oRs3.EOF then
	response.write "<script>history.back(1);alert('Registro não encontrado.')</script>"
	response.write "<script>self.close()</script>"
end if
end if
%>
  </font><br>
  </p>
  </p>
<table width="757" height="194" align="center" cellpadding="0" cellspacing="0" background="img/fundo_col01_linha2.png" >
  <tr> 
	<td valign="top"><table width="702" border="0" align="center" cellpadding="0" cellspacing="0">
		<tr> 
		  <td> </td>
		</tr>
		<tr> 
		  <td> </td>
		</tr>
		<tr> 
		  <td> </td>
		</tr>
		<tr> 
		  <td> </td>
		</tr>
		<tr> 
		  <td> </td>
		</tr>
		<tr> 
		  <td> </td>
		</tr>
		<tr> 
		  <td> </td>
		</tr>
		<tr> 
		  <td><div align="center"><font color="#003399" size="3" face="Verdana, Arial, Helvetica, sans-serif"></font></div></td>
		</tr>
		<tr> 
		  <td><div align="right"><font color="#006699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><img src="img/print.jpg" width="36" height="36" onClick="DoPrinting()" title="Imprimir horário"></strong></font></div></td>
		</tr>
	  </table> </td>
  </tr>
</table>
<table width="757" border="0" align="center" cellpadding="0" cellspacing="0" background="img/fundo_col02.png">
  <tr> 
	<td><div align="center"><font color="#003399" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>GRUPO 
		<% Response.Write oRs("LINHA")%>
		</strong></font></div></td>
  </tr>
</table>

<table width="757" align="center" cellpadding="0" cellspacing="0" background="img/fundo_col02.png">
  <tr> 
	<td><table width="702" align="center" cellpadding="0" cellspacing="0" class="edittab">
		<tr valign="top"> 
		  <td width="555" height="144"> <table width="702" align="center" cellpadding="0" cellspacing="2">
			  <!-- Parte Modificada -->
			  <% 
	 'Define a quantidade máxima de linhas por coluna
	 maxLinhas = 25
	 Do While Not oRs2.EOF
	 %>
			  <tr> 
				<td> 
				  <%
 Dim trajeto_anterior   
 DO while not oRs3.eof%>
				  <%
  if (oRs3("TRAJETO") <> trajeto_anterior) then
	trajeto_anterior = oRs3("TRAJETO")
	%>
				  <font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
				  <BR>
				  <% 'Response.Write (right("0" & oRs3("TRAJETO"),3))%>
				  <%=oRs3("TRAJETO.DESCR")%> 
				  <%END IF%>
				  <% 
		oRs3.movenext
		LOOP
		 %>
				  </font> </td>
			  </tr>
			  <tr> 
				<td bgcolor="#B7B7B7" class="tab"> <div align="center"><font color="#006699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong> 
					</strong></font><font color="#006699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><%= oRs2("DIA") %></strong></font></div></td>
			  </tr>
			  <tr> 
				<td bgcolor="#E8FAFF" class="tab"> <div align="center"><font color="#006699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><%= oRs2("REFERENCIA.DESCR") %></strong></font><font color="#006699" size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></div></td>
			  </tr>
			  <tr> 
				<td valign="top"> 
				  <%
		  Referencia_atual = oRs2("REFERENCIA")
		  Referencia_anterior = oRs2("REFERENCIA")	   
		  
		  Do While (Referencia_atual = Referencia_anterior) And (Not oRs2.EOF)

			  'Contador de linhas exibidas
			  linha = 1			 
		 %>
				  <table width="70" align="left" cellpadding="1" cellspacing="2" class="tab">
					<tr class="tab"> 
					  <td > </td>
					  <td class="tab"><div align="center"><strong><font color="#006699" size="1" face="Verdana, Arial, Helvetica, sans-serif"> Horário </font></strong></div></td>
					  <td class="tab"><div align="center"><strong><font color="#006699" size="1" face="Verdana, Arial, Helvetica, sans-serif"> Linha </font></strong></div></td>
					</tr>
					<%  
			  Do While (linha <= maxLinhas) And (Referencia_atual = Referencia_anterior) And (Not oRs2.EOF)
		 %>
					<tr> 
					  <td><div align="center" ><font size="1" face="Verdana, Arial, Helvetica, sans-serif">  </font></div></td>
		<%
			n 	= 1
			max = oRs("cod") ' muda esse valor
			
			
		do while not oRs2.eof
		
		%>
			<%'=n%><br />
		<%=oRs2("centro")%>			
		<%
		   
			if (n mod cInt(max/3) ) = 0 and n < max then
				Response.Write "</td><td width='100'>"  
			end if

		n = n + 1

		oRs2.movenext	
		loop 
		%>

					  <td class="tab"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><% Response.Write (right("0" & oRs2("TRAJETO"),3))%>						  </font></div></td>
					</tr>
					<%  
				  oRs2.movenext
				If Not oRs2.EOF Then
					linha = linha + 1
					Referencia_atual = oRs2("REFERENCIA")
				End If
			  Loop
		 %>
				  </table>
				  <%
		  Loop
		 %>
				</td>
				<%	  
	  Loop
	  %>
				<!-- Fim da Parte Modificada -->
			</table>
			<br></td>
		</tr>
	  </table>
	  <table width="702" border="0" align="center" cellpadding="0" cellspacing="0">
		<tr> 
		  <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>
		</tr>
		<%
' Dim trajeto_anterior   
' DO while not oRs3.eof%>
		<%
'  if (oRs3("TRAJETO") <> trajeto_anterior) then
 '   trajeto_anterior = oRs3("TRAJETO")
	%>
		<tr> 
		  <td> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
			<% 'Response.Write (right("0" & oRs3("TRAJETO"),3))%>
			<%'=oRs3("TRAJETO.DESCR")%>
			<%'END IF%>
			<% 
		'oRs3.movenext
		'LOOP
		 %>
			</font> </td>
		</tr>
		<tr> 
		  <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img src="img/cadeirante.jpg" width="10" height="10"> 
			= Ônibus com elevador </font> </td>
		</tr>
		<tr> 
		  <td valign="middle"><font size="2" face="Arial, Helvetica, sans-serif"><img src="img/img_as.jpg" width="21" height="21">  Apenas 
			às Sextas - feiras </font></td>
		</tr>
		<tr> 
		  <td valign="middle"><font size="2" face="Arial, Helvetica, sans-serif"><img src="img/img_ass.jpg" width="21" height="21">  Apenas 
			às Segundas e Sextas - feiras</font></td>
		</tr>
		<tr> 
		  <td valign="middle"><font size="2" face="Arial, Helvetica, sans-serif"><img src="img/img_asqs.jpg" width="21" height="21">  Apenas 
			às Segundas e Quartas - Feiras.</font></td>
		</tr>
		<tr> 
		  <td valign="middle"><font size="2" face="Arial, Helvetica, sans-serif"><img src="img/img_atqs.jpg" width="21" height="21">  Apenas 
			às Terças, Quintas e Sextas - feiras</font></td>
		</tr>
		<tr> 
		  <td valign="middle"><font size="2" face="Arial, Helvetica, sans-serif"><img src="img/img_ad.jpg" width="21" height="21">  Apenas 
			Domingos</font></td>
		</tr>
		<tr> 
		  <td valign="middle"><font size="2" face="Arial, Helvetica, sans-serif"><img src="img/img_scdss.jpg" width="21" height="21">  Às 
			Segundas e Sextas - feitas viagens para linha 101 - Luiz Iglesias/Córrego 
			Dantas com retorno às 08:05 e 15:00 hs</font></td>
		</tr>
	  </table>
	  <table width="650" align="center" cellpadding="0" cellspacing="0">
		<tr> 
		  <td> </td>
		</tr>
		<tr> 
	  </table></td>
  </tr>
</table>
<br>
</body>
</html>
<%
oRs.Close 
oRs2.Close 
oConn.Close 
Set oRs = Nothing 
Set oRs2 = Nothing 
Set oConn = Nothing 
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você colocou

Response.Buffer = True

 

Conforme foi sugerido?

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