Используйте ASP для экспорта данных из SQL Server в файлы Access или Excel.
Автор：Eve Cole
Время обновления：2009-06-25 17:44:33
Некоторое время назад я разместил в сети такую проблему, и теперь я поделюсь кодом.
Надеюсь, это поможет энтузиастам IntranetMIS.
Метод на самом деле очень простой: вам нужно вложить соединение доступа в соединение SQL Server, а затем прописать его по одному.
<%set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={SQL server};server=mamaco;uid=linner;pwd=123;dat
абаза=лайнер"
sql="выберите * из scjh"
установить rs=conn.execute (sql)%>
<%set Conn1 = Server.CreateObject("ADODB.Connection")
param = "driver={Драйвер Microsoft Access (*.mdb)}"
параметр conn.Open & ";dbq=" & Server.MapPath("scjh.mdb")
conn1.execute("удалить из scjh")%>
<%do, пока не 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="вставить в scjh(ktdh,scph,scts,jhqtsj,yhxdsj,yxj,rwbh)
ценности
('"& ktdh &"','" & scph & "'," & scts
& ",'"&jhqtsj&"','"&yhxdsj&"',"&
yxj &"," & rwbh &")"
conn1.execute (sql1)%>
<%rs.movenext
петля
conn1.закрыть
конн.закрыть%>
<%response.redirect "/download/scjh.mdb"%>
