Utilisez ASP pour exporter des données de SQL Server vers des fichiers Access ou Excel
Auteur：Eve Cole
Date de mise à jour：2009-06-25 17:44:33
Il y a quelque temps, j'ai publié un tel problème en ligne et il est maintenant résolu. Je vais maintenant partager le code.
J'espère que cela aidera les passionnés d'IntranetMIS
La méthode est en réalité très simple : il faut imbriquer une connexion d'accès dans la connexion SQL Server, puis l'écrire une par une.
<%set Conn = Serveur.CreateObject("ADODB.Connection")
Conn.Open "driver={SQL server};server=mamaco;uid=linner;pwd=123;dat
abase=linner"
sql="sélectionner * depuis scjh"
set rs=conn.execute (sql)%>
<%set Conn1 = Serveur.CreateObject("ADODB.Connection")
param = "driver={Pilote Microsoft Access (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("scjh.mdb")
conn1.execute("supprimer de scjh")%>
<%do while not 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="insérer dans scjh(ktdh,scph,scts,jhqtsj,yhxdsj,yxj,rwbh)
valeurs
('"& ktdh &"','" & scph & "'," & scts
& ","'&jhqtsj&"','"&yhxdsj&"',"&
yxj &"," & rwbh &")"
conn1.execute (sql1)%>
<%rs.movenext
boucle
conn1.fermer
conn.close%>
<%response.redirect "/download/scjh.mdb"%>
