关于access数据库导入excel表的问题

zcc405331 2018-07-19 03:46:57

此图为数据库里的产品表

此图为excel里面的数据

现在我要把excel里面的数据导入到产品表里,但是该如何依次循环导入到配件1,配件2...,价格1,价格2...请大侠们支支招

导入代码 如下,如果产品号为唯一的情况下,以下代码是没有问题的


'将数据读入数据库
dim conn
dim conn2
'连接目的数据表

set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & Server.MapPath("../../DataBase/shujuku.mdb")
'连接待读入excel数据表
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties='Excel 5.0;hdr=yes;imex=1';Data Source="& Server.MapPath("upload/"&FileName)
'查询待读入excel数据表
sql = "SELECT * FROM [Sheet1$]"
set rs = conn2.execute(sql)
'将数据循环读入目的数据库
while not rs.eof
'查询相同的数据,以产品号为唯一标识
dim icount
checksamesql="select 产品号 from 产品表 "
set checksamers = conn.execute(checksamesql)
icount = checksamers.recordcount
checksamers.close
set checksamers= nothing
sql = "update t_tdd set 配件1='"& fixsql(rs(1)) &"',价格1='"& fixsql(rs(2)) &"' where 产品号 = '"& fixsql(rs(0)) &"'"
conn.execute(sql)
rs.movenext
wend
set oFile=nothing'释放文件对象
next
...全文
433 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
xiaoliuvv 2018-07-25
  • 打赏
  • 举报
回复
那就判断一下excel的b列呀
select case rs(1)
case "101"
update t_tdd set 配件1。。。。。
case "102"
update t_tdd set 配件2。。。。。
case "103"
update t_tdd set 配件3。。。。。
end select

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧