Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: RvM am 08.01.04 - 12:02:39
-
???
Erst einmal allen ein gutes neues Jahr!!
Und nun meine Prob:
Ich wollte per Agenten nach dem Abspeichern eines Doks dieses Dok in eine zweite DB kopieren. Dafür setze ich folgenden Agenten, der über eine Aktion aufgerufen wird:
Dim ws As New NotesUIWorkspace
Dim s As New Notessession
Dim db As NotesDatabase
Dim oldDoc As NotesDocument
Dim newDoc As NotesDocument
Set db = s.GetDatabase("","hstag.nsf")
Set oldDoc = ws.CurrentDocument.Document
Set newDoc = oldDoc.CopyToDatabase(db)
Am Ende des Agentendurchlauf bekomme ich die Fehlermeldung, das die DB "hstag.nsf" nicht geöffnet ist.
Wo ist der fehler im Script?
-
Liegt denn die DB wirklich lokal?
Ob die DB offen ist, würde ich im Code abfragen:
Dim ws As New NotesUIWorkspace
Dim s As New Notessession
Dim db As NotesDatabase
Dim oldDoc As NotesDocument
Dim newDoc As NotesDocument
Set db = New NotesDatabase("","")
call db.Open("","hstag.nsf")
if db.IsOpen then
Set oldDoc = ws.CurrentDocument.Document
Set newDoc = oldDoc.CopyToDatabase(db)
end if
-
Beide DB's liegen auf dem gleichen Server, aber nicht lokal, sondernim Netz.
-
Dann öffne die DB doch einfach vorher mit db.Open.
Du kannst natürlich vorher auch prüfen, ob sie schon geöffnet ist und dann öffnen oder nicht.
8<---Schnipp aus der Designerhilfe :
Opens a database. A database must be open to access all its properties and methods. For details on accessing the properties and methods of a database, see the Usage section in NotesDatabase.
-
:D
@Glombi:
danke - das wars!!!