Crea un agente su uno dei due db per copiare tutti i dati verso l\'altro (otherDb) database:
Dim s As New NotesSession
Dim thisDb as NotesDatabase
Dim otherDb as NotesDatabase
Dim dc As NotesDocumentCollection
Dim thisDoc as NotesDocument
Dim otherDoc as NotesDocument
Set thisDb = s.currentdatabase
Set otherDb = s.getDatabase(thisDb.Server, "Path\AltroDb.nsf", False)
If otherDb Is Nothing Then
MsgBox "Ooops!"
Exit Sub
End If
Set dc = thisDb.AllDocuments
Set thisDoc = dc.GetFirstDocument
Do until thisDoc is nothing
Set otherDoc = otherDb.createDocument()
Call thisDoc.CopyAllItems(otherDoc)
Call otherDoc.save(True, False)
Set thisDoc = dc.GetNextDocument(thisDoc)
Loop
Massimo Nadalin | Devangarde
|