| 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. | |