связка между базами

Тема в разделе "Lotus - Программирование", создана пользователем makaset, 29 янв 2008.

  1. makaset

    makaset Well-Known Member

    Регистрация:
    14 мар 2007
    Сообщения:
    126
    Симпатии:
    0
    привет Всем. Такая ситуация. есть на сервер две базы мен надо сделать что при регистрации документа если документ совподает оприделенным усовиям тогда дублировать на другую базу т.е

    база 1
    база2
    регистрация документа
    если база1.поле1 = "sdfsd" тогда
    база2 создать новый докумет
    база2.поле1 = база1.поле1
    база2.поле2 = база1.поле2


    за ранее благодарен
     
  2. Sandr

    Sandr Гость

    Код (Text):
    dim db1 as notesdatabase
    dim db2 as notesdatabase
    dim doc1 as notesdocument
    dim doc2 as notesdocument
    dim server as string
    dim dbfile as string
    dim ws as new notesuiworkspace

    set doc1 = ws.currentdocument.document
    set db1 = doc.parentDatabase

    'тут не понятно, какие данные у вас есть, для того, что бы получить вторую БД, в моем примере у вас есть имя сервера и имя БД (server, dbfile)

    server = "My\Server\Name
    dbfile = "MyDatabase.nsf"
    set db2 = New NotesDatabase( server, dbfile )

    if doc.getItemvalue("поле1")(0) = "sdfsd" then
    'тут не понятно, Вам нужен во второй базе такой же докумет как и в первой, или другой, но с наличием этих же полей?
    Set doc2 = doc1.CopyToDatabase( db2 ) 'Это копирование
    end if
     
  3. fvoice

    fvoice Гость

    Для: makaset
    а в чем проблема то?
    после проверки, можно просто создать документ во второй БД, можно использовать метод CopyToDatabase:
    Код (Text):
    Set newNotesDocument = notesDocument.CopyToDatabase( notesDatabase )
     
Загрузка...

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