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

  • Автор темы Alex_glas
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

Alex_glas

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

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 ()

.....
 
V

velitchestvo

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

Alex_glas

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

allex

#4
А где имя сервера ?
Код:
 Set db_workflow = s_workflow.GetDatabase("", "\docflow\rd.nsf")
 

morpheus

скриптописец
07.08.2006
3 915
1
#5
а Open делать не пробовали


Пример
Код:
Dim directory As New NotesDbDirectory( "" )
Dim db As NotesDatabase
Set db = directory.GetFirstDatabase( DATABASE )
Call db.Open( "", "" )
 
R

Ronchik

#6
Для: 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"
 
Статус
Закрыто для дальнейших ответов.