例: Open method

次のスクリプトは現在のコンピュータ上で最初に見つかったデータベースを開きます。スクリプトがクライアントで実行されているときはローカルコンピュータが現在のコンピュータとなり、サーバーで実行されているときはサーバーが現在のコンピュータとなります。
```
Dim directory As New NotesDbDirectory( "" )
Dim db As NotesDatabase
Set db = directory.GetFirstDatabase( DATABASE )
Call db.Open( "", "" )
```
次の LotusScript® エージェントは、NotesSession の AddressBooks プロパティで各データベースを開きます。NotesDatabase 変数の「book」を AddressBooks 要素として使用するには Variant として扱う必要があります。
```
Sub Initialize
  Dim s As New NotesSession
  Forall book In s.AddressBooks
    book.open "", ""
    Messagebox book.Title,, "Address book"
  End Forall
End Sub
```
次の Visual Basic コードは、NotesSession の AddressBooks プロパティで各データベースを開きます。NotesDatabase 変数の「book」を AddressBooks 要素として使用するには Variant として扱う必要があります。
```
Private Sub Open_Click()
Dim s As New NotesSession
s.Initialize
For Each book In s.AddressBooks
  book.Open
  List1.AddItem (book.Title)
Next
End Sub
```
次のスクリプトはサーバー HongKong の sales.nsf データベースを開きます。
```
Dim db As New NotesDatabase( "", "" )
Call db.Open( "HongKong", "sales.nsf" )
```
次のスクリプトは特定のデータベースがあるかどうかを調べます。ユーザーは文書をあるデータベースからアーカイブデータベースにアーカイブするスクリプトを持っています。アーカイブデータベースがないとき、スクリプトがアーカイブデータベースを作成します。アーカイブデータベースがあるとき、スクリプトはアーカイブデータベースを開きます。
```
Dim archiveDb As New NotesDatabase( "", "" )
Dim originalDb As New NotesDatabase( "", "product.nsf" )
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
If ( Not ( archiveDb.Open( "", "archive¥" &  _
originalDb.FileName ) ) ) Then
  Set archiveDb = originalDb.CreateCopy( "", "archive¥"  _
  & originalDb.FileName )
  Call archiveDb.GrantAccess( "Ivan Ash", ACL_MANAGER )
End If
```