
Exportar de SQL Server a TXT
ASP
Publicado el 4 de Febrero del 2002 por Administrador (718 códigos)
30.604 visualizaciones desde el 4 de Febrero del 2002
Exporta los registros de una base de datos de SQL Server a un archivo de texto.
<%'www.lawebdelprogramador.com
set fso = createobject("scripting.filesystemobject")
set objBase=server.CreateObject("ADODB.Connection")
set objtabla=server.CreateObject("ADODB.recordset")
objbase.Open "PROVIDER=SQLOLEDB;DATA SOURCE=url;UID=usuario;PWD=password;DATABASE=BaseDatos"
server.ScriptTiemout=5000
'recorremos toda la tabla que queremos exportar
set objtabla=objbase.Execute("SELECT * FROM Tabla")
Set act = fso.CreateTextFile(server.mappath("Archivo.txt"), true)
i=0
'bucle hasta final de fichero
do while not objtabla.EOF
'vamos incrementando una cadena que guardaremos en el archivo de texto
txt = "INSERT INTO Tabla (Campos) VALUES ('" & objtabla.Fields("CamposBaseDatos") & "')" & vbcrlf
'Guardamos la variable txt al Archivo.txt
act.WriteLine(txt)
i=i+1
objtabla.MoveNext
loop
act.Close
server.ScriptTiemout=900
Response.Write("Se han copiado " & i & " registros.")
%>
Modificando la linea de "INSERT INTO ...", se podran taspasar en el formato que se quiera.
Hay que tener privilegios de escritura en el archivo de texto del servidor.