根据excel表数据更新有重复记录的数据库并插入数据库中不存在的记录

圣手智多星

魂断蓝桥 发表于 2016-8-3 13:06
我不是版主啊

Sub up()

也要感谢您的职业精神，不厌其烦为我解答问题。
同是四十多的人，差距就这么大，你的学习精神应当是我的表率。

后面这程序运行很快，解决了目前多人共用工作薄卡死　丢失数据问题。
现用ＭＥＳ数据导入ACCESS数据表中，然后用excel导出数据和回写数据，再将excel表一分为几个工作薄　各自用各自的数据表再回写。
当然用mysql数据库比较好，但不会啊
现在连有一个BOM结构树形access共享多人都没有解决。有机会再慢慢看你的mysql,上了年龄也要学一下，充实一下自已。

圣手智多星

魂断蓝桥 发表于 2016-8-3 13:06
我不是版主啊

Sub up()

新问题来了，工作簿共享后，显示有更新多少条记录，但access数据库中没有更新的。如何解决,前面那个程序可以

圣手智多星

魂断蓝桥 发表于 2016-8-1 09:11
楼主可以试一下，行不行。

Sub up()

魂断蓝桥 老师    access数据库中排版人，完工日期，备注说明有数据的不要更新怎么修改？因工作簿是共享的，导致一人更新后另一个人更新时空数据又覆盖了。或是判断arr(I,j)<>"" then 才更新到数据库

魂断蓝桥

圣手智多星 发表于 2016-8-16 19:29
魂断蓝桥 老师    access数据库中排版人，完工日期，备注说明有数据的不要更新怎么修改？因工作簿是共享 ...

老师，谈不上。

Sub up()
Dim cnn, Sql As String, mypath$, m%
Set cnn = CreateObject("adodb.connection")
mypath = ThisWorkbook.Path & "\制令单总表.accdb"
i = sheet1.[a9999].End(3).Row
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & mypath
Sql = "select COUNT(a.制令单号) from 制令单 A INNER JOIN [Excel 12.0;Database=" & ActiveWorkbook.FullName & "].[制令单$a1:k" & i & "] B" _
        & " ON (A.制令单号=B.制令单号" _
        & " and A.排版人 is  null AND A.完工日期 is  null and A.备注说明 is  null)"
m = cnn.Execute(Sql)(0)
Sql = "update 制令单 A,[Excel 12.0;imex=0;Database=" & ActiveWorkbook.FullName & "].[制令单$a1:k" & i & "] B" _
        & " SET A.排版人=B.排版人,A.完工日期=B.完工日期,A.备注说明=B.备注说明 WHERE A.制令单号=B.制令单号" _
        & " and (A.排版人 is  null AND A.完工日期 is  null and A.备注说明 is  null)"
    cnn.Execute Sql
cnn.Close
Set cnn = Nothing
MsgBox "更新 " & m & " 条记录"
End Sub


这个必须是三个字段都是null 才会更新，如果你的要求是每一个字段如果有内容，则不更新的话，除了循环，我没有想到好的办法。