Get a handle to any database anywhere in your Notes environment. This code works by getting the database details from the Catalog, which is assumed to be in the root of the server and will not move.
Function GetDatabaseByTitle ( dbtitle As String) As NotesDatabase Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase Dim targetdb As New NotesDatabase ("","") Dim catalog As NotesDatabase Set catalog = session.GetDatabase ( db.Server, "catalog.nsf") Set configview = catalog.GetView ("DatabasesByTitle") Set configdoc = configview. GetDocumentByKey (dbtitle) Set targetdb = session.GetDatabase ( configdoc.server(0), configdoc.Pathname(0) ) If targetdb Is Nothing Then Messagebox dbTitle & " Not Found" Else Set GetDatabaseByTitle = targetdb Messagebox targetdb.Title End If End Function
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip exchange by member Patrick Williams. Please let others know how useful it is via the rating scale below. Do you have a useful Notes/Domino tip or code to share? Submit it to our monthly tip contest and you could win a prize and a spot in our Hall of Fame.
This was first published in July 2004