LOTUSSCRIPT /COM/OLE のクラス
例:データベースのプロパティにアクセスする
1.
次の例では、ビルトインのデータ型であるデータベースのプロパティの値を出力します。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Messagebox "Title:" & db.Title & Chr(10) _
& "File name:" & db.FileName & Chr(10) _
& "Path name:" & db.FilePath & Chr(10) _
& "Replica ID:" & db.ReplicaID & Chr(10) _
& "Size:" & db.Size & Chr(10) _
& "Created:" & Chr(10) _
& "Last modified:" & db.LastModified
If db.IsOpen Then
Messagebox "Database is open"
Else
Messagebox "Database is not open"
End If
Forall manager In db.Managers
Messagebox "Manager:" & manager
End Forall
Messagebox "Categories:" & db.Categories
If db.TemplateName <> "" Then
Messagebox "Template name " _
& db.TemplateName
End If
If db.DesignTemplateName <> "" Then
Messagebox "Design template name" _
& db.DesignTemplateName
End If
If db.IsFTIndexed Then
Messagebox "Is full-text indexed " _
& db.LastFTIndexed
End If
Messagebox "Current access level:" _
& db.CurrentAccessLevel & Chr(10) _
& "Percent used:" & db.PercentUsed & Chr(10) _
& "Server name:" & db.Server & Chr(10) _
& "Size limit:" & db.SizeQuota
Messagebox "FolderReferenceEnabled:" _
& db.FolderReferencesEnabled
Messagebox "IsDirectoryCatalog:"_
& db.IsDirectoryCatalog
Messagebox "Maxsize:"_
& db.Maxsize
End Sub
2. 次の例では、データベースの各ビューの名前を出力します。NotesView オブジェクトが定義され、Views プロパティにそれぞれの値が設定されます。ビューの名前は、ビューオブジェクトのプロパティです。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim views As Variant
Set db = session.CurrentDatabase
views = db.Views
Forall v In views
Messagebox( v.Name )
End Forall
End Sub
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集