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

YincyHe

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

Desktop.rar (22.16 KB, 下载次数: 14)

2013-4-24 14:47 上传

点击文件名下载附件

老师您看一下，具体的解释excel中也有，谢谢啦！
多次打扰很不好意思，但是我确实比较着急要用到，然后一直又没解决。

zhaogang1960

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

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

YincyHe

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

不好意思，传错了、、、你看看这个
Desktop.rar (21.08 KB, 下载次数: 22)

2013-4-25 10:59 上传

点击文件名下载附件

zhaogang1960

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

1. Sub 更新插入数据()
   
2.     Dim cnn As Object, rs As Object, SQL$
   
3.     Dim arr, i&, s$
   
4.     arr = Range("A1:G1")
   
5.     For i = 1 To UBound(arr, 2)
   
6.         If i <> 1 And i <> 4 And i <> 5 And i <> 8 Then s = s & ",a." & arr(1, i) & "=b." & arr(1, i)
   
7.     Next
   
8.     Set cnn = CreateObject("adodb.connection")
   
9.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\test1.accdb"
   
10.     SQL = "update Sheet1 a,[Excel 12.0;imex=0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) & "] b set " & Mid(s, 2) _
    
11.         & " where a.CustID=b.CustID and a.ContID=b.ContID  and a.SiteID=b.SiteID"
    
12.     cnn.Execute SQL '不判断，更新可能存在的LastName和FirstName
    
13.     SQL = "select a.* from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) _
    
14.         & "] 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"
    
15.     Set rs = CreateObject("adodb.recordset")
    
16.     rs.Open SQL, cnn, 1, 3
    
17.     If rs.RecordCount Then
    
18.         SQL = "insert into Sheet1 " & SQL
    
19.         cnn.Execute SQL
    
20.         MsgBox rs.RecordCount & "行数据已经添加到数据库！", vbInformation
    
21.     Else
    
22.          MsgBox "工作表的数据数据库中已经存在。", vbInformation
    
23.     End If
    
24.     rs.Close
    
25.     cnn.Close
    
26.     Set rs = Nothing
    
27.     Set cnn = Nothing
    
28. End Sub
    

复制代码

zhaogang1960

请看附件
Desktop.rar (45.13 KB, 下载次数: 163)

2013-5-6 22:46 上传

点击文件名下载附件

YincyHe

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

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

YincyHe

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

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

zhaogang1960

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

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

zhaogang1960

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

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

YincyHe

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

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