网络编程
位置:首页>> 网络编程>> Asp编程>> 如何把数据从SQL Server导出到Access或Excel中去?

如何把数据从SQL Server导出到Access或Excel中去?

 来源:asp之家 发布时间:2009-11-02 20:26:00 

标签: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 &")"  
conn1.execute (sql1)%> 
<%rs.movenext 
loop 
conn1.close 
conn.close%> 
<%response.redirect "/aspxhome/chunfeng.mdb"%>

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com