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

YincyHe · 发表于 2013-4-19 09:55

我现在有一个任务就是有一个总的数据库，每天都会有新的excel表进来，要将excel中的数据update到Access中。之前就是将所有的excel数据直接导入，但是发现其实有的表，尤其是后来的表，大多数是以前的一些数据，只是某个信息比如电话住址之类的修改了，所以直接全部导入会出现一个人的信息就有好多条，但需要的只是两条。
access test.jpg

比如第一个图片中He Yun和Li Shan的信息已经存在数据库中，新的excel表中有这两人的信息，所以要按照lastname和firstname来匹配，对应的就将Access中数据更新，其他Wu Xin、Jin Jeajiong和Hu Jing在Access中没有，就添加进去。因为这些数据有两条也有一条的，所以更不知道该怎么做了。
求老师的解答，想知道这个用Access VBA怎么解决！如果我描述得还不够清楚请告诉我，在线等！

test.rar (21.89 KB, 下载次数: 61)

咱家是猫 · 发表于 2013-4-19 10:09

在Access里为表设置唯一索引的主键(可以把姓与名两个字段联合设置为主键),下次再导入新Excel工作表时,主键字段值重复的就自然不会被导入了.

YincyHe · 发表于 2013-4-19 11:20

咱家是猫发表于 2013-4-19 10:09
在Access里为表设置唯一索引的主键(可以把姓与名两个字段联合设置为主键),下次再导入新Excel工作表时,主键字 ...

那个数据库是设定好了的，没有主键，我也不能添加主键进去

咱家是猫 · 发表于 2013-4-21 17:03

可以先导出到一个临时表里,再进行第二步,将筛选过的符合条件的记录追加的目标表里,然后,清空临时表记录,方便下次再导入新记录.

YincyHe · 发表于 2013-4-22 10:58

咱家是猫发表于 2013-4-21 17:03
可以先导出到一个临时表里,再进行第二步,将筛选过的符合条件的记录追加的目标表里,然后,清空临时表记录,方便 ...

您能给出具体代码吗

YincyHe · 发表于 2013-4-23 09:34

难道没有人会吗？？？
急求大神啊！真的很着急要用的啊！

zhaogang1960 · 发表于 2013-4-23 17:03

本帖最后由 zhaogang1960 于 2013-4-23 18:01 编辑

请测试:

Sub 更新插入数据()
Dim cnn As Object, rs As Object, SQL$
Dim arr, i&, s$
arr = Range("A1:G1")
For i = 3 To UBound(arr, 2)
If i <> 5 Then
s = s & ",a." & arr(1, i) & "=b." & arr(1, i)
Else
s = s & ",a." & arr(1, i) & "=cstr(b." & arr(1, i) & ")"
End If
Next
Set cnn = CreateObject("adodb.connection")
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\test.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.LastName=b.LastName and a.FirstName=b.FirstName"
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.LastName=b.LastName and a.FirstName=b.FirstName where b.LastName 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-4-23 17:07

本帖最后由 zhaogang1960 于 2013-4-23 18:02 编辑

请看附件

test.rar (36.61 KB, 下载次数: 232)

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

zhaogang1960 发表于 2013-4-23 17:07
请看附件

我试过您的这个方法，但是会出错，因为每次就只更新一条excel中的信息到那两条上，比如说下面第一个图中是excel中的信息，两个人age的信息有不同（打比方而已），但是按您的那个方法更新之后Li Shan的两条信息都是excel中age为13的那一条，He Yun的信息则都是age为46的那一条，这正是我不知道该怎么做的地方。

zhaogang1960 · 发表于 2013-4-24 14:01

YincyHe 发表于 2013-4-24 13:48
我试过您的这个方法，但是会出错，因为每次就只更新一条excel中的信息到那两条上，比如说下面第一个图中是 ...

一、请说明以哪几个字段为准更新其他字段
二、请上传有这种数据的附件

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

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