Publicado em 8 de jun.

Exportar resultado da pesquisa para excel

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" %>

<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

Discussão (15)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...