Войти
 
 
   
 
  
Новости Notes.ру Библиотека Биржа труда Вопрос - ответ Форум Регистрация Поиск О проекте
Разделы
О Notes
Советы
Шаблоны и примеры
Литература
Презентации
 
Java: внутри файла MS Excel 2007. Часть четвёртая   В публикуемой сегодня части статьи заканчивается описание процедур загрузки электронной таблицы и начинается описание самого интересного - каким образом получить данные, хранящиеся в ячейках таблицы
Шаблоны и примеры Читать статью
 
Java: внутри файла MS Excel 2007. Часть третья   В предлагаемой вниманию читателя третьей части статьи о структуре файла электронной таблицы Microsoft Excel формата 2007 речь идёт о коде Java, "разархивирующем" файловый поток и формирующем объекты, с которыми предстоит взаимодействовать при дальнейшей обработке данных электронной таблицы
Шаблоны и примеры Читать статью
 
Java: внутри файла MS Excel 2007. Часть вторая   В настоящем материале автор постарается систематизировать свои знания о том, как устроено хранение данных электронной таблицы, и презентовать небольшую Java-библиотеку, предоставляющую возможность чтения данных и заполнения файла электронной таблицы Microsoft Excel
Шаблоны и примеры Читать статью
 


Советы

Главная   Библиотека   Советы

Пакетное создание реплик с сервера на сервер или локальных реплик

Григорий Брумберг,
ОАО Вымпелком, Москва
Случаи, когда необходимо перенести структуру баз данных с одного сервера на другой, не так уж редки в практике администратора. Связаны они, в большинстве случаев, с миграцией ресурсов сервера Domino на новые серверы
Задача Admin Process, автоматизирующая подобные действия, требует дополнительной настройки в случае, когда серверы расположены в различных деревьях имен (выпуск кросс-сертификатов, создание документов Connection и прочее). Эта работа оказывается благодарной, если серверам какое-то время придется "жить вместе"
В случаях, если серверы в дальнейшем не планируется использовать во взаимодействии, автору часто помогает следующий код. Используйте его в соответствующем агенте
Это решение может быть полезно и при необходимости создать реплики на локальной станции пользователя

Sub Initialize
Dim s As New NotesSession
Dim folder As NotesDbDirectory


Dim serv As String
Dim path As String


Dim db As NotesDatabase
Dim repdb As NotesDatabase
Dim trepdb As NotesDatabase


Dim FiletoOpen As String, Findbang As Integer, newserver As String, newpathprefix As String

newserver=<Иерархическое имя сервера, на котором создаются реплики баз, укажите пустую строку для создания локальных реплик>
serv=
<Иерархическое имя сервера-источника>
path=
<Каталог данных, в котором размещены базы, например, "*mail\*">
newpathprefix =
<Каталог сервера-приемника, в котором размещаются реплики>
Set folder=s.GetDbDirectory(serv)
Print ">>folder get on " & folder.Name
Set db=folder.GetFirstDatabase(DATABASE)

On Error 4060 Goto err4060hnd
On Error Goto errhnd

While Not db Is Nothing
If Lcase(db.Filepath) Like path Then
Print ">>beginning with " & db.Title
FiletoOpen = db.FilePath
Findbang = Instr( FiletoOpen, "!!")
If Findbang <> 0 Then
FiletoOpen = Right(FiletoOpen, Len(FiletoOpen) - Findbang - 1)
End If
Dim tdb As New NotesDatabase (serv, FiletoOpen)
If Not tdb.isOpen Then
Msgbox "Could not open " & db.Title
Else
Set trepdb=s.getdatabase(newserver, newpathprefix & FiletoOpen, False)

' Проверяется только на наличие файла по пути. Если необходимо - можно проверить
' наличие реплики по flag = notesDatabase.OpenByReplicaID( server$, replicaID$ )

If trepdb Is Nothing Then
Set repdb = tdb.CreateReplica( newserver, newpathprefix & FiletoOpen)
Print ">> " & repdb.Title & " created."
Else
Print ">>Database " & trepdb.FilePath & "already exists!"
End If
End If
End If

redlabel:
Set db=folder.GetNextDatabase
Wend

Msgbox "Done!"
Exit Sub
err4060hnd:
Msgbox "Have no access to " & tdb.Title & "!"
Goto redlabel
errhnd:
Msgbox "Line: " & Cstr(Erl) & " - " & Error(Err)
Goto redlabel
End Sub


Best regards
Grigory (Girsha) Brumberg
 
  Опубликовано — 12/30/2003 |    


Мероприятия
Пресс-релизы
Биржа труда
Последнее на форуме
 
А так же:
Lotus notes и ЭЦП
29.09.2017 17:16:14
Как удалить профиль?
16.04.2016 00:08:51
Скопировать в буфер поле документа
24.05.2015 08:55:52
 
© LOGOSPHERE.RU