Foros del Web » Programando para Internet » ASP Clásico »

Ayuda con export a excel

Estas en el tema de Ayuda con export a excel en el foro de ASP Clásico en Foros del Web. Saludos A todos espero alguien me pueda ayudar tengo un ASP donde exporto una consulta a excel y no habia tenido problemas pero ahora que ...
  #1 (permalink)  
Antiguo 06/08/2010, 17:31
 
Fecha de Ingreso: diciembre-2003
Mensajes: 595
Antigüedad: 21 años
Puntos: 1
Ayuda con export a excel

Saludos A todos espero alguien me pueda ayudar tengo un ASP donde exporto una consulta a excel y no habia
tenido problemas pero ahora que voy a exportar mas de 3000 registros los cuales no se me hacen muchos no lo hace
anexo el asp que utilizo para expotarlos y funciona a la perfeccion hasta 2000 registros



<%@ Language=VBScript %>
<%

Set conn=Server.CreateObject("ADODB.Connection")
//conn.ConnectionString="Provider=SQLNCLI10;Server=l ocalhost;Database=SINAVE;Uid=sa;Pwd=sa;"
conn.ConnectionString="Provider=SQLNCLI10;Server=l ocalhost;Database=SINAVE;Uid=sa;Pwd=sa;"
conn.open


sSelect="select * from tmp_nutraves "

Set cmd=Server.CreateObject("ADODB.Command")
cmd.activeconnection=conn
cmd.commandtext=sSelect

Set RS=Server.CreateObject("ADODB.recordset")
set RS=cmd.execute()


Response.ContentType = "application/vnd.csv"

Response.AddHeader "Content-Disposition", "filename=Reporte_Global.cvs;"



for i = 0 to RS.Fields.Count-1
if i = (RS.Fields.Count - 1) then
Response.Write lcase(RS.Fields(i).Name)
else
Response.Write lcase(RS.Fields(i).Name) & ","
end if
next

Response.write vbNewLine
Response.write vbNewLine


while not RS.EOF

for u=0 to RS.Fields.Count - 1
if u = (RS.Fields.Count - 1) then
Response.Write RS.Fields(u).Value
else
Response.Write RS.Fields(u).Value & ","
end if
next

response.write vbNewLine


rs.MoveNext
wend

Response.write vbNewLine
Response.write vbNewLine



Set RS = Nothing
Set DB = Nothing


%>

Etiquetas: excel, export
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 22:49.