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

makaset

Well-Known Member
14.03.2007
128
0
#1
привет Всем. Такая ситуация. есть на сервер две базы мен надо сделать что при регистрации документа если документ совподает оприделенным усовиям тогда дублировать на другую базу т.е

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


за ранее благодарен
 
S

Sandr

Гость
#2
Код:
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
 
F

fvoice

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