доступ к базе №2 из агента в базе №1

[Alex_glas]

есть база, в ней агент. из агента идет обращение к другой базе на сервере выборка данных и вставка в базу. если запускать агант по действию то все работает. а если по расписанию то в логи пишит что неможет открыть базу
подскажите пож-та, почему?

AMgr: Agent ('Поиск и добавление документов
Added' in 'web\site\control.nsf') error message: Database \docflow\rd.nsf has not been opened yet

Sub Initialize


Dim masVal As Variant


Dim sess As New NotesSession
Dim db As notesdatabase 
Dim doc As NotesDocument
Set db = sess.currentdatabase 	
Dim collection As NotesDocumentCollection
Dim dateTime As New NotesDateTime("01/01/2007")	


Dim db_workflow As notesdatabase 
Dim s_workflow As New NotesSession
Set db_workflow = s_workflow.GetDatabase("", "\docflow\rd.nsf")
Dim doc_workflow As NotesDocument	

'	входящие документы	
searchFormula$ = "SELECT Form='InDoc' & RegNum != '' & IsDeletedDoc != '1' & FromExtSadd = ''"
Set collection = db_workflow.Search(searchFormula$,dateTime,0)		 
Set doc_workflow = collection.GetFirstDocument ()

.....

 

[velitchestvo]

Похоже что у агента нет прав. А база в которой он запускается на том же сервере что и вторая?

 

[Alex_glas]

да. обе базы на одном сервере. у агента стоит запускать от администратора.безопастности -3.

 

[allex]

А где имя сервера ?

 Set db_workflow = s_workflow.GetDatabase("", "\docflow\rd.nsf")

 

[morpheus]

а Open делать не пробовали


Пример

Dim directory As New NotesDbDirectory( "" )
Dim db As NotesDatabase
Set db = directory.GetFirstDatabase( DATABASE )
Call db.Open( "", "" )

 

[Ronchik]

Для: Alex_glas
Две сесси обявлять не нужно

 Dim sess As New NotesSession
Dim db As notesdatabase 
Dim doc As NotesDocument
Set db = sess.currentdatabase
Dim db_workflow As notesdatabase
Set db_workflow = sess.GetDatabase("", "\docflow\rd.nsf")

и скоре все путь к БД указывать так "docflow\rd.nsf"