Access VBA根据特定的条件，将excel表中的数据更新到Access数据库中

YincyHe · 发表于 2013-4-24 14:48

本帖最后由 YincyHe 于 2013-4-25 10:59 编辑

zhaogang1960 发表于 2013-4-24 14:01
一、请说明以哪几个字段为准更新其他字段
二、请上传有这种数据的附件

Desktop.rar (22.16 KB, 下载次数: 14)
老师您看一下，具体的解释excel中也有，谢谢啦！
多次打扰很不好意思，但是我确实比较着急要用到，然后一直又没解决。

zhaogang1960 · 发表于 2013-4-24 15:04

YincyHe 发表于 2013-4-24 14:48
老师您看一下，具体的解释excel中也有，谢谢啦！
多次打扰很不好意思，但是我确实比较着急要用到，然后 ...

请重新上传工作簿，此附件工作簿与数据库无关
并说明以哪几个字段为准更新其他字段

YincyHe · 发表于 2013-4-25 10:59

zhaogang1960 发表于 2013-4-24 15:04
请重新上传工作簿，此附件工作簿与数据库无关
并说明以哪几个字段为准更新其他字段

不好意思，传错了、、、你看看这个

Desktop.rar (21.08 KB, 下载次数: 21)

zhaogang1960 · 发表于 2013-5-6 22:45

YincyHe 发表于 2013-4-25 10:59
不好意思，传错了、、、你看看这个

Sub 更新插入数据()
Dim cnn As Object, rs As Object, SQL$
Dim arr, i&, s$
arr = Range("A1:G1")
For i = 1 To UBound(arr, 2)
If i <> 1 And i <> 4 And i <> 5 And i <> 8 Then s = s & ",a." & arr(1, i) & "=b." & arr(1, i)
Next
Set cnn = CreateObject("adodb.connection")
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\test1.accdb"
SQL = "update Sheet1 a,[Excel 12.0;imex=0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) & "] b set " & Mid(s, 2) _
& " where a.CustID=b.CustID and a.ContID=b.ContID and a.SiteID=b.SiteID"
cnn.Execute SQL '不判断，更新可能存在的LastName和FirstName
SQL = "select a.* from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) _
& "] a left join Sheet1 b on a.CustID=b.CustID and a.ContID=b.ContID and a.SiteID=b.SiteID where b.CustID is null"
Set rs = CreateObject("adodb.recordset")
rs.Open SQL, cnn, 1, 3
If rs.RecordCount Then
SQL = "insert into Sheet1 " & SQL
cnn.Execute SQL
MsgBox rs.RecordCount & "行数据已经添加到数据库！", vbInformation
Else
MsgBox "工作表的数据数据库中已经存在。", vbInformation
End If
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

复制代码

zhaogang1960 · 发表于 2013-5-6 22:46

请看附件

Desktop.rar (45.13 KB, 下载次数: 160)

YincyHe · 发表于 2013-5-17 14:15

zhaogang1960 发表于 2013-5-6 22:46
请看附件

谢谢您的回答，多次麻烦了

YincyHe · 发表于 2013-5-29 09:19

zhaogang1960 发表于 2013-5-6 22:46
请看附件

但是只是把数据库中不存在的insert进去了，存在的需要update的数据没有变化

zhaogang1960 · 发表于 2013-5-29 11:54

YincyHe 发表于 2013-5-29 09:19
但是只是把数据库中不存在的insert进去了，存在的需要update的数据没有变化

如果Excel工作表数据和Access数据表表数据相同，update后当然看不出来
请上传一个数据不同的附件

zhaogang1960 · 发表于 2013-5-29 12:52

YincyHe 发表于 2013-5-29 09:19
但是只是把数据库中不存在的insert进去了，存在的需要update的数据没有变化

你给Access数据表中的数据不合理，第1、5、8作为判断的字段，不能有重复，如果有重复，不管用什么方法更新，都会更新多次，最后的结果就是等于Excel最后一个数据

YincyHe · 发表于 2013-6-3 16:40

zhaogang1960 发表于 2013-5-29 12:52
你给Access数据表中的数据不合理，第1、5、8作为判断的字段，不能有重复，如果有重复，不管用什么方法更新 ...

谢谢老师的多次回答，这个确实没法用update来更新的，因为它就是有重复的，所以我自己用了另外的方法，就是把如果有符合的就将database原有的删掉，没有符合的就留着，然后把新表里所有的数据全部插入，因为需要更新的数据的就是新表里的那些符合的数据

		自动登录	找回密码
密码			免费注册

[求助] Access VBA根据特定的条件，将excel表中的数据更新到Access数据库中