ASP を使用して SQL Server から Access または Excel ファイルにデータをエクスポートする
著者：Eve Cole
更新時間：2009-06-25 17:44:33
少し前にこのような問題をオンラインに投稿しましたが、現在は解決されているのでコードを共有します。
これが IntranetMIS 愛好家に役立つことを願っています
この方法は実際には非常に簡単です。SQL Server 接続にアクセス接続をネストし、それを 1 つずつ書き込む必要があります。
<%set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={SQL サーバー};server=mamaco;uid=linner;pwd=123;dat
abase=ライナー」
sql="scjh から * を選択"
set rs=conn.execute (sql)%>
<%set Conn1 = Server.CreateObject("ADODB.Connection")
param = "ドライバー={Microsoft Access ドライバー (*.mdb)}"
conn.Open param & ";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.close
接続.閉じる%>
<%response.redirect "/download/scjh.mdb"%>
