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

王朝mssql·作者佚名  2008-08-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"%>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航