国产探花免费观看_亚洲丰满少妇自慰呻吟_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"%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 济源市| 泸溪县| 台北县| 鄂尔多斯市| 于田县| 拉孜县| 松潘县| 冕宁县| 乌拉特前旗| 永春县| 苏尼特左旗| 潜山县| 虞城县| 萝北县| 平舆县| 娱乐| 文安县| 江川县| 古蔺县| 于都县| 类乌齐县| 临夏市| 东阳市| 湖北省| 安阳市| 连平县| 双峰县| 巴南区| 荔波县| 保山市| 新野县| 宝清县| 楚雄市| 襄城县| 鸡西市| 开封市| 重庆市| 稷山县| 临颍县| 梅河口市| 剑河县|