Generar excel
Hola! Tengo un problema, fijate ke deseo guardar una consulta en un archivo de excel y de hecho ya hice una pagina ke hace esto, pero en la nueva ke estoy haciendo no funciona, el problema esta cuando quiero generar el archivo, este es el codigo : set rs1 = art.Execute(sql) (donde "art" esta definido arriba de la siguiente manera): Set art = Server.CreateObject("ADODB.connection")
art.Provider = "sqloledb"
ProvStr = "Server=battaav;Database=www_voficina;UID=www1;PWD=wwwadmin1;"
art.open provstr ahora con rs1 genero el archivo en excel pero al guardar el archivo esta en blanco, asi esta el codigo : While not rs1.eof
Response.Write trim(rs1)&","
Response.Write CHR(10)
rs1.MoveNext
Wend algo asi es la generacion, no puse todo el codigo para no hacer mucho bulto, el problema es ke no entra al while, tambien mande el puntero de rs1 al primer registro y cuando ago esto me aparece el siguiente mensaje : "internet explorer no puede abrir este sitio internet. El sitio pedido no se encuentra o no esta disponible etc.." ojala pudieras ayudarme, Gracias por tu atencion!
art.Provider = "sqloledb"
ProvStr = "Server=battaav;Database=www_voficina;UID=www1;PWD=wwwadmin1;"
art.open provstr ahora con rs1 genero el archivo en excel pero al guardar el archivo esta en blanco, asi esta el codigo : While not rs1.eof
Response.Write trim(rs1)&","
Response.Write CHR(10)
rs1.MoveNext
Wend algo asi es la generacion, no puse todo el codigo para no hacer mucho bulto, el problema es ke no entra al while, tambien mande el puntero de rs1 al primer registro y cuando ago esto me aparece el siguiente mensaje : "internet explorer no puede abrir este sitio internet. El sitio pedido no se encuentra o no esta disponible etc.." ojala pudieras ayudarme, Gracias por tu atencion!
1 respuesta
Respuesta de smunoz
1