| 本月文章推荐 |
用ASP实现从SQL Server导出数据到Access或Excel文件发表日期：2008-8-25
|
|
前段时间，我在网上发出过这样的问题，现在已经得到解决，现将代码共享，
希望对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"%> |
| 上一篇：asp将数据导入excel后，中文出现乱码？？怎么解决
人气:2921 下一篇：ASP实现SQL语句日期格式的加减运算 人气:2417 |
| 浏览全部ASP的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
