Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: TMC am 30.09.03 - 17:07:56
-
Hi,
folgender Code erstellt eine lokale Replik der angegebenen DB:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim replica As NotesDatabase
Set db = New NotesDatabase("server3" , "db123.nsf")
If Messagebox ("Do you really want to create a local replica?",1 + 32,"Question") = 1 Then
Continue = True
Else
Exit Sub
End If
Set replica = db.CreateReplica( "", "testdb.nsf" )
End Sub
Dies soll als Button an Homeoffice-Mitarbeiter geschickt werden, damit diese simpel eine lokale Replik erstellen können.
So weit so gut, nur erstellt Notes damit nicht einen Eintrag in der Replikatorseite und fügt die Replik auch nicht als Kachel hinzu.
Was müsste man da noch im Script ergänzen / modifizieren?
Grüße,
TMC
-
Wieder mal Multitasking:
- Neue lokale Replik dem NotesUIWorkspace hinzufügen (AddDatabase)
- Neue lokale Replik mit NotesDatabase.Replicate (Servername) replizieren lassen.
Irgendwie war mir aber so, als wenn wir das hier im Forum in den letzten zwei Monaten schon mal gehabt hatten, aber da bin ich mir jetzt nicht so ganz sicher ...
Viel Glück und wieder Grüsse von "Ober... nach Nieder...")
Bernhard
-
Hi,
das Hinzufügen als Kachel geht über
Call notesUIWorkspace.AddDatabase( server$ , filename$ )
Nen besonderer Befehl, um die Datenbank in die Replikatorseite einzutragen kenne ich nicht, evtl. macht er das mit dem AddDatabase aber auch mit. Einfach mal ausprobieren.
-
Hi Helfende,
danke für die schnelle Info.
Ein simples Database Open der lokalen Replik hat schon gereicht :-)
Schönen Nachmittag/Abend,
TMC