如何把数据从SQL Server导出到Access或Excel中去?
来源:asp之家 时间:2009-11-02 20:26:00
我有大量的重要数据要从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 &")"
conn1.execute (sql1)%>
<%rs.movenext
loop
conn1.close
conn.close%>
<%response.redirect "/aspxhome/chunfeng.mdb"%>