Examples: GetDatabase method
- This agent gets a database and tests the resulting NotesDatabase
object with IsOpen to ensure that the database exists and can be opened.
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.GetDatabase("snapper", "names2")
If Not db.IsOpen Then
Messagebox "names2.nsf does not exist on snapper",, _
"No names2.nsf"
Else
Messagebox db.Title,, "Title of names2.nsf"
End If
End Sub
- This agent gets a database, creating a NotesDatabase object only
if the database exists and can be opened. The agent tests to see if
the NotesDatabase object was created.
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.GetDatabase("snapper", "names2", False)
If db Is Nothing Then
Messagebox "names2.nsf does not exist on snapper"
Else
Messagebox db.Title,, "Title of names2.nsf"
End If
End Sub
Have feedback?
Google Analytics is used to store comments and ratings. To provide a comment or rating for a topic, click Accept All Cookies or Allow All in Cookie Preferences in the footer of this page.