关于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
...全文
323 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2018-07-19 03:46
社区公告
暂无公告