Lotus Domino Designer 8 ヘルプ - 例:データベースを作成する

LOTUSSCRIPT /COM/OLE のクラス

例:データベースを作成する
1 次の例では、SALES2.NSF という名前のローカルデータベースを作成します。データベースは初期化されません。このデータベースはプログラムを使ってデータを保存できますが、Lotus Notes のユーザーインターフェースからはアクセスできません。

Sub Initialize
Dim db As New NotesDatabase("", "")
If db.IsOpen Then Messagebox "Is Open" Else Messagebox "Not open"
Call db.Create("", "sales2.nsf", True)
If db.IsOpen Then Messagebox "Is Open" Else Messagebox "Not open"
End Sub

2 次の例では、Lotus Domino のテンプレート DISCUSS4.NTF を用いて SALEDISC.NSF というローカルデータベースを作成し、データベース名を変更します。discuss はテンプレートのデータベースオブジェクトで、db は新規データベースのデータベースオブジェクトです。CreateFromTemplate の 3 番目の引数は設計の変更を引き継ぎます。

Sub Initialize
Dim discuss As New NotesDatabase("", "DISCUSS4.NTF")
Dim db As NotesDatabase
Set db = discuss.CreateFromTemplate _
("", "SALEDISC", True)
db.Title = "Sales Discussion Database"
End Sub

3 次の例では、サーバー上にあるデータベースのローカルレプリカを作成して初期化します。

Sub Initialize
Dim names As New NotesDatabase("MARKET", "SALEDISC")
Dim db As NotesDatabase
Set db = names.CreateReplica("", "SALEDISC")
Messagebox db.Title
If db.Replicate("MARKET") Then
Messagebox "Replication successful"
Else
Messagebox "Replication not successful"
End If
End Sub

4 次の例では、NAMES.NSF のコピーを作成します。

Sub Initialize
Dim names As New NotesDatabase("", "NAMES")
Dim db As NotesDatabase
Set db = names.CreateCopy("", "NAMESCPY")
End Sub

関連項目

データベースを作成または削除する

用語集

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

ヘルプの使い方

すべてのヘルプ項目

用語集