用ASP实现从SQL Server导出数据到Access或Excel文件

作者：互联网
时间：2009-06-25 17:44:33

前段时间，我在网上发出过这样的问题，现在已经得到解决，现将代码共享，
希望对IntranetMIS爱好者有所帮助

方法其实很简单：需要在SQL Server连接中嵌套一个access连接，然后逐条
写入就可以了。

<%set Conn = Se***r.CreateObject("AD***.Connection")
Co***Open "driver={SQL server};server=mamaco;uid=linner;pwd=123;dat
abase=linner"
sql="select * from scjh"
set rs***nn.execute (sql)%>
<%set Conn1 = Se***r.CreateObject("AD***.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
co***Open param & ";dbq=" & Se***r.MapPath("scjh.mdb")
co***.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 &")"　
co***.execute (sql1)%>
<%r***ovenext
loop
co***.close
co***close%>
<%r***onse.redirect "/d***load/scjh.mdb"%>

上一篇： ASP实现SQL语句日期格式的加减运算

下一篇： asp将数据导入excel后，中文出现乱码？？怎么解决

用ASP实现从SQL Server导出数据到Access或Excel文件

相关阅读

最新文章

人气下载推荐

相关应用

热门文章

推荐游戏