Lotus Domino Designer 8 ヘルプ - 例:NotesDatabase クラス

LOTUSSCRIPT /COM/OLE のクラス

例:NotesDatabase クラス
1 次のスクリプトは NotesDatabase オブジェクト db を作成し、New を使って 1 つのデータベースを割り当てます。データベースはサーバー Barcelona の Domino データディレクトリの最上部にあります。データベースがある場合、New は自動的にデータベースを開くため、データベースのプロパティとメソッドにすぐにアクセスできます。

Dim db As NotesDatabase
Set db = New NotesDatabase( "Barcelona", "plan.nsf" )
Messagebox( db.Title )

2 次のスクリプトの実行結果は上記の例と同じです。ただし、NotesDatabase オブジェクト db の宣言と New の呼び出しが 1 つの行に記述されています。

Dim db As New NotesDatabase( "Barcelona", "plan.nsf" )
Messagebox( db.Title )

3 次のスクリプトは IsOpen を使ってデータベース QUACK.NSF が現在のコンピュータにあるかどうかを調べます。ないときには、スクリプトは Create メソッドを使ってデータベースをディスクに新規作成します。

Dim db As New NotesDatabase( "", "quack.nsf" )
If db.IsOpen Then
Messagebox( "The database quack.nsf already exists.")
Else
Messagebox( "Creating the database quack.nsf...")
Call db.Create( "", "", True )
db.Title = "Ducks of North America"
End If

4 次のスクリプトは db オブジェクトの宣言内で New を呼び出します。New は db を Senses\Sounds にあるデータベースに割り当てます。ディレクトリ Senses は Domino データディレクトリのサブディレクトリです。

このスクリプトがクライアントで実行されるとき、スクリプトはローカルコンピュータの CLUNK.NSF データベースを開きます。

このスクリプトがサーバー Khartoum で実行されるとき、スクリプトは Khartoum の CLUNK.NSF データベースを開きます。

Dim db As New NotesDatabase _
( "", "senses\sounds\clunk.nsf" )

Macintosh で実行されるときで CLUNK.NSF が [Senses] フォルダ内の [Sounds] フォルダにある場合、スクリプトは次のようになります。

Dim db As New NotesDatabase _
( "", "senses:sounds:clunk.nsf" )

5 次のスクリプトは Brian Flokka に現在のデータベースの［編集者］のアクセス権を与えます。現在のデータベースとはスクリプトが実行されているデータベースです。NotesSession の CurrentDatabase プロパティを使うと、スクリプトでファイル名を指定する必要がありません。このため、スクリプトを簡単にデータベース間で移行できます。

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Call db.GrantAccess( "Brian Flokka", ACLLEVEL_EDITOR )

6 次のスクリプトは Open メソッドを使ってデータベースがサーバー Asuncion にあるかどうかを調べます。データベースがあるとき、スクリプトは ACL に [Supervisors] グループを追加します。データベースがないときは、スクリプトは何も実行しません。

Dim db As New NotesDatabase( "", "" )
If db.Open( "Asuncion", "salesdocs.nsf" ) Then
Call db.GrantAccess( "Supervisors", ACLLEVEL_EDITOR )
End If

7 次のスクリプトは、New を OpenIfModified メソッドを使って、データベースがある日付以降に変更されている場合にのみデータベースを開く方法を示します。スクリプトは現在のサーバー上の SALESDOCS.NSF が昨日から変更されたかどうかを調べます。変更されているとき、スクリプトはデータベースを開いて圧縮します。

Dim db As New NotesDatabase( "", "" )
Dim dateTime As New NotesDateTime( "Today" )
Call dateTime.AdjustDay( -1 )
If db.OpenIfModified( "", "salesdocs.nsf", dateTime ) Then
Call db.Compact
End If

8 次のスクリプトは New と CreateFromTemplate メソッドを使って、新規のディスカッションデータベースをサーバー Juno に作成します。

Dim template As New NotesDatabase _
( "Anchorage", "discsw50.ntf" )
Dim brandNewDb As NotesDatabase
Set brandNewDb = template.CreateFromTemplate _
( "Juno", "suggest.nsf", True )
brandNewDb.Title = "Suggestions for Giving Campaign 1998"

関連項目

NotesDatabase クラス

用語集

フィードバック ヘルプ または プロダクトユーザビリティ?

ヘルプの使い方

すべてのヘルプ項目

用語集