Check Duplicates

This simple script would check for duplicate values in a database & delete them.


Sub Initialize
Dim s As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim view As notesview
Dim temp As Variant
Dim temp1 As Variant
Dim dc As NotesDocumentCollection

Set db=s.currentdatabase
Set dc = db.AllDocuments
Set doc = dc.GetFirstDocument()

temp=""
For j = 1 To dc.Count

temp1=doc.KeyFieldValue

If temp1=temp Then
Call doc.remove(True)
End If
temp=temp1
Set doc = dc.GetNthDocument(j)
Next

End Sub

This was first published in November 2000

Dig deeper on Domino Resources - Part 3

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close