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

jhzghua

谢谢版主！

autumnalRain

大师好！请您指导下这个贴子：如何得到后进先出法的产品单价。万分感谢！
http://club.excelhome.net/forum. ... p;extra=#pid8561663

圣手智多星

http://club.excelhome.net/thread-1292246-1-1.html 这个怎么处理

tyxvba7529

1. 这句真看不懂怎么就把表中有数据库中无得筛选出来的。b 里面没有名字， 感觉应该筛选为空的啊

1. a left join Sheet1 b on a.LastName=b.LastName and a.FirstName=b.FirstName  where b.LastName is null

复制代码

2. 如果同名字工作表多行， 也不会被插入到数据库啊。

1.   If j + 1 > n Then Exit For '如果工作表中该人员记录次序大于数据库中的记录数则退出循环

复制代码

jsgj2023

占位学习。

凯哥003

zhaogang1960 发表于 2013-6-3 19:53
2003代码基本相同，请看附件

赵老师：excel如何将合并单元格录入ACCESS

kinkon123

向赵版致敬

maukiu

这个思路有没有问题？先建立一个ACCESS链接，取到RS数据赋值给数组，数组处理完毕后，再建立一个ADO另外一个ACCESS表，然后再把数组的数据更新到数据库表中。

zhaogang1960

maukiu 发表于 2020-12-7 15:11
这个思路有没有问题？先建立一个ACCESS链接，取到RS数据赋值给数组，数组处理完毕后，再建立一个ADO另外一 ...

此思路可行，但速度太慢
参见我写的下列帖子1楼方法：
用ExcelVBA将多个列数不完全相同的文本文件或csv数据导入到Access数据库中的三种方法
http://club.excelhome.net/thread-740548-1-1.html
(出处: ExcelHome技术论坛)

zhaogang1960

maukiu 发表于 2020-12-7 15:11
这个思路有没有问题？先建立一个ACCESS链接，取到RS数据赋值给数组，数组处理完毕后，再建立一个ADO另外一 ...

再发一个《ExcelVBA与数据库整合应用范例精讲》中的实例代码：
实例5-8  将工作表数据保存到已有的Access数据库（数组方式）（ADO）AddNew

1. Public Sub 实例5_8()
   
2.     Dim myData As String, myTable As String
   
3.     Dim wb As Workbook
   
4.     Dim ws As Worksheet
   
5.     Dim myDataArrary As Variant
   
6.     Dim cnn As ADODB.Connection
   
7.     Dim rs As ADODB.Recordset
   
8.     Set wb = ThisWorkbook
   
9.     Set ws = wb.Sheets("总公司")
   
10.     myData = wb.Path & "\myData.mdb"
    
11.     myTable = "总公司销售记录"
    
12.     With ws.Cells(1, 1).CurrentRegion
    
13.         myDataArray = .Value
    
14.     End With
    
15.     Set cnn = New ADODB.Connection
    
16.     With cnn
    
17.         .Provider = "microsoft.jet.oledb.4.0"
    
18.         .Open myData
    
19.     End With
    
20.     n = ws.Range("A65536").End(xlUp).Row
    
21.     For i = 2 To n
    
22.         Sql = "select * from " & myTable _
    
23.         & " where 日期=#" & Format(ws.Cells(i, 1).Value, "yyyy-mm-dd") & "#" _
    
24.         & " and 商品名称='" & Cells(i, 2).Value & "'" _
    
25.         & " and 规格='" & Cells(i, 3).Value & "'" _
    
26.         & " and 单价=" & Cells(i, 4).Value _
    
27.         & " and 销售量=" & Cells(i, 5).Value
    
28.         Set rs = New ADODB.Recordset
    
29.         rs.Open Sql, cnn, adOpenKeyset, adLockOptimistic
    
30.         If rs.RecordCount = 0 Then
    
31.             rs.AddNew
    
32.             For j = 1 To rs.Fields.Count
    
33.                 rs.Fields(j - 1) = myDataArray(i, j)
    
34.             Next j
    
35.             rs.Update
    
36.         Else
    
37.             For j = 1 To rs.Fields.Count
    
38.                 rs.Fields(j - 1) = myDataArray(i, j)
    
39.             Next j
    
40.             rs.Update
    
41.         End If
    
42.     Next i
    
43.     MsgBox "数据保存完毕！", vbInformation + vbOKOnly
    
44.     rs.Close
    
45.     cnn.Close
    
46.     Set wb = Nothing
    
47.     Set ws = Nothing
    
48.     Set rs = Nothing
    
49.     Set cnn = Nothing
    
50. End Sub
    
51. 
    

复制代码