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.

Siga el debate

8 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 david

01/04/2005 - 16:53 | Informe spam

??????????????????????????????????????????????????????????????????????????????????????????????????????????????????.???????.??????????????????????????????????????????????????????..????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????.??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

Responder a este mensaje

#7 Giox

01/04/2005 - 18:06 | Informe spam

lo que yo le entiendo es lo siguiente:

- necesita crear un archivo de excel
- no entiendo lo de delimitadores
- si tu utlizas el ejemplo de la tabla como te explique los datos quedan en
cada celda, pero como le digo no ponga response.wirte sino strdata = strdata
& "<tabla>"

y al final guarda esa variable en el archivo

le pongo un ejemplo

<%
Set fso = CreateObject("Scripting.FileSystemObject")
strRuta = Server.MapPath(".") & "\test.xls"
Set archivo = fso.CreateTextFile(strRuta, True)

archivo.WriteLine("<table>" & Chr(13))

For i = 1 To 12
archivo.WriteLine("<tr>" & Chr(13))
If (i MOD 2 = 0) Then
strColor = "bgcolor=""#CCCCCC"""
Else
strColor = ""
End If

archivo.WriteLine("<td " & strColor & ">" & i & "</td>" & Chr(13))
archivo.WriteLine("<td " & strColor & ">" & MonthName(i) & "</td>" &
Chr(13))
archivo.WriteLine("</tr>" & Chr(13))
Next

archivo.WriteLine("</table>" & Chr(13))
archivo.Close
Response.Write "Listo!!"
%>

"david" escribió en el mensaje
news:079c01c536ca$8ff5c6f0$
????????????????????????????????????????????????????????????????????????????
??????????????????????????????????????.???????.?????????????????????????????
?????????????????????????..?????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
???????????????????????????????????????????????????????????.????????????????
????????????????????????????????????????????????????????????????????????????
????????????????????????????????????????????????????????????????????????????
??????????????????

Responder a este mensaje

#8 Nuno Santos

01/04/2005 - 18:18 | Informe spam

Imagino que esteas stresado pero tiene calma, pués estamos tentando ayudar,
ok?

El código que te enviei permite la selección del user, para gravar o para
abrir!!!
Amigo te envio el código y me funciona bien, estoy utilizando vbscript
altera para ASP y pronto.
<codigo>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>

<INPUT type="button" value="Write File" name=button1 onclick="WriteFile()">
<script language=VBScript>
function WriteFile
Dim fso, f1, sType
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\text.xls",true,true)

f1.writeline ("<table>")
f1.writeline ("<tr>")
f1.writeline ("<th nowrap>Titulo 1</th>")
f1.writeline ("<th nowrap>Titulo 2</th>")
f1.writeline ("<th nowrap>Titulo 3</th>")
f1.writeline ("</tr>")
f1.writeline ("<tr>")
f1.writeline ("<td>Campo 1</th>")
f1.writeline ("<td>Campo 2</th>")
f1.writeline ("<td>Campo 3</th>")
f1.writeline ("</tr>")
f1.writeline ("</table>")

set fso = nothing
set f1 = nothing
end function
</script>

</BODY>
</HTML>

</codigo>

Nuno Santos
nunos7[REMOVER]@hotmail.com

"david" wrote in message
news:079c01c536ca$8ff5c6f0$
??????????????????????????????????????????????????????????????????????????????????????????????????????????????????.???????.??????????????????????????????????????????????????????..????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????.??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida