La Web del Programador: Comunidad de Programadores
 
    Pregunta:  7350 - DE CONSULTA A ARCHIVO...
Autor:  Albert del Toro
┬┐Es posible crear un archivo a partir de una consulta sql?
La idea es:
1. Cliente hace consulta.
2. Obtiene resultados.
3. Decide bajarse los resultados en archivo.
Gracias!!

  Respuesta:  Xavi
Aqui te mando el codigo para traspasar datos de una base de datos SQL a un archivo txt.

set fso = createobject("scripting.filesystemobject")

set objBase=server.CreateObject("ADODB.Connection")
set objtabla=server.CreateObject("ADODB.recordset")
objbase.Open "PROVIDER=SQLOLEDB;DATA SOURCE=ip;UID=usuario;PWD=password;DATABASE=basedatos"

'traspasa los datos de los usuarios
set objtabla=objbase.Execute("SELECT * FROM Tabla")
i=0
do while not objtabla.EOF
inf=inf & "#" & objtabla.Fields("campo1") & "#" & objtabla.Fields("campo2") & "#" & objtabla.Fields("campo3") & "#" & vbcrlf
i=i+1
objtabla.MoveNext
loop
Set act = fso.CreateTextFile(server.mappath("archivo.txt"), true)
act.WriteLine(inf)
act.Close

Response.Write("<P><HR><P>Se han copiado " & i & " registros.")

Espero que te sirva.