将excel中的数据批量导入到access
db=db1.mdb
path=server.mappath(db)
set conn=server.createobject(adodb.connection)
connstr=provider=microsoft.jet.oledb.4.0;data source=&path
conn.open connstr
set rs=server.createobject(adodb.recordset)
'===========================================
' 函数功能：数据批量导入
' 作 者：wangsdong
' 文章为作者原创，转载请注明文章出处、保留作
' 者信息，谢谢支持！
' 原理:将excel中的数据导入到access
'===========================================
'连接excel数据库教程
path=./
dim xlsconn,strsource,xlbook,xlsheet,i
dim myconn_xsl,xlsrs,sql,objcmd
set xlsconn = server.createobject(adodb.connection)
set xlsrs = server.createobject(adodb.recordset)
filename=商品
file2=商品列表
source=server.mappath(path&filename&.xls)
myconn_xsl=provider=microsoft.jet.oledb.4.0;data source= &source& ;extended properties=excel 8.0
xlsconn.open myconn_xsl
sql = select * from [&file2&$]
xlsrs.open sql,xlsconn,1,1
if xlsrs.eof then
else
i=1
response.write
do while not xlsrs.eof
goods_name=xlsrs(商品名)
goods_images=xlsrs(图片)
cat_id=xlsrs(商品分类)
%>
sql=insert into goods(goods_name,goods_images,cat_id) values('&goods_name&','&goods_images&',&cat_id&)
conn.execute(sql)
i=i+1
xlsrs.movenext
loop
response.write
end if
xlsrs.closeresponse.write 共导入 & i-1 & 条记录.
& vbcrlf
set xlsconn=nothing
set objcmd=nothing
%>
access 结构
goods_name,goods_images cat_id
excel结构
商品名，图片，商品分类
本地链接地址：http://www.j245.com/class.asp?id=111