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

2008-08-25 23:36:34  編輯來源:互聯網  简体版  手機版  評論  字體: 小|中|大

 

 

　　前段时间，我在网上发出过这样的问题，现在已经得到解决，现将代码共享，

　　希望对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"%>

 

 

 

前段时间，我在网上发出过这样的问题，现在已经得到解决，现将代码共享， 希望对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"%>