LOTUSSCRIPT /COM/OLE のクラス
例:GetDatabase メソッド
1. 次のエージェントはデータベースを取得し、結果として得られた NotesDatabase オブジェクトを IsOpen を使用してテストし、データベースが存在し、開けることを確認します。
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. 次のエージェントはデータベースを取得し、データベースが存在し開ける場合のみ NotesDatabase オブジェクトを作成します。エージェントは、NotesDatabase オブジェクトが作成されたかどうかを確認するテストを行います。
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
関連項目
GetDatabase メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集