ASP 通过ADO导出excel到access的代码

最新推荐文章于 2010-12-25 11:35:00 发布

e_zhiwen

最新推荐文章于 2010-12-25 11:35:00 发布

阅读量1.4k

点赞数 1

分类专栏： asp DataBase relate 文章标签： access excel asp microsoft 数据库

本文链接：https://blog.csdn.net/e_zhiwen/article/details/4459131

版权

DataBase relate 同时被 2 个专栏收录

24 篇文章 0 订阅

订阅专栏

asp

23 篇文章 0 订阅

订阅专栏

ASP 通过ADO导出excel到access的代码

2008-03-10 21:50

相当简单，流程是： 1、连接access数据库->2、连接要写入的access表->3、通过ADO连接excel->4、循环excel里的内容，并写到access中

'1、连接access数据库

dim conn
dim connstr
dim db
db="数据库.mdb"
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

'2、连接要写入的access表

set rsmdb=server.CreateObject("adodb.recordset")
rsmdb.open "select * from 表名称",conn,3,3

'3、通过ADO连接excel

Set connxls = Server.CreateObject("ADODB.Connection")
connxls.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ="&Server.MapPath("excel文件.xls")
set rsxls=server.CreateObject("adodb.recordset")
rsxls.open "select * from [sheet1$]",connxls,1,1 '注册表名必须要在是中括号[]中间，肯表名后加$符号

'4、循环excel里的内容，并写到access中

do while not rsxls.eof
rsmdb.addnew
rsmdb("字段名1")=rsxls("字段名1")
rsmdb("字段名2")=rsxls("字段名2")
rsmdb("字段名3")=rsxls("字段名3")
rsmdb.update
rsxls.movenext
loop
rsmdb.close
set rsmdb=nothing
rsxls.close
set rsxls=nothing