Utilice ASP para exportar datos desde SQL Server a archivos Access o Excel
Autor：Eve Cole
Fecha de actualización：2009-06-25 17:44:33
Hace algún tiempo, publiqué un problema de este tipo en línea y ahora se resolvió. Compartiré el código.
Espero que esto ayude a los entusiastas de IntranetMIS.
El método es realmente muy simple: debe anidar una conexión de acceso en la conexión de SQL Server y luego escribirla una por una.
<%set Conn = Server.CreateObject("ADODB.Conexión")
Conn.Open "driver={servidor SQL};servidor=mamaco;uid=linner;pwd=123;dat
abase=linner"
sql="seleccionar * de scjh"
establecer rs=conn.execute (sql)%>
<%set Conn1 = Server.CreateObject("ADODB.Conexión")
parámetro = "controlador = {Controlador de Microsoft Access (*.mdb)}"
conexión.Abrir parámetro & ";dbq=" & Server.MapPath("scjh.mdb")
conn1.execute("eliminar de scjh")%>
<%hacer mientras no rs.eof%>
<%dim ktdh,scph,scts,jhqtsj,yhxdsj,yxj,rwbh
ktdh=rs("ktdh")
scph=rs("scph")
scts=rs("scts")
jhqtsj=rs("jhqtsj")
yhxdsj=rs("yhxdsj")
yxj=rs("yxj")
rwbh=rs("rwbh")
%>
<%sql1="insertar en scjh(ktdh,scph,scts,jhqtsj,yhxdsj,yxj,rwbh)
valores
('"& ktdh &"','" & scph & "'", & scts
& ","&jhqtsj&"','"&yhxdsj&"',"&
yxj &"," & rwbh &")"
conn1.execute (sql1)%>
<%rs.movenext
bucle
conn1.cerrar
conexión.cerrar%>
<%response.redirect "/download/scjh.mdb"%>
