Уважаемые программисты. Нужно собрать информацию по каждой БД, находящейся в каталоге …Notes/Data и занести информацию в документ по форме DBInventory (для каждой БД отдельный документ). DBInventory содержит поля: DBTitle, DBFilepath, DBSize, DBReplicaID.
Начала писать код и не могу найти как создавать документ по форме. Помогите пожалуйста. ))
<!--shcode--><pre><code class='vb'>Sub Click(Source As Button)
Dim dbDir As New NotesDBDirectory("")
Dim db As NotesDatabase
Dim MBc As Long
Dim DBc As Integer
Dim s As New NotesSession
Dim db1 As notesdatabase
Set db1=s.CurrentDatabase
Set db = dbDir.GetFirstDatabase(DATABASE)
Do Until db Is Nothing
DBc=DBc+1
MBc=MBc+db.Size
Msgbox "Counter: " & DBc & Chr(10) & "Title: " & db.Title & Chr(10) & "FilePath: " & db.FilePath & Chr(10) & "Size: " & db.Size & Chr(10) & "ReplicaID: " & db.ReplicaID
Set db = dbDir.GetNextDatabase
Loop
End Sub[/CODE]

 

Set newdoc = db.CreateDocument

newdoc.Form = "DBInventory"

 

Нужно собрать информацию по каждой БД, находящейся в каталоге …

есть стандартное средство - база типа Catalog (catalog.nsf на сервере по умолчанию и задача соответствующая). Там есть данные в достаточном кол-ве.
Рекомендую посмотреть в админском хелпе тему "The Domain Catalog" - возможно ничего кодировать и не надо...

 

Где то так:

Const nameform="MyForm"	
Dim ns As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db=ns.CurrentDatabase
Set doc=New NotesDocument(db)
doc.Form=nameform
'определяем значения полей
doc.NameField1=Val1
'...
'если нужно вычисляем поля по форме
Call doc.ComputeWithForm(False,False)
'сохраняем
Call doc.Save(False,False)

 

Спасибо большое, вы мне очень помогли ))