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

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