1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

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

    Alex_glas Гость

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

    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 ()
    
    .....
     
  2. velitchestvo

    velitchestvo Гость

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

    Alex_glas Гость

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

    allex Гость

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

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

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


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

    Ronchik Гость

    Репутация:
    0
    Для: 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"
     
Загрузка...
Статус темы:
Закрыта.

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