一个关于删除重复记录的问题

卡西达

问题：物料表中存在重复记录，现在要求删除掉多余的重复记录，每个物料编码只保存一条记录，要如何处理？
解答：如果重复记录所有字段的值都相同的情况下，直接用查询从物料表中取排除重复记录的数据，然后将其生成一个新表“物料表_新表”：
Select DISTINCT * INTO 物料表_新表 FROM 物料表;
运行此查询后删除原来的“物料表”，将“物料表_新表”重命名为“物料表”即可。
如果不能确定除物料编码之外的字段值是否也相同，则就不能用查询的方法，而需要用到记录集来处理了，以下是DAO方式的处理代码，ADO和这个也差不多：

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

复制代码