国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

用ASP實現從SQL Server導出數據到Access或Excel文件

2019-11-17 04:29:53
字體：大 中 小
來源：轉載
供稿：網友
前段時間，我在網上發出過這樣的問題，現在已經得到解決，現將代碼共享，
希望對IntranetMIS愛好者有所幫助

方法其實很簡單：需要在SQL Server連接中嵌套一個access連接，然后逐條
寫入就可以了。

<%set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={SQL server};server=mamaco;uid=linner;pwd=123;dat
abase=linner"
sql="select * from scjh"
set rs=conn.execute (sql)%>
<%set Conn1 = Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("scjh.mdb")
conn1.execute("delete from 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="insert into scjh(ktdh,scph,scts,jhqtsj,yhxdsj,yxj,rwbh)
values

('"& ktdh &"','" & scph & "'," & scts
& ",'"&jhqtsj&"','"&yhxdsj&"',"&

yxj &"," & rwbh &")"　
conn1.execute (sql1)%>
<%rs.movenext
loop
conn1.close
conn.close%>
<%response.redirect "/download/scjh.mdb"%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 邵武市| 新平| 金乡县| 班玛县| 溆浦县| 金溪县| 新建县| 邓州市| 名山县| 新蔡县| 中方县| 都江堰市| 南皮县| 泰顺县| 五指山市| 舞阳县| 阜平县| 嘉峪关市| 武穴市| 上栗县| 兰州市| 西青区| 钟祥市| 井陉县| 霍州市| 平潭县| 焦作市| 陆河县| 阿坝县| 龙川县| 亳州市| 扶沟县| 屯留县| 满城县| 南部县| 博客| 盘锦市| 阳信县| 井研县| 云梦县| 厦门市|