问:用VBA代码删除多笔重复记录的疑惑

fnsmydyang

删除多笔重复记录，只保留一笔记录，我分别写了三段代码，但只有二段代码可行，不明其理，上来问问各位。。。
两个Recodset对象全部用DAO   ‘行不通，无法删除，但程序可正常运行
Public Sub AA()
   Dim I As Integer
   Dim N As Integer
   Dim m As DAO.Recordset
   Dim RS As DAO.Recordset
   Set RS = CurrentDb.OpenRecordset("唯一")
   Do Until RS.EOF
      Set m = CurrentDb.OpenRecordset("SELECT * FROM 物料表 where 物料编码='" & RS("物料编码") & "'")
      If m.RecordCount > 1 Then
         For I = 1 To m.RecordCount - 1
             m.Delete
             N = N + 1
             m.MoveNext
         Next
      End If
      RS.MoveNext
   Loop
   MsgBox "共删除" & N & "笔重复记录"
End Sub
两个Recodset对象分别用DAO/ADO   
Public Sub BB()           '可以正常删除，程序可正常运行
   Dim I As Integer
   Dim N As Integer
   Dim m As ADODB.Recordset
   Set m = New ADODB.Recordset
   Dim RS As DAO.Recordset
   Set RS = CurrentDb.OpenRecordset("唯一")
   Do Until RS.EOF
      m.Open "SELECT * FROM 物料表 where 物料编码='" & RS("物料编码") & "'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
      If m.RecordCount > 1 Then
         For I = 1 To m.RecordCount - 1
             m.Delete
             N = N + 1
             m.MoveNext
         Next
      End If
      m.Close
      RS.MoveNext
   Loop
   MsgBox "共删除" & N & "笔重复记录"
End Sub
两个Recodset对象全部用ADO
Public Sub CC()                   '可以正常删除，程序可正常运行
   Dim I As Integer
   Dim N As Integer
   Dim m As ADODB.Recordset
   Set m = New ADODB.Recordset
   Dim RS As ADODB.Recordset
   Set RS = New ADODB.Recordset
   RS.Open "SELECT DISTINCT 物料编码 FROM 物料表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   Do Until RS.EOF
      m.Open "SELECT * FROM 物料表 where 物料编码='" & RS("物料编码") & "'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
      If m.RecordCount > 1 Then
         For I = 1 To m.RecordCount - 1
             m.Delete
             N = N + 1
             m.MoveNext
         Next
      End If
      m.Close
      RS.MoveNext
   Loop
   MsgBox "共删除" & N & "笔重复记录"
End Sub

红尘如烟

更简单的办法: 打开一个对【物料编码】字段排序的记录集，然后循环记录，如果当前物料编码等于前一条记录的物料编码则删除之

1. Dim rst As DAO.Recordset
   
2. Dim strTemp As String
   
3. 
   
4. Set rst=CurrentDb.OpenRecordset("SELECT * FROM 物料表 ORDER BY 物料编码")
   
5. If rst.RecordCount>0 Then
   
6.     rst.MoveFirst
   
7.     strTemp=rst!物料编码
   
8.     rst.MoveNext
   
9.     Do Until rst.EOF
   
10.         If rst!物料编码=strTemp Then
    
11.             rst.Delete
    
12.         Else
    
13.             strTemp=rst!物料编码
    
14.         End If
    
15.         rst.MoveNext
    
16.     Loop
    
17. End If
    
18. rst.Close
    
19. Set rst=Nothing
    

复制代码

fnsmydyang

谢谢红尘老大的指点,受益良多......

ycxchen

两个Recodset对象全部用DAO   ‘行不通，无法删除，但程序可正常运行
Public Sub AA()
   Dim I As Integer
   Dim N As Integer
   Dim m As DAO.Recordset
   Dim RS As DAO.Recordset
   Set RS = CurrentDb.OpenRecordset("唯一")
   Do Until RS.EOF
      Set m = CurrentDb.OpenRecordset("SELECT * FROM 物料表 where 物料编码='" & RS("物料编码") & "'")
      If m.RecordCount > 1 Then
         For I = 1 To m.RecordCount - 1
             m.Delete
             N = N + 1
             m.MoveNext
         Next
      End If
      RS.MoveNext
   Loop
   MsgBox "共删除" & N & "笔重复记录"
End Sub
我也想知道上面代码错在什么地方

yihesmxx

学习学习