Suche: 2 lokale Datenbanken miteinander replizieren

[Glombi]

Hallo Notes- und Fußball-Fans,

gibt es ein Tool, mit dem man zwei lokale Notes-Datenbanken (Repliken) miteinander replizieren kann?

Ich kann mich dunkel erinnern, sowas mal gelesen zu haben 

Über den Sinn und Unsinn möchte ich erstmal nicht diskutieren.

Andreas

[ata]

... ich habe sowas in meinem Jobber drin - allerdings muß sich dazu mindestens eine der lokalen Repliken im Data-Verzeichnis und aufwärts befinden...

Toni

[Glombi]

Hallo Toni,

das ist so. Eine Datenbank befindet sich im lokalen Datenverzeichnis auf PC A. Die andere befindet sich auf einem Novelllaufwerk, welches PC B als lokales Datenverzeichnis dient.

Angestoßen wird das von PC A.

Einen Domino-Server gibts übrigens in diesem Fall nicht! Nur Clients.

Wäre es möglich, Deinen "Jobber" für einen Kunden einzusetzen?

Andreas

[ata]

... Jobber bei Kunden - dazu ist das Ding einfach zu komplex - aber ich lass dir die Routine zum Replizieren zukommen, wenn dir die was nützt...

Toni

[Glombi]

Hallo Toni,

das wäre nett, wenn Du mir die Routinen senden könntest!

Viele Grüße
Andreas

[ata]

Hallo Andreas,

ich habe es dir extrahiert - sollte laufen - habe es nicht groß getestet:

Grüßle

Toni
' #

Code

Option Explicit
'
Function GetFilePath( bMultiple As Variant , sFilters As String , sPath As String , sDefault As String ) As Variant
' # Öffnet die Dialogmaske zur Auswahl einer Datei
' # bMultiple => True = Mehrfachauswahl möglich, False = nur eine Datei kann gewählt werden
' # sFilters => Einschränkung der anzuzeigenden Dateien = "MS EXCEL|*.xls"
' # sPath => Startordner der Anfrage
' # sDefault => Vorgabename einer Datei
' # Rückgabe ist immer ein Array mit mindestens einer Variablen.
   Dim ws As New NotesUIWorkspace
   Dim sPrompt As String
   Dim vFile As Variant
   Dim sDummy( 0 to 0 ) As String
   '
   If bMultiple Then
      sPrompt = "Wählen Sie mindestens eine Datei"
   Else
      sPrompt = "Wählen Sie eine Datei"
   End If
   '
   vFile = ws.OpenFileDialog( bMultiple , sPrompt , sFilters , sPath , sDefault  )
   If IsArray( vFile ) Then
      If vFile(0) <> "" Then 
          getFilePath = vFile
       Else
          getFilePath = sDummy
       End If
   Else
      getFilePath = sDummy
   End If
End Function
Sub Initialize( )
   On Error GoTo ErrorHandle
   ' # lokale Deklarationen...
   Dim session As New NotesSession
   Dim dbLocal As NotesDatabase
   '
   Dim vFile As Variant ' # DB die NICHT im Data-Verzeichnis liegt und repliziert werden soll
   '
   vFile = GetFilePath( False , "C:\Temp\" , "Notes Database|*.nsf" , "" )
   If vFile(0) = "" Then
      Print "Abbruch - Es wurde keine Datei ausgewählt"
      Exit Sub
   End If
   '
   If Lcase( Right( vFile(0) , 4 ) ) != ".nsf" Then
      Print "Abbruch - Es wurde keine Notes-Datenbank ausgewählt"
      Exit Sub
   End If
   Set dbLocal = session.GetDatabase( "" , vFile(0) )
   If dbLocal Is Nothing Then
      Print "Abbruch - die Datenbank kann nicht initialisiert werden"
      Exit Sub
   End If
   '
   If dbLocal.Replicate( "" ) Then
      Print "... Replikation abgeschlossen"
   Else
      Print "FEHLER: Die Replikation konnte nicht durchgeführt werden!"
   End If
   '
WayOut:
   Exit Sub
ErrorHandle:
   MsgBox |FEHLER | & erl & | => | & Error , 16 , |Fehler in Zeile | & Erl  
End Sub

[ata]

... kannst du was damit anfangen?

Toni

[wfh]

Ein Tool das es kann: Collligo Workgroup Edition für Lotus Notes. Haben es bei uns seit ein paar Jahren im Einsatz.

[Glombi]

Hallo Ihr beiden,

vielen Dank für Euren Input.   

Ich komme heute erst dazu, mich wieder darum zu kümmern und gebe dann Feedback.

Andreas

[Glombi]

@Toni: Das funktioniert   

Eine kleine Änderung:
If Lcase( Right( vFile(0) , 4 ) ) != ".nsf" Then
mag er nicht: Stattdessen:
If Lcase( Right( vFile(0) , 4 ) ) <> ".nsf" Then

Danke!
Andreas