Domino 9 und frühere Versionen > ND8: Entwicklung

NotesDatabase.Title -> Database has not been opened yet

(1/2) > >>

MasterminD:
Hallo

Ich habe einen Agent zusammengestellt, der folgendes LotusScript ausführt.
Er soll MailArchiv Datenbanken Titel renamen.

Dazu liest er aus einer Stammdaten DB (in der befindet sich auch dieser Agent) den Pfad/Filename zum Archiv DB und den zu verwendenden Titel aus.
Das funktioniert auch soweit.

Jedoch kann ich den Titel dieser DB nicht ändern, da die Meldung "Database  ... has not been opened yet" erscheint.

Was mache ich falsch?

Danke für eure Hilfe
(Durch Suchen im Forum bin ich nicht schlauer geworden, Google half mir auch nicht weiter)


--- Code: ---Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim dbpath As NotesItem
Dim dbtitle As NotesItem

Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()

While Not(doc Is Nothing)
  Set dbpath = doc.GetFirstItem( "ArchiveDb" )
  Set dbtitle = doc.Getfirstitem( "ArchiveDatabaseTitle" )
  'MessageBox dbpath.Text
  'MessageBox dbtitle.Text
   
  Dim moddb As New NotesDatabase( "", dbpath.Text )
  Call moddb.Open("", dbpath.Text)
  MessageBox moddb.FileName,, "DB File Name"
  moddb.Title = dbtitle.Text
  MessageBox moddb.Title,, "DB Title"
 
  Set doc = collection.GetNextDocument(doc)
Wend
--- Ende Code ---

ascabg:
Hallo,

Den Titel welcher Datenbank?


Andreas

MasterminD:
Tja? Ich bin kein LotusScripter, deshalb.

Ich dachte mir hald, da ich mir mit dim ein NotesItem angelegt habe,


--- Code: ---Dim dbpath As NotesItem
Dim dbtitle As NotesItem
--- Ende Code ---

ich dieses auch mit set befüllen muss.


--- Code: ---Set dbpath = doc.GetFirstItem( "ArchiveDb" )
Set dbtitle = doc.Getfirstitem( "ArchiveDatabaseTitle" )
--- Ende Code ---

Für Verbesserungen bin ich aufgeschlossen :)

Aber soweit funktioniert es ja. Ich kann mir den DBName (NotesDatabase.DBName) ausgeben lassen. Nur das NotesDatabase.Titel will nicht.

Der Get Aufruf bring einen leeren String zurück und der Set Aufruf eben die beschriebene Meldeung "... not been opened yet"

ascabg:
Sorry. Fehler von mir. Ich hatte die Deklarationen der Variablen ueberlesen.

Daher nun noch mal.
Bei welcher Datenbank kommt es denn zu dem besagten Fehler?

Andreas

MasterminD:
Wenn diese Zeile ausgeführt wird


--- Code: ---moddb.Title = dbtitle.Text
--- Ende Code ---

Bei der DB, von der der Titel geändert werden soll, handelt es sich um eine MailArchive DB mit einer R7 Schablone.

Navigation

[0] Themen-Index

[#] Nächste Seite