archivo exportable

rrufo · #1 (**permalink**) 11/05/2004, 09:28

me piden que los datos que saco en tablas por tantalla, se puedan exportar a un archivo.

por donde empiezo, alguien tiene algo de esto.

unholy · #2 (**permalink**) 11/05/2004, 09:40

Puedes exportarlo a unarchivo en Excel y que el usuario tenga la posibilidad de descargar dicho archivo...

Es bastante sencillo de implementar

rrufo · #3 (**permalink**) 12/05/2004, 02:03

Cierto, miguel me paso este codigo copiado de un tutorial

<%
accessdb="state_info"
Set Conn = Server.CreateObject("ADODB.Connection")
'-----------------------------------
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\mdb-database\rm.mdb")
' ----------------------------------

Set rs = Server.CreateObject("ADODB.Recordset")
motSQL = "SELECT * FROM usuaris ORDER BY adresa"

rs.Open motSQL, conn
rs.MoveFirst

file_being_created= "usuaris.xls"

set fso = createobject("scripting.filesystemobject")

Set act = fso.CreateTextFile(server.mappath("\public\usuaris .xls"), true)

'Cabeceras de la tabla
act.WriteLine("<html><body>")
act.WriteLine("<table border=""1"">")
act.WriteLine("<tr>")
act.WriteLine("<th nowrap>Nom</th>")
act.WriteLine("<th nowrap>Adresa</th>")
act.WriteLine("<th nowrap>Data</th>")
act.WriteLine("<th nowrap>Observacions</th>")
act.WriteLine("</tr>")

Do while not rs.eof

Act.WriteLine("<tr>")
act.WriteLine("<td align=""right"">" & rs("nom") & "</td>" )
act.WriteLine("<td align=""right"">" & rs("adresa") & "</td>" )
act.WriteLine("<td align=""right"">" & rs("data") & "</td>")
act.WriteLine("<td align=""right"">"& rs("observacions") & "</td>")
act.WriteLine("</tr>")

rs.movenext
Loop

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

act.close
%>