📄 419.html
字号:
<STYLE type=text/css>
<!--
body,td { font-size:9pt;}
hr { color: #000000; height: 1px}
-->
</STYLE>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">
<HTML>
<HEAD><TITLE>精选文章 >> SQL之家 >> 用ASP实现从SQL Server导出数据到Access或Excel文件</title>
</head>
<body >
<p><IMG SRC="../image/jsp001_middle_logo.gif" WIDTH="180" HEIGHT="60" BORDER=0 ALT=""></p>
<table width=100% bgcolor="#cccccc" align=center cellpadding="2" cellspacing="0" border=1 bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr bgcolor="#EFF8FF"><td>
<a href=http://www.jsp001.com/list_thread.php?int_attribute=2>精选文章</a>
>> <a href=http://www.jsp001.com/list_thread.php?forumid=45&int_attribute=2>SQL之家</a>
>> 用ASP实现从SQL Server导出数据到Access或Excel文件 [<a href=http://www.jsp001.com/forum/showthread.php?goto=newpost&threadid=419>查看别人的评论</a>]<br>
<hr><p>由 amtd 发布于: 2001-02-13 18:44</p><p><img src="images/icons/icon1.gif" alt="Post" border=0> </p><p>前段时间,我在网上发出过这样的问题,现在已经得到解决,现将代码共享, <br>希望对IntranetMIS爱好者有所帮助 <br><br>方法其实很简单:需要在SQL Server连接中嵌套一个access连接,然后逐条 <br>写入就可以了。 <br><br><%set Conn = Server.CreateObject("ADODB.Connection") <br>Conn.Open "driver={SQL server};server=mamaco;uid=linner;pwd=123;dat <br>abase=linner" <br>sql="select * from scjh" <br>set rs=conn.execute (sql)%> <br><%set Conn1 = Server.CreateObject("ADODB.Connection") <br>param = "driver={Microsoft Access Driver (*.mdb)}" <br>conn.Open param & ";dbq=" & Server.MapPath("scjh.mdb") <br>conn1.execute("delete from scjh")%> <br><%do while not rs.eof%> <br><%dim ktdh,scph,scts,jhqtsj,yhxdsj,yxj,rwbh <br>ktdh=rs("ktdh") <br>scph=rs("scph") <br>scts=rs("scts") <br>jhqtsj=rs("jhqtsj") <br>yhxdsj=rs("yhxdsj") <br>yxj=rs("yxj") <br>rwbh=rs("rwbh") <br>%> <br><%sql1="insert into scjh(ktdh,scph,scts,jhqtsj,yhxdsj,yxj,rwbh) <br>values <br><br><br><br>('"& ktdh &"','" & scph & "'," & scts <br>& ",'"&jhqtsj&"','"&yhxdsj&"',"& <br><br><br><br> yxj &"," & rwbh &")" <br>conn1.execute (sql1)%> <br><%rs.movenext <br>loop <br>conn1.close <br>conn.close%> <br><%response.redirect "/download/scjh.mdb"%><br><br>原作者未知<br>__________________<br><font color=red>真实源于生活! </font><br>请访问我们的网站: <br>(VB爱好者乐园) <br><a href="http://www.vbgood.com" target=_blank>http://www.vbgood.com</a><br><a href="http://www.d1vb.com" target=_blank>http://www.d1vb.com</a><br><a href="http://61.128.97.225/vbgood/index.asp" target=_blank>http://61.128.97.225/vbgood/index.asp</a><br>拥有1800多个资料! </p></td>
</tr>
</table>
<p>
<CENTER><a href="http://www.jsp001.com/forum/newreply.php?action=newreply&threadid=419">点这里对该文章发表评论</a></CENTER>
<p>该文章总得分是 <font color=red>0</font> 分,你认为它对你有帮助吗?
[<a href=javascript:void(0) onclick=window.open("http://www.jsp001.com/forum/codeVote.php?threadid=419&intVote=4","","menubar=no,toolbar=no,location=no,directories=no,status=no,resizable=no,scrollbars=no,width=70,height=40,top=0,left=0")>非常多</a>](<font color=red>0</font>)
[<a href=javascript:void(0) onclick=window.open("http://www.jsp001.com/forum/codeVote.php?threadid=419&intVote=2","","menubar=no,toolbar=no,location=no,directories=no,status=no,resizable=no,scrollbars=no,width=70,height=40,top=0,left=0")>有一些</a>](<font color=red>0</font>)
[<a href=javascript:void(0) onclick=window.open("http://www.jsp001.com/forum/codeVote.php?threadid=419&intVote=1","","menubar=no,toolbar=no,location=no,directories=no,status=no,resizable=no,scrollbars=no,width=70,height=40,top=0,left=0")>无帮助</a>](<font color=red>0</font>)
[<a href=javascript:void(0) onclick=window.open("http://www.jsp001.com/forum/codeVote.php?threadid=419&intVote=-1","","menubar=no,toolbar=no,location=no,directories=no,status=no,resizable=no,scrollbars=no,width=70,height=40,top=0,left=0")>是灌水</a>](<font color=red>0</font>) </p>
<script language="javascript" src="http://www.jsp001.com/include/read_thread_script.php?threadid=419"></script>
<p><CENTER>
Copyright © 2001 - 2009 JSP001.com . All Rights Reserved <P>
<IMG SRC="../image/jsp001_small_logo.gif" WIDTH="85" HEIGHT="30" BORDER=0 ALT="">
</CENTER></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -