asp + excel

31/03/2005 - 16:10 por david | Informe spam
Hola,

Estoy en un lio, quiero bajar los datos de una tabla sql-
server a un archivo excel (archivo.xls), todo me funciona
bien , pero el echo es que me carga TODOS los datos de la
tabla en cuestión.

El problema es ¿Como acedo a el campo específico de la
tabla y lo copio al archivo excel?

El codigo es el sgte:

' Recorro todo el recordset recuperando sus valores y
escribiéndolos en el archivo Excel
rs2.MoveFirst
contador=0
Do while Not rs2.EOF
For each x in rs2.fields
contador = contador + 1
'Asi escribo en la "fila" del archivo.xls
todos los campos (su contenido) de rs2
Fila_excel = Fila_excel & x.value & chr(9)
Next
Arch_Excel.writeline Fila_excel
rs2.MoveNext
Loop


Quizás la solución esta en conocer cual es el método a
usar en vez de ".value" ??? o el For recorrer rs2.xxxxx ???

No tengo problema en "mostrar por pantalla" los campos (rs2
(numero))que yo quiera, eso lo hago bién, el echo,
insisto, es al GRABAR.
 

Leer las respuestas

#1 Giox
31/03/2005 - 17:17 | Informe spam
Hola lo puede hacer asi

en tu asp puede armar una tabla

Response.ContentType = "application/vnd.ms-excel"
Response.Write "<table>" & Chr(13)
Response.Write "<tr>" & Chr(13)
Response.Write "<td>" &
rs2("nombre_campo")
& "</td>" & Chr(13)
Response.Write "</tr>" & Chr(13)
Response.Write "</table>" & Chr(13)

en vez de utilizar rs2.fiels quita ese for y usa unicamente el do

do wihile not rs2.of
rs2("nombre_campo")
rs2.movenext
loop
rs2.close

Esperoque te sirva,
Saludos
Giox

"david" escribió en el mensaje
news:0a6601c535fb$72ca4850$
Hola,

Estoy en un lio, quiero bajar los datos de una tabla sql-
server a un archivo excel (archivo.xls), todo me funciona
bien , pero el echo es que me carga TODOS los datos de la
tabla en cuestión.

El problema es ¿Como acedo a el campo específico de la
tabla y lo copio al archivo excel?

El codigo es el sgte:

' Recorro todo el recordset recuperando sus valores y
escribiéndolos en el archivo Excel
rs2.MoveFirst
contador=0
Do while Not rs2.EOF
For each x in rs2.fields
contador = contador + 1
'Asi escribo en la "fila" del archivo.xls
todos los campos (su contenido) de rs2
Fila_excel = Fila_excel & x.value & chr(9)
Next
Arch_Excel.writeline Fila_excel
rs2.MoveNext
Loop


Quizás la solución esta en conocer cual es el método a
usar en vez de ".value" ??? o el For recorrer rs2.xxxxx ???

No tengo problema en "mostrar por pantalla" los campos (rs2
(numero))que yo quiera, eso lo hago bién, el echo,
insisto, es al GRABAR.

Preguntas similares