您的位置：首页 → 技术开发 → ASP技巧 → 用ASP实现从SQL Server导出数据到Access 

用ASP实现从SQL Server导出数据到Access 

时间：2004/11/7 4:11:00来源：本站整理作者：蓝点我要评论(0)

方法其实很简单：需要在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"%>

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论