如何把数据从SQL Server导出到Access或Excel中去
5星 · 超过95%的资源 需积分: 45 142 浏览量
2011-10-24
20:37:04
上传
评论
收藏 40KB DOC 举报 
如何把数据从 SQL Server 导出到 Access 或 Excel 中去？
我有大量的重要数据要从 SQL Server 导出到 Access 或 Excel 文件中去，手工做太麻烦，
还有其它的好办法吗？
有，我们在 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 chunfeng"
set rs=conn.execute (sql)%>
<%set Conn1 = Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("chunfeng.mdb")
conn1.execute("delete from chunfeng")%>
<%do while not rs.eof%>
<%dim gssyh,gsfwh,gslyb,gswxt,gswjh,gssyt,gsqj
gssyh=rs("gssyh")
gsfwh=rs("gsfwh")
gslyb=rs("gslyb")
gswxt=rs("gswxt")
gswjh=rs("gswjh")
gssyt=rs("gssyt")
gsqj=rs("gsqj")
%>
<%sql1="insert into chunfeng(gssyh,gsfwh,gslyb,gswxt,gswjh,gssyt,gsqj)
values
('"& gssyh &"','" & gsfwh & "'," & gslyb & ",'"&gswxt&"','"&gswjh&"',"& gssyt &"," &
gsqj &")"7
conn1.execute (sql1)%>
<%rs.movenext
loop
conn1.close
conn.close%>
<%response.redirect "/download/chunfeng.mdb"%>
资源评论
zzw2222222013-06-29不错，可以使用。
u0102261742013-05-26不错，正在使用啊
代号极光
- 粉丝: 8
- 资源: 16
