Exportação para arquivo.xls

valterjrs · Abril 2, 2008

Boa Tarde pessoal,

Estou com o seguinte problema, tenho um sistema que tem um banco de dados com 628 registros e quando mando a página exportar os dados ele começa somente a exportar do registro 218 em diante, o que pode ta acontecendo ??

exp_chamados.asp

<style type="text/css">
<!--
.style6 {color: #000000; font-weight: bold; }
.style7 {color: #000000}
.titulo {	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 12px;
	font-style: normal;
	line-height: normal;
	font-weight: 800;
	font-variant: normal;
	color: #0066CC;
}
.style1 {	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
}
-->
</style>
<p>
  <%
'***Declarando Conexões com Banco de Dados***
Set Conn = Server.CreateObject("AdoDb.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.connectionstring=Server.Mappath("Dados/os.mdb")
Conn.open

'***Pesquisando todos os registros gravados na tabela chamado***
SQL = "SELECT * FROM os "
Set RS = Conn.Execute(SQL)
If RS.EOF then
%>
</p>
<table width="909" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td width="216" align="center" height="24"><div align="center"><font size="2" face="Tahoma, Comic Sans MS" class="titulo">Não 
	  existem dados cadastrados! </font></div></td>
  </tr>
</table>
<div align="center"></div>
<div align="left">
<%
Else
%>
  <br>
  <span class="style1"></span></div>
<table width="1871" border="0" align="center">
  <tr bgcolor="#999999"> 
	<td width="3%" height="23"> <div align="center" class="style6 style7"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS"><strong>Número 
		OS</strong></font></div></td>
	<td width="2%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">REOP</font></div></td>
	<td width="3%" height="23"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">Endereço</font></div></td>
	<td width="2%" height="23"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">Bairro</font></div></td>
	<td width="3%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">Municipio 
		</font></div></td>
	<td width="1%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">UF</font></div></td>
	<td width="4%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">UsuarioECT</font></div></td>
	<td width="6%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">MatriculaUsuario</font></div></td>
	<td width="3%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">Agencia 
		</font></div></td>
	<td width="2%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">Fone 
		</font></div></td>
	<td width="7%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">NumeroHelpdesk 
		</font></div></td>
	<td width="4%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">NumeroERP 
		</font></div></td>
	<td width="1%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">Pib 
		</font></div></td>
	<td width="5%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">NumeroSerie 
		</font></div></td>
	<td width="5%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">Equipamento 
		</font></div></td>
	<td width="2%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">Marca 
		</font></div></td>
	<td width="3%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">Modelo 
		</font></div></td>
	<td width="8%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">DataeHoraAbertura 
		</font></div></td>
	<td width="4%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">Descricao 
		</font></div></td>
	<td width="8%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">SituacaoDoChamado 
		</font></div></td>
	<td width="8%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">NomeTecnico 
		</font></div></td>
	<td width="8%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">DataeHoraAtendimento 
		</font></div></td>
	<td width="8%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">DataeHoraConclusao 
		</font></div></td>
	<td width="4%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">PecaAplicada 
		</font></div></td>
	<td width="4%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">QtdePeca 
		</font></div></td>
	<td width="2%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">ClienteRAT 
		</font></div></td>
	<td width="2%"> <div align="center" class="style6"><font color="#FFFFFF" size="1" face="Tahoma, Comic Sans MS">DescricaoAtendimento 
		</font></div></td>
  </tr>
  <!--	</table>-->
  <%
	Do Until RS.EOF
		'para mudar de cor a cada nova célula
		If locCor = "#FFFFCC" then
			locCor = "#FFFFFF"
		else
			locCor = "#FFFFCC"
		end if
%>
  <tr bgcolor=<%=locCor %>> 
	<td width="3%"><div align="center"> <font face="Tahoma, Comic Sans MS" color="#000000" size="1"> 
		<%= RS("numero")%></font></div></td>
	<td width="2%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("REOP")%></font></div></td>
	<td width="3%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("endereco")%></font></div></td>
	<td width="2%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("Bairro")%></font></div></td>
	<td width="3%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("Municipio")%></font></div></td>
	<td width="1%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("UF")%></font></div></td>
	<td width="4%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("UsuarioECT")%></font></div></td>
	<td width="6%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("MatriculaUsuario")%></font></div></td>
	<td width="3%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("Agencia")%></font></div></td>
	<td width="2%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("Fone")%></font></div></td>
	<td width="7%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("NumeroHelpdesk")%></font></div></td>
	<td width="4%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("NumeroERP")%></font></div></td>
	<td width="1%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("Pib")%></font></div></td>
	<td width="5%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("NumeroSerie")%></font></div></td>
	<td width="5%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("Equipamento")%></font></div></td>
	<td width="2%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("Marca")%></font></div></td>
	<td width="3%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("Modelo")%></font></div></td>
	<td width="8%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("DataeHoraAbertura")%></font></div></td>
	<td width="4%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("Descricao")%></font></div></td>
	<td width="8%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("SituacaoDoChamado")%></font></div></td>
	<td width="8%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("NomeTecnico")%></font></div></td>
	<td width="8%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("DataeHoraAtendimento")%></font></div></td>
	<td width="8%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("DataeHoraConclusao")%></font></div></td>
	<td width="0%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("PecaAplicada")%></font></div></td>
	<td width="0%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("QtdePeca")%></font></div></td>
	<td width="0%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("ClienteRAT")%></font></div></td>
	<td width="0%"><div align="center"><font face="Tahoma, Comic Sans MS" color="#000000" size="1"><%= RS("DescricaoAtendimento")%></font></div></td>
  </tr>
  <%
		RS.MoveNext
	Loop
end If
RS.Close	
Conn.Close

%>
</table>
<br>
<%Response.ContentType = "application/vnd.ms-excel" 
Response.AddHeader "Content-Disposition", "attachment;filename=Planilha.xls"%>

Ted k' · Abril 2, 2008

coloque assim no loop:

Do while not RS.EOF

não sei se interfere mais sempre coloquei o Response.ContentType e cima, nunca em baixo!!

valterjrs · Abril 8, 2008

Ted

Troquei o Response.ContentType pro inicio e tb coloquei o Do while not RS.EOF no Loop + não resolveu, + alguma dica kr ??

At.

Valter Jr.

Ewerton93 · Abril 9, 2008

Ted

Troquei o Response.ContentType pro inicio e tb coloquei o Do while not RS.EOF no Loop + não resolveu, + alguma dica kr ??

At.

Valter Jr.

da uma olha nesse tutorial

Tutorial

valterjrs · Abril 9, 2008

Valeu pela a ajuda Ewerton e Ted pela ajuda, agora so consegui resolver o problema acrescentando a ordenação conforme abaixo

SQL = "SELECT * FROM os ORDER BY Numero ASC"

At.

Valter Júnior

Entrar

Arquivado

Exportação para arquivo.xls

Recommended Posts

valterjrs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

valterjrs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ewerton93 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

valterjrs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante