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

Тема в разделе "Lotus - Программирование", создана пользователем Alex_glas, 21 июн 2007.

Статус темы:
Закрыта.
  1. Alex_glas

    Alex_glas Гость

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

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

    Код (Text):
    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 ()

    .....
     
  2. velitchestvo

    velitchestvo Гость

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

    Alex_glas Гость

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

    allex Гость

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

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    а Open делать не пробовали


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

    Ronchik Гость

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

    Код (Text):
     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"
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей