LOTUSSCRIPT/COM/OLE CLASSES
Examples: GetDatabase method
1. 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
2. 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
Vedere anche
GetDatabase method
Glossario
Guida sulla Guida
Contenuto completo della Guida
Glossario