Exportar resultado da pesquisa para excel

gabrielsor · Junho 8, 2010

Pessoal, óia eu aqui de novo enchendo o saco...=P

É o seguinte...tenho uma página aonde é realizada uma pesquisa e ela é exibida em uma tabela...o problema é que to tentando exportar essa tabela para excel e não tem jeito de funcionar...já pesquisei vááários códigos aqui no forum e já tentei de todos os jeitos possíveis e não da certo...vou postar o código da página de pesquisa e quem puder me ajudar a criar esse botão que exporta a tabela pra excel...

Aqui vai o código:

Não reparem na bagunça do código...fiz na pressa...=P

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="verifica.asp"-->
<!--#include file="topo.asp"-->
<!--#include file="procurar.asp"-->

<html>

<head>
<style type="text/css">
<!--
.style6 {color: #333333}
a:link {
	color: #333333;
	text-decoration: none;
}
a:visited {
	color: #333333;
	text-decoration: none;
}
a:hover {
	color: #FF0000;
	text-decoration: none;
}
a:active {
	color: #FF0000;
	text-decoration: none;
}
a {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 12px;
	font-weight: bold;
}
.style13 {font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; color: #666666; font-weight: bold; }
.style28 {font-size: 10px; color: #FFFFFF; font-weight: bold; font-family: Verdana, Arial, Helvetica, sans-serif; }
.style32 {
	color: #990000;
	font-size: 12px;
	font-weight: bold;
	font-family: Verdana, Arial, Helvetica, sans-serif;
}
.style33 {color: #FF0000}
.style34 {color: #0000CC}
.style35 {
	font-size: 9px;
	color: #990000;
}
-->
</style>
<title>Visualisar Entrada</title>

</head>

<body>
<p> </p>
<p>
  <%

Dim Sql




Set BdWeb = Server.CreateObject("ADODB.Connection")
BdWeb.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\banco.mdb")
Sql = "SELECT * FROM Cadastro"

If not request.form("referencia")="" then
	Sql = Sql & " WHERE autonum Like '" & Request.Form("referencia") & "' "
end if

If not request.form("fabricacao")="" then
	Sql = Sql & " WHERE fabricacao Like '" & Request.Form("fabricacao") & "' "
end if

If not request.form("empresa")="" then
	Sql = Sql & " WHERE empresa Like '%" & Request.Form("empresa") & "%' "
end if

If not request.form("patrimonio")="" then
	Sql = Sql & " WHERE patrimonio Like '%" & Request.Form("patrimonio") & "%' "
end if

If not request.form("nota")="" then
	Sql = Sql & " WHERE nota Like '%" & Request.Form("nota") & "%' "
end if

If not request.form("instrumento")="" then
	Sql = Sql & " WHERE instrumento Like '%" & Request.Form("instrumento") & "%' "
end if

If Request.Form("mes") = 01 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If

If Request.Form("mes") = 02 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If
   
If Request.Form("mes") = 03 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If
   
If Request.Form("mes") = 04 Then
Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If
   
If Request.Form("mes") = 05 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If
   
If Request.Form("mes") = 06 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If

If Request.Form("mes") = 07 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If
   
If Request.Form("mes") = 08 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
 End If

If Request.Form("mes") = 09 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If

If Request.Form("mes") = 10 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If
   
If Request.Form("mes") = 11 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If

   

Set objRS = Server.CreateObject("ADODB.Recordset")

   objRS.Open Sql, BdWeb, 3


%>
  
  <%

   If objRS.BOF and objRS.EOF Then%>
  
  <b><font face="Verdana, Arial, Helvetica, sans-serif" size="-2">
  <% response.write ("Não foram encontrados registros") %>
  </b></p>
<%Else%>

    <%If Not objRS.BOF Then%>

<table width="951" border="0" align="center">

  <tr>
    <td width="974" height="65"><form name="form2" method="get" action="altera.asp">
      <table width="1450" height="63" border="0" align="left" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
        <tr bgcolor="#FF6600">
          <td width="100" height="2" align="center" bgcolor="#CC0000"><div align="center"><span class="style28">Ref</span></div></td>
          <td width="100" height="2" align="center" bgcolor="#CC0000"><div align="center" class="style28">
            <div align="center">Data</div>
          </div></td>
          <td width="100" align="center" bgcolor="#CC0000"><div align="center" class="style28">
            <div align="center">Empresa</div>
          </div></td>
          <td width="100" height="2" align="center" bgcolor="#CC0000"><p align="center" class="style28">Nota  </td>
          <td width="100" align="center" bgcolor="#CC0000"><div align="center" class="style28">
            <div align="center">Instrumento</div>
          </div></td>
          <td width="100" align="center" bgcolor="#CC0000"><div align="center"><span class="style28">Marca</span></div></td>
          <td width="100" align="center" bgcolor="#CC0000"><div align="center"><span class="style28">
            Capacidade
          </span></div></td>
          <td width="100" align="center" bgcolor="#CC0000"><div align="center" class="style28">Modelo</div></td>
          <td width="100" align="center" bgcolor="#CC0000"><div align="center" class="style28">Nº Fabricação </div></td>
          <td width="100" align="center" bgcolor="#CC0000"><div align="center"><span class="style28">Patrimônio</span></div></td>
          <td width="100" align="center" bgcolor="#CC0000"><div align="center"><span class="style28">Acessório</span></div></td>
          <td width="100" align="center" bgcolor="#CC0000"><div align="center" class="style28">Valor Unitário </div></td>
          <td width="100" align="center" bgcolor="#CC0000"><div align="center" class="style28">Contato</div></td>
          <td width="55" align="center" bgcolor="#CC0000"><div align="center"><span class="style28"><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
            <input type="submit" name="Submit" value="Alterar">
          </font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></span></div></td>
          <td width="49" align="center" bgcolor="#CC0000"> </td>
        </tr>

    <%Do While Not objRS.EOF%>

	        <tr bgcolor="#FFFFE6">
          <td width="100" height="2" align="center" bgcolor="#EAEAEA"><div align="left" class="style13">
            <div align="center" class="style34"><span class="style33">
            <%Response.write objRS("autonum")%>
            </span></div>
          </div></td>
          <td width="100" height="2" align="center" bgcolor="#EAEAEA"> <div align="left" class="style13">
             <div align="center">
              <%Response.write objRS("ddata")%>
            </div>
          </div></td>
          <td width="100" align="center" bgcolor="#EAEAEA"> <div align="left" class="style13"> 
            <div align="center">
              <%Response.write objRS("empresa")%>
</div>
          </div></td>
          <td width="100" height="2" align="center" bgcolor="#EAEAEA" class="style6"> <div align="left" class="style13">
            <div align="center">
              <%Response.write objRS("nota")%>
            </div>
          </div></td>
          <td width="100" align="center" bordercolor="#FF0000" bgcolor="#EAEAEA"> <div align="left" class="style13">
            <div align="center">
              <%Response.write objRS("instrumento")%>
            </div>
          </div></td>
          <td width="100" align="center" bgcolor="#EAEAEA"> 
		    <div align="center" class="style13">
		      <%Response.write objRS("marca")%>
		    </div></td>
          <td width="100" align="center" bgcolor="#EAEAEA"> <div align="center" class="style13">
            <%Response.write objRS("capacidade")%>
          </div></td>
          <td width="100" align="center" bgcolor="#EAEAEA"> <div align="center" class="style13">
            <%Response.write objRS("modelo")%>
          </div></td>
          <td width="100" align="center" bgcolor="#EAEAEA"><div align="center"><span class="style13">
             <%Response.write objRS("fabricacao")%>
             </span></div></td>
          <td width="100" align="center" bgcolor="#EAEAEA"><div align="center"><span class="style13">
             <%Response.write objRS("patrimonio")%>
          </span></div></td>
          <td width="100" align="center" bgcolor="#EAEAEA"><div align="center"><span class="style13">
             <%Response.write objRS("acessorio")%>
          </span></div></td>
          <td width="100" align="center" bgcolor="#EAEAEA"> <div align="center"><span class="style13">
          <%Response.write objRS("vunitario")%>
          <input type="hidden" name="autonum" value="<%=objRS("autonum")%>">
          </span></div></td>
          <td width="100" align="center" bgcolor="#EAEAEA"> <div align="center"><span class="style13">
            <%Response.write objRS("contato")%>
          </span></div></td>
          <td width="55" align="center" valign="middle" bgcolor="#EAEAEA"><div align="center"><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
            <input type="radio" name="radio" value="<%=objRS(0)%>">
          </font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></div></td>
          <td width="49" align="center" valign="baseline" bgcolor="#EAEAEA"><div align="center">
            <div align="center"><b><b><b><b><font face="Verdana, Arial, Helvetica, sans-serif">
			
			<a href="excluir.asp?autonum=<%=objRS("autonum")%>" class="style35"></a></font></b></b></b></b></div>
            <span class="style13"> </span></div></td>
        </tr>

	
	<% objRS.MoveNext

    Loop%>


   </table>

<%End If%>

<%End If%>
    <%

objRS.Close

BdWeb.Close

%>
    
</body>

</html>

bom é isso ai galera...espero que alguém possa me ajudar...

Vlwww :D

xanburzum · Junho 8, 2010

olha este exemplo simples:

<%
Response.ContentType = "application/vnd.ms-excel"

set objconn=server.createobject("adodb.connection")

connpath= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\banco.mdb"
objconn.Open connpath

set objrs=objconn.execute("select * from produtos where id < 20 ")

%>
<TABLE BORDER=1>
<TR>
<%
'Percorre cada campo e imprime o nome dos campos da tabela
For i = 0 to objrs.fields.count - 1
%>
<TD><% = objrs(i).name %></TD>
<% next %>
</TR>
<%

'Percorre cada linha e exibe cada campo da tabela

while not objrs.eof
%>
<TR>
<% For i = 0 to objrs.fields.count - 1
%>
<TD VALIGN=TOP><% = objrs(i) %></TD>
<% Next %>
</TR>
<%
objrs.MoveNext

wend

objrs.Close
objconn.close
%>
</TABLE>

gabrielsor · Junho 8, 2010

olha este exemplo simples:

<%
Response.ContentType = "application/vnd.ms-excel"

set objconn=server.createobject("adodb.connection")

connpath= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\banco.mdb"
objconn.Open connpath

set objrs=objconn.execute("select * from produtos where id < 20 ")

%>
<TABLE BORDER=1>
<TR>
<%
'Percorre cada campo e imprime o nome dos campos da tabela
For i = 0 to objrs.fields.count - 1
%>
<TD><% = objrs(i).name %></TD>
<% next %>
</TR>
<%

'Percorre cada linha e exibe cada campo da tabela

while not objrs.eof
%>
<TR>
<% For i = 0 to objrs.fields.count - 1
%>
<TD VALIGN=TOP><% = objrs(i) %></TD>
<% Next %>
</TR>
<%
objrs.MoveNext

wend

objrs.Close
objconn.close
%>
</TABLE>

xanburzum, já tinha visto um código muito parecido com esse, consegui fazer funcionar, porém não consegui aplicar na minha página, e com esse código ele já faz a pesquisa e automaticamente cria o excel, no meu caso eu preciso que ele exiba a tabela, como já está fazendo, e que crie um botão para exportar a tabela já criada para o excel...já tentei de tdo que foi jeito e não funciona... :(

xanburzum · Junho 8, 2010

existem outros exemplos no fórum pode te ajudar

Ted k' · Junho 9, 2010

Porque não tem jeito? como está fazendo?

Não tem ciência o codigo é esse:

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

agora o CSS tem que ser inline, melhor... dentro da <table...

gabrielsor · Junho 28, 2010

Porque não tem jeito? como está fazendo?

Não tem ciência o codigo é esse:
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment;filename=Planilha.xls"
agora o CSS tem que ser inline, melhor... dentro da <table...

Ted K, depois de tanto tempo tentando, tentando e tentando...eu nao consegui ainda... :(

eis o código da minha página que faz as consultas e exibe o resultado na tabela. [página atualizada]

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="verifica.asp"-->
<!--#include file="topo.asp"-->
<!--#include file="procurar.asp"-->

<html>

<head>
<style type="text/css">
<!--
.style6 {color: #333333}
a:link {
	color: #333333;
	text-decoration: none;
}
a:visited {
	color: #333333;
	text-decoration: none;
}
a:hover {
	color: #FF0000;
	text-decoration: none;
}
a:active {
	color: #FF0000;
	text-decoration: none;
}
a {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 12px;
	font-weight: bold;
}
.style13 {font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; color: #666666; font-weight: bold; }
.style28 {font-size: 10px; color: #FFFFFF; font-weight: bold; font-family: Verdana, Arial, Helvetica, sans-serif; }
.style32 {
	color: #990000;
	font-size: 12px;
	font-weight: bold;
	font-family: Verdana, Arial, Helvetica, sans-serif;
}
.style33 {color: #FF0000}
.style34 {color: #0000CC}
.style35 {
	font-size: 9px;
	color: #990000;
}
-->
</style>
<title>Visualisar Entrada</title>

</head>

<body>
<p><a href="menu.asp">[Voltar Para o Menú]</a></p>
<p>
  <%

Dim Sql




Set BdWeb = Server.CreateObject("ADODB.Connection")
BdWeb.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/banco.mdb")
Sql = "SELECT * FROM Cadastro"

If not request.form("referencia")="" then
	Sql = Sql & " WHERE autonum Like '" & Request.Form("referencia") & "' "
end if

If not request.form("fabricacao")="" then
	Sql = Sql & " WHERE fabricacao Like '" & Request.Form("fabricacao") & "' "
end if

If not request.form("empresa")="" then
	Sql = Sql & " WHERE empresa Like '%" & Request.Form("empresa") & "%' "
end if

If not request.form("patrimonio")="" then
	Sql = Sql & " WHERE patrimonio Like '%" & Request.Form("patrimonio") & "%' "
end if

If not request.form("nota")="" then
	Sql = Sql & " WHERE nota Like '%" & Request.Form("nota") & "%' "
end if

If not request.form("instrumento")="" then
	Sql = Sql & " WHERE instrumento Like '%" & Request.Form("instrumento") & "%' "
end if

If Request.Form("mes") = 01 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If

If Request.Form("mes") = 02 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If
   
If Request.Form("mes") = 03 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If
   
If Request.Form("mes") = 04 Then
Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If
   
If Request.Form("mes") = 05 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If
   
If Request.Form("mes") = 06 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If

If Request.Form("mes") = 07 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If
   
If Request.Form("mes") = 08 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
 End If

If Request.Form("mes") = 09 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If

If Request.Form("mes") = 10 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If
   
If Request.Form("mes") = 11 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If

If Request.Form("mes") = 12 Then
	Sql = Sql & " WHERE mes Like '%" & Request.Form("mes") & "%' and ano LIKE '%" & Request.Form("ano") & "%'"
End If   

Set objRS = Server.CreateObject("ADODB.Recordset")

   objRS.Open Sql, BdWeb, 3


%>
  
  <%

   If objRS.BOF and objRS.EOF Then%>
  
  <b><font face="Verdana, Arial, Helvetica, sans-serif" size="-2">
  <% response.write ("Não foram encontrados registros") %>
  </b></p>
<%Else%>

    <%If Not objRS.BOF Then%>

<table width="1079" border="0" align="center">

<tr>
[b]<p><a href="xlsexibe.asp"><img src="excel.png" width="25" height="25" border="0"></p>[/b]

  <tr>
      <td width="73" height="65">
	  <form name="form2" method="get" action="altera.asp">
        <table width="1193" height="63" border="0" align="left" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
          <tr bgcolor="#FF6600">
            <td width="100" height="2" align="center" bgcolor="#CC0000"><div align="center"><span class="style28">Ref</span></div></td>
              <td width="71" height="2" align="center" bgcolor="#CC0000"><div align="center" class="style28">
                <div align="center">Data</div>
              </div></td>
              <td width="50" align="center" bgcolor="#CC0000"><div align="center" class="style28">
                <div align="center">Empresa</div>
              </div></td>
              <td width="50" height="2" align="center" bgcolor="#CC0000"><p align="center" class="style28">Nota  </td>
              <td width="101" align="center" bgcolor="#CC0000"><div align="center" class="style28">
                <div align="center">Instrumento</div>
              </div></td>
              <td width="54" align="center" bgcolor="#CC0000"><div align="center"><span class="style28">Marca</span></div></td>
              <td width="95" align="center" bgcolor="#CC0000"><div align="center"><span class="style28"> Capacidade </span></div></td>
              <td width="62" align="center" bgcolor="#CC0000"><div align="center" class="style28">Modelo</div></td>
              <td width="92" align="center" bgcolor="#CC0000"><div align="center" class="style28">Nº Fabricação </div></td>
              <td width="89" align="center" bgcolor="#CC0000"><div align="center"><span class="style28">Patrimônio</span></div></td>
              <td width="81" align="center" bgcolor="#CC0000"><div align="center"><span class="style28">Acessório</span></div></td>
              <td width="71" align="center" bgcolor="#CC0000"><div align="center" class="style28">Valor Unitário </div></td>
              <td width="67" align="center" bgcolor="#CC0000"><div align="center" class="style28">Contato</div></td>
              <td width="75" align="center" bgcolor="#CC0000"><div align="center" class="style28">Obs.</div></td>
              <td width="89" align="center" bgcolor="#CC0000"><label><span class="style28"><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
                <input type="submit" name="Submit" value="Alterar">
                </font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></span></label></td>
          </tr>
          <%Do While Not objRS.EOF%>
          <tr bgcolor="#FFFFE6">
            <td width="100" height="2" align="center" bgcolor="#EAEAEA"><div align="left" class="style13">
              <div align="center" class="style34"><span class="style33">
                <%Response.write objRS("autonum")%>
                </span></div>
              </div></td>
              <td width="71" height="2" align="center" bgcolor="#EAEAEA"><div align="left" class="style13">
                <div align="center">
                  <%Response.write objRS("ddata")%>
                </div>
              </div></td>
              <td width="50" align="center" bgcolor="#EAEAEA"><div align="left" class="style13">
                <div align="center">
                  <%Response.write objRS("empresa")%>
                </div>
              </div></td>
              <td width="50" height="2" align="center" bgcolor="#EAEAEA" class="style6"><div align="left" class="style13">
                <div align="center">
                  <%Response.write objRS("nota")%>
                </div>
              </div></td>
              <td width="101" align="center" bordercolor="#FF0000" bgcolor="#EAEAEA"><div align="left" class="style13">
                <div align="center">
                  <%Response.write objRS("instrumento")%>
                </div>
              </div></td>
              <td width="54" align="center" bgcolor="#EAEAEA"><div align="center" class="style13">
                <%Response.write objRS("marca")%>
                </div></td>
              <td width="95" align="center" bgcolor="#EAEAEA"><div align="center" class="style13">
                <%Response.write objRS("capacidade")%>
                </div></td>
              <td width="62" align="center" bgcolor="#EAEAEA"><div align="center" class="style13">
                <%Response.write objRS("modelo")%>
                </div></td>
              <td width="92" align="center" bgcolor="#EAEAEA"><div align="center"><span class="style13">
                <%Response.write objRS("fabricacao")%>
                 </span></div></td>
              <td width="89" align="center" bgcolor="#EAEAEA"><div align="center"><span class="style13">
                <%Response.write objRS("patrimonio")%>
                </span></div></td>
              <td width="81" align="center" bgcolor="#EAEAEA"><div align="center"><span class="style13">
                <%Response.write objRS("acessorio")%>
                </span></div></td>
              <td width="71" align="center" bgcolor="#EAEAEA"><div align="center"><span class="style13">
                <%Response.write objRS("vunitario")%>
                <input type="hidden" name="autonum" value="<%=objRS("autonum")%>">
                </span></div></td>
              <td width="67" align="center" bgcolor="#EAEAEA"><div align="center"><span class="style13">
                <%Response.write objRS("contato")%>
                </span></div></td>
              <td width="75" align="center" valign="middle" bgcolor="#EAEAEA"><div align="center"><span class="style13">
                <%Response.write objRS("obs")%>
                </span></div></td>
              <td width="89" align="center" valign="baseline" bgcolor="#EAEAEA"><div align="center"><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
                <input type="radio" name="radio" value="<%=objRS(0)%>">
                </font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></div>            
              <label></label></td>
          </tr>
          <% objRS.MoveNext 
		  Loop%>
        </table>
              </form>
        <p> </p>
        <p>
          <%End If%>
          
          <%End If%>
          <%

objRS.Close

BdWeb.Close

%>
  </p>
        <p>       </p>
</body>

</html>

existe um link "exportar para excel" que deveria abrir o arquivo porém nao sei o que colocar na página para que isso aconteça, tentei utilizar o code que você postou mas ele ao abrir a pagina já abre automaticamente o excel e vazio, estou precisando muitooo disso e ja tentei de tudo e nao estou conseguindo...

espero que me ajude...

xanburzum · Junho 28, 2010

ele esta gerando algum erro ???

aquele código que postei funciona normal...

Coloque este código no início da página que apresenta os dados e o resultado da página será exibido na planilha em Excel:

Response.ContentType="application/vnd.ms-excel"
response.AddHeader "content-disposition", "inline; filename=seu_arquivo.xls"

gabrielsor · Junho 28, 2010

ele esta gerando algum erro ???

Nenhum, apenas abre um excel em branco e a página que mostra os resultados da consulta não abre, fica parado na página de menu...preciso que essa página de consulta abra pois nela existem vários filtros de pesquisa que podem ser aplicados e a partir do resultado dessas pesquisas dar a opção de gerar ou nao um excel...

xanburzum · Junho 28, 2010

tenta um teste simples, como aquele que postei acima, onde eu coloco o ContentType para "application/vnd.ms-excel"

crio a conexão, abro o bd, faço uma consulta e depois atribuo o resultado do SQL na TABLE faço um loop e exibo nela,

e verifique como esta saindo seus dados, dá um response.write na sua string SQL para ver o que esta sendo passado...

gabrielsor · Junho 28, 2010

tenta um teste simples, como aquele que postei acima, onde eu coloco o ContentType para "application/vnd.ms-excel"

crio a conexão, abro o bd, faço uma consulta e depois atribuo o resultado do SQL na TABLE faço um loop e exibo nela,

e verifique como esta saindo seus dados, dá um response.write na sua string SQL para ver o que esta sendo passado...

Isso seria um teste para ver se a pesquisa esta sendo feita corretamente?

http://img411.imageshack.us/i/33984218.jpg/

uma imagem da pagina de pesquisa, só para ficar mais claro o que eu preciso fazer...

DSerma · Junho 28, 2010

Segue um código que usso aki para exportar para o Excel..... basta você adaptar para as suas necessidades..

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Response.Charset="ISO-8859-1" %>
<!--#include file="conexao/conexao.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>

<body>

<%

sql = "SELECT * FROM tinscricao ORDER BY data DESC"
Set Rs = Conexao.Execute(SQL)

arquivo_excel= "Inscricoes.xls"
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath("arquivos/" & arquivo_excel), true)
act.WriteLine("<html><body>")
act.WriteLine("<table border=""1"">")
act.WriteLine("<tr bgcolor=""#C0C0C0"">")
act.WriteLine("<th nowrap>Curso</th>")
act.WriteLine("<th nowrap>Data</th>")
act.WriteLine("<th nowrap>Nome</th>")
act.WriteLine("<th nowrap>Endereço</th>")
act.WriteLine("<th nowrap>Bairro</th>")
act.WriteLine("<th nowrap>Cidade</th>")
act.WriteLine("<th nowrap>Estado</th>")
act.WriteLine("<th nowrap>Celular</th>")
act.WriteLine("<th nowrap>Telefone</th>")
act.WriteLine("<th nowrap>E-mail</th>")
act.WriteLine("<th nowrap>Mensagem</th>")


act.WriteLine("</tr>")

While NOT Rs.EOF

Act.WriteLine("<tr>")
act.WriteLine("<td align=""left"">"& rs("curso") & "</td>")
act.WriteLine("<td align=""left"">"& rs("data") & "</td>")
act.WriteLine("<td align=""left"">"& rs("nome") & "</td>")
act.WriteLine("<td align=""left"">"& rs("endereco") & "</td>")
act.WriteLine("<td align=""left"">"& rs("bairro") & "</td>")
act.WriteLine("<td align=""left"">"& rs("cidade") & "</td>")
act.WriteLine("<td align=""left"">"& rs("estado") & "</td>")
act.WriteLine("<td align=""left"">"& rs("celular") & "</td>")
act.WriteLine("<td align=""left"">"& rs("telefone") & "</td>")
act.WriteLine("<td align=""left"">"& rs("email") & "</td>")
act.WriteLine("<td align=""left"">"& rs("mensagem") & "</td>")

act.WriteLine("</tr>")

rs.movenext
Wend

act.WriteLine("</table></body></html>")

act.close
%>
<script>
	alert("Arquivo gerado com sucesso!");
	window.location.href = "arquivos/inscricoes.xls";
</script>
</body>
</html>

Att;

gabrielsor · Junho 29, 2010

Segue um código que usso aki para exportar para o Excel..... basta você adaptar para as suas necessidades..

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Response.Charset="ISO-8859-1" %>
<!--#include file="conexao/conexao.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>

<body>

<%

sql = "SELECT * FROM tinscricao ORDER BY data DESC"
Set Rs = Conexao.Execute(SQL)

arquivo_excel= "Inscricoes.xls"
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath("arquivos/" & arquivo_excel), true)
act.WriteLine("<html><body>")
act.WriteLine("<table border=""1"">")
act.WriteLine("<tr bgcolor=""#C0C0C0"">")
act.WriteLine("<th nowrap>Curso</th>")
act.WriteLine("<th nowrap>Data</th>")
act.WriteLine("<th nowrap>Nome</th>")
act.WriteLine("<th nowrap>Endereço</th>")
act.WriteLine("<th nowrap>Bairro</th>")
act.WriteLine("<th nowrap>Cidade</th>")
act.WriteLine("<th nowrap>Estado</th>")
act.WriteLine("<th nowrap>Celular</th>")
act.WriteLine("<th nowrap>Telefone</th>")
act.WriteLine("<th nowrap>E-mail</th>")
act.WriteLine("<th nowrap>Mensagem</th>")


act.WriteLine("</tr>")

While NOT Rs.EOF

Act.WriteLine("<tr>")
act.WriteLine("<td align=""left"">"& rs("curso") & "</td>")
act.WriteLine("<td align=""left"">"& rs("data") & "</td>")
act.WriteLine("<td align=""left"">"& rs("nome") & "</td>")
act.WriteLine("<td align=""left"">"& rs("endereco") & "</td>")
act.WriteLine("<td align=""left"">"& rs("bairro") & "</td>")
act.WriteLine("<td align=""left"">"& rs("cidade") & "</td>")
act.WriteLine("<td align=""left"">"& rs("estado") & "</td>")
act.WriteLine("<td align=""left"">"& rs("celular") & "</td>")
act.WriteLine("<td align=""left"">"& rs("telefone") & "</td>")
act.WriteLine("<td align=""left"">"& rs("email") & "</td>")
act.WriteLine("<td align=""left"">"& rs("mensagem") & "</td>")

act.WriteLine("</tr>")

rs.movenext
Wend

act.WriteLine("</table></body></html>")

act.close
%>
<script>
	alert("Arquivo gerado com sucesso!");
	window.location.href = "arquivos/inscricoes.xls";
</script>
</body>
</html>

Att;

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Kracaaaa mtu bom esse script, mtu simples e funcional...

apesar de ter conseguido gerar o excel, eu consegui gerar o arquivo ao carregar a página, como executar esse script qdo eu apertar um link por exemplo e gerar o excel com os dados já filtrados pela pesquisa que pode ser feita no banco?

espero que me ajude e mais uma vez, vlw pelo codigo... :D

xanburzum · Junho 29, 2010

muito bom...

legal o code...

DSerma · Junho 29, 2010

Cara.. nao me leve a mal.. mas isso que você qr.. de só realizar i codigo quando um link for clicado... e a parte do SELECT, são as coisas mais básicas do ASP... se você nao sabe como fazer isso, aconselho você a estudar MUITO mais do que já o vem fazendo....

Infelizmente como a maioria do pessoal aki fdo fórum sabe.... é muito raro eu dar algum código prono.. ou até mesmo alguma coisa mastigada..... para você eu já dei o código prontinho.... agora cabe a você botar a cabeça pra funcionar ai e resolver a sua questão..

Att;

gabrielsor · Junho 29, 2010

Cara.. nao me leve a mal.. mas isso que você qr.. de só realizar i codigo quando um link for clicado... e a parte do SELECT, são as coisas mais básicas do ASP... se você nao sabe como fazer isso, aconselho você a estudar MUITO mais do que já o vem fazendo....

Infelizmente como a maioria do pessoal aki fdo fórum sabe.... é muito raro eu dar algum código prono.. ou até mesmo alguma coisa mastigada..... para você eu já dei o código prontinho.... agora cabe a você botar a cabeça pra funcionar ai e resolver a sua questão..

Att;

Acho que nao entendeu o que quero fazer... :huh:

Parte do select? a parte do select ja esta funcionando direitinho...

o problema é que dentro dessa página existem alguns formularios de pesquisa que podem filtrar os dados e estes dados são mostrados em uma tabela e a partir do resultado desse filtro, gostaria de dar a opção de gerar ou nao um excel clicando em um botao...

se isso for muito simples como você diz, por favor me ajude pois não sei como fazer...

vlww

ahh...e nao precisa me dar codigo pronto...simplesmente me de alguma dica de como fazer e eu me viro no código... ;)

xanburzum · Junho 29, 2010

Amigo, dá uma olhada em um exemplo de Quiz, que vai te ajudar na lógica...

Arquivado

Exportar resultado da pesquisa para excel

Recommended Posts

gabrielsor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

gabrielsor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

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

gabrielsor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

gabrielsor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

gabrielsor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

gabrielsor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

gabrielsor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante