将excel中的数据批量导入到access的技巧

php中文网
发布: 2016-06-07 15:15:47
原创
2150人浏览过

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.rec

将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.close

Response.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

相关标签:
WPS零基础入门到精通全套教程!
WPS零基础入门到精通全套教程!

全网最新最细最实用WPS零基础入门到精通全套教程!带你真正掌握WPS办公! 内含Excel基础操作、函数设计、数据透视表等

下载
来源:php中文网
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn
最新问题
开源免费商场系统广告
热门教程
更多>
最新下载
更多>
网站特效
网站源码
网站素材
前端模板
关于我们 免责申明 举报中心 意见反馈 讲师合作 广告合作 最新更新 English
php中文网:公益在线php培训,帮助PHP学习者快速成长!
关注服务号 技术交流群
PHP中文网订阅号
每天精选资源文章推送
PHP中文网APP
随时随地碎片化学习

Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号