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
Véase también
GetDatabase method
Glosario
¿Desea opinar sobre la
Ayuda
o sobre la
utilidad del producto
?
Ayuda sobre la Ayuda
Todo el contenido de la Ayuda
Glosario