• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

makaset

Well-known member
14.03.2007
126
0
BIT
0
привет Всем. Такая ситуация. есть на сервер две базы мен надо сделать что при регистрации документа если документ совподает оприделенным усовиям тогда дублировать на другую базу т.е

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


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

Sandr

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

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

Обучение наступательной кибербезопасности в игровой форме. Начать игру!