escribir en un excel registros de la bd

suprempada · #1 (**permalink**) 01/11/2006, 14:08

que tal a tod@s, espero que se la esten pasando bien

en un sistema, capturo datos; direccion, telefono, nombre, fecha, etc.....
esos datos se van a la BD..... como puedo hacer que esos datos de la bd, se pasen a un archivo excel, es decir, que se genere un archivo de excel con los datos que se capturaron, como si saliera impreso, pero que el excel ya tuviera los datos en las celdas correspondientes listo para descargarse....

como le puedo hacer????? alguien me puede ayudar o dar una idea?....

de todos modos les agradesco su atencion.

u_goldman · #2 (**permalink**) 01/11/2006, 14:15

Exporta tus registros a un csv, se ha tratado el tema anteriormente, básicamente lo que necesitas es un string que vaya incrementándose a partir de una fuente de datos, puede ser tu recordset
str = ""
str = str & campo1 & "," & campo2 & "," & campoN & vbCrLf
str = str & campo1 & "," & campo2 & "," & campoN & vbCrLf

Código:

if len(str) > 0 then
		Response.Buffer = True
		Response.ContentType = "text/plain"
		Response.AddHeader "Content-Disposition", "attachment;filename=archivo.csv"
		Response.Write(str)
		Response.Flush
		Response.End
end if

Y listo, tendrás un csv que puedes abrir mediante excel si asi lo deseas.

Saludos

webdeveloper · #3 (**permalink**) 01/11/2006, 14:55

Hola,

Te pego un ejemplo que he sacado de aulambra[dot]com. Espero que te sirva...

<%@ Language=VBScript %>

<HTML>
<HEAD><TITLE> Leer de una hoja de datos Excel </TITLE></HEAD>
<BODY>

<%

'Las variables del archivo adovbs.inc
Const adOpenStatic = 3
Const adLockPessimistic = 2

'Nos conectamos a la hoja de datos del Excel
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "Driver={Microsoft Excel Driver (*.xls)};Dbq="
& Server.MapPath("Libro1.xls") & ";"
db.open DB_CONNECTIONSTRING

'Recordset correspondiente a un rango de datos
set rs = Server.CreateObject("ADODB.Recordset")
SQLStr = "SELECT * FROM alumnos"
rs.open SQLStr,DB_CONNECTIONSTRING, adOpenStatic
,adLockPessimistic, adCmdText

'Número de columnas de la tabla
columnas = rs.Fields.Count
Response.Write("<table width='20%' border='1'><tr>")

'Mostramos el tiulo de la tabla.
For I = 0 To columnas - 1
Response.Write "<td align='center'><b>"
& rs.Fields.Item(I).Name & "</b></td>"
Next
Response.Write("</tr>")

'Nos ponemos en el primer registro
rs.MoveFirst

'Mostramos los datos
Do While Not rs.EOF
Response.Write("<tr>")
For I = 0 To columnas - 1
Response.Write ("<td>" & rs.Fields.Item(I).Value & "</td>")
Next

Response.Write "</tr>"
rs.MoveNext
Loop

Response.Write("</table>")

'Eliminamos el recordset
rs.Close
Set rs = Nothing
'Eliminamos la bd
db.Close
Set db = Nothing

%>
</BODY></HTML>