首页 / ACCESS / 将excel中的数据批量导入到access的技巧

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

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了将excel中的数据批量导入到access的技巧，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1845字，纯文字阅读大概需要3分钟。

内容图文

将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 "

<%=goods_name%> <%=goods_images%> <%=cat_id%>
"
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

内容总结

以上是互联网集市为您收集整理的将excel中的数据批量导入到access的技巧全部内容，希望文章能够帮你解决将excel中的数据批量导入到access的技巧所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/533382.html

来源：【匿名】