Hallo,
ich muss alle Dokumente (inkl. Änderungen und Löschung) aus einer Ansicht in eine andere Datenbank kopieren. Hierzu verwende ich folgendes Script als Agent:
Sub Initialize
Dim session As New NotesSession
Dim sourcedb As NotesDatabase
Dim targetdb As NotesDatabase
Dim sourceview As notesview
Dim targetview As notesview
Dim dc As NotesDocumentCollection
Dim vc As NotesViewEntryCollection
Dim doc As NotesDocument
Set sourcedb = New NotesDatabase("SERVER","database.nsf")
Set targetdb = session.CurrentDatabase
Set sourceview = sourcedb.GetView("People")
Set targetview = targetdb.GetView("all")
Set vc = targetview.AllEntries
Call vc.RemoveAll(True)
Set doc = sourceview.GetFirstDocument
While Not(doc Is Nothing)
Call doc.CopyToDatabase(targetdb)
Set doc = sourceview.GetNextDocument(doc)
Wend
End Sub
Es werde also erst alle Dokumente der Ansicht "all" aus der Ziel-DB gelöscht und anschließend werden alle Dokumente der Ansicht "People" von der Quell-DB zur Ziel-DB kopiert. Es handelt sich dabei aktuell um ca. 1500 Dokumente, aber der Agent benötigt hierfür ca. 3 Minuten. Das Problem ist hierbei offensichtlich das Löschen, denn wenn ich dies zuvor manuell mache und dann den Agent starte benötigt er nur noch 15 Sekunden.
Wie kann ich das Löschen beschleunigen?
Gruß
Peter
@eknori
Hallo,
habe mir jetzt DWFSYNC mal etwas genauer angesehen. Vielen Dank für den Tipp, denn das Tool ist genau das was ich gesucht habe.
Leider gibt es nur noch ein Problem, wenn ich das SYN-Profile mittels Agent starten will. Es kommt dann folgende Fehlermeldung
09:53:35 AM - ERROR! 1 - Unable to locate database 'names.nsf' on server 'SERVER'
Class: CCDBMGRPATH Method: IsValid @ Line 283
09:53:35 AM - PASSED FROM --> Class: CCSYNCDATASOURCEDOMINOPROFILE Method: IsValid @ Line 402 as 9999 {User-defined error}
09:53:35 AM - PASSED FROM --> Class: CCSYNCHERDOMINO Method: initFromProfile @ Line 306 as 9999 {Data SOURCE reports it's invalid: Verzeichnis}
09:53:35 AM - PASSED FROM --> [Method: Sync Line 192] as 91 {Object variable not set}
Starte ich das SYN-Profile direkt, also über "Sync Now!" läuft es ohne Probleme.
Hast Du eventuell eine Lösung hierfür?
Gruß
Peter