Lotus Domino Designer 7 ヘルプ - 例:Open メソッド

LOTUSSCRIPT /COM/OLE のクラス

例:Open メソッド
1 次のスクリプトは現在のコンピュータ上で最初に見つかったデータベースを開きます。スクリプトがクライアントで実行されているときはローカルコンピュータが現在のコンピュータとなり、サーバーで実行されているときはサーバーが現在のコンピュータとなります。

Dim directory As New NotesDbDirectory( "" )
Dim db As NotesDatabase
Set db = directory.GetFirstDatabase( DATABASE )
Call db.Open( "", "" )

2 次の 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

3 次の 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

4 次のスクリプトはサーバー HongKong の sales.nsf データベースを開きます。

Dim db As New NotesDatabase( "", "" )
Call db.Open( "HongKong", "sales.nsf" )

5 次のスクリプトは特定のデータベースがあるかどうかを調べます。ユーザーは文書をあるデータベースからアーカイブデータベースにアーカイブするスクリプトを持っています。アーカイブデータベースがないとき、スクリプトがアーカイブデータベースを作成します。アーカイブデータベースがあるとき、スクリプトはアーカイブデータベースを開きます。

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

関連項目

用語集

用語集