# Re: 如何删除一笔重复的资料

Posted by 小琳 on October 08, 1999 at 20:29:40:

In Reply to: 如何删除一笔重复的资料 posted by Sam on October 08, 1999 at 17:01:04:

:
: 我的资料库中有两笔相同的资料,想删除其中一笔, 要如何做 ???
: 请各位大哥多多指教 !!!

:::您可以使用以下的方法：
Private Sub Command1_Click()
Dim temp(10) As Integer, i As Integer
Data1.RecordSource = "select 资料表7.[no] from 资料表7 group by 资料表7.[no] having count(*)>1 order by 资料表7.[no]"
Data1.Refresh
i = 0
Do While Not Data1.Recordset.EOF
temp(i) = Data1.Recordset(0)
i = i + 1
Data1.Recordset.MoveNext
Loop
End Sub
将重覆的资料找出来，并放到阵列里，接着在将符合no
的资料先存起来，然后在使用SQL语法里的Delete叙述来将
符合的资料全部删除，再使用之前所存的资料再放入资料
库里!!!

Follow Ups:

- Re: 如何删除一笔重复的资料 John 14:39:03 10/11/99 (0)