Пытаюсь скопировать документы из бд(находится на локальном диске) в бд на сервере.
Код:
На первом же документе в строчке
Вываливается ошибка:
Notes error: Someone else modified this document at the same time(c:\local_db.nsf)
В чем дело?
Код:
Код:
Dim ns As New NotesSession
Dim db As NotesDatabase
Dim dbs As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db=ns.CurrentDatabase
Set dbs=ns.GetDatabase("kir/kod","db.nsf",False)
If dbs Is Nothing Then
Print "db is nothing"
Exit Sub
End If
Set view=db.GetView("View")
Set doc=view.GetFirstDocument
While Not doc Is Nothing
Call doc.CopyToDatabase(dbs)
Set doc=view.GetNextDocument(doc)
Wend
На первом же документе в строчке
Код:
Call doc.CopyToDatabase(dbs)
Notes error: Someone else modified this document at the same time(c:\local_db.nsf)
В чем дело?