[AP] (LS) Agent System Administration\.Edit History Database Path LS

 (Options)
Option Public
Option Declare

Sub Initialize

On Error GoTo errorhandler

Dim session As New NotesSession

Dim uiws As New NotesUIWorkspace

Dim uidb As NotesUIDatabase

Set uidb = uiws.CurrentDatabase

Call uiws.SetTargetFrame("IndexMain")

Dim xViewName As String

xViewName = "vByLibraryDBName"

Call uidb.OpenView(xViewName)

TheEnd:

Exit Sub

ErrorHandler:

Dim strErr As String

strErr = "error line = " + Str(erl) + ", error = " + Error$

Print strErr

Resume TheEnd

End Sub

[View]

9查詢\9.1.歷史資料庫查詢 | vByLibraryDBName

條件：SELECT  (Form = "fLibrary")

column1: tLibDBName

[Form]

fLibrary | fLibrary

欄位：

資料庫名稱 tLibDBName

資料庫伺服器 tLibDBServer

資料庫路徑 tLibDBPath