Replik ID einer Datenbank (nicht der aktiven) auslesen

[smoky]

Hallo,

Ich bin wieder mal auf der Suche nach einer Scriptzeile  :-)

Es gibt eine Schaltfläche mit der die User eine Datenbank auswählen können. Damit lese ich den Dateinamen und Titel aus. Nun hätte ich gerne auch noch die Replik ID. Aber auch nach längerem Suchen habe ich nicht herausgefunden wie ich es richtig angeben muß um diese zu bekommen.

Sub Click(Source As Button)
   Dim doc As NotesDocument
   Dim db As Variant
   Set ws = New NotesUIWorkspace
   Set doc = ws.currentdocument.document
   db  = ws.Prompt(13, "Please choose the Invoice DB", "1")
   fileName$ = db(1) ' Das ist der Dateiname Verzeichnis\Datei.nsf
   fileName1$ = db(2) ' Das ist der Titel
        .
        .
        .
Wie muß ich jetzt ReplicaID richtig einsetzen um das gewünschte Ergebnis zu erhalten?
Muß ich vorher die ausgewählte DB tatsächlich öffnen oder gibt es doch eine einfache Zeile?

Danke vorab schon mal

[klaussal]

Auf die Schnelle (aus der Designer-Hilfe):

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Messagebox( db.ReplicaID )

[smoky]

Hallo,

das Set db = session.CurrentDatabase bringt mir aber nur die aktuelle Datenbank

Wenn ich das verwenden möchte komm ich nicht dran vorbei die gewünschte DB erst zu öffnen.

[koehlerbv]

Du musst mit den Werten in db (0) und in db (1) die ausgewählte Datenbank instantiieren. Dann kommst Du über das Database Object an die Property ReplicaID problemlos ran.

Bernhard

[smoky]

Hallo Bernhard,

Tut mir leid aber ich muß nochmals nachfragen denn damit komm ich nicht weiter.

Und wie muß der Inhalt dann aussehen? Nur mit dem Verzeichnis und Namen geht es nicht, Backslash - Slash probiert. Irgendwo wird wohl auch noch der Server angegeben werden müssen?

Sorry die Frage: Die Syntax hast du nicht zufällig bei der Hand? Die Notes Hilfe dazu habe ich nochmals durchgeackert aber nichts gefunden.

Christine

[eknori]

Code

Sub Initialize

  Dim s As New NotesSession

  Dim db As NotesDatabase

  Set db = s.GetDatabase(Server, FilePath False)

  If db Is Nothing Then

    Messagebox db does not exist on server"

  Else

    Messagebox db.replicaId,, "Title of names2.nsf"

  End If

End Sub

[smoky]

Vielen Dank Ulrich

mit Set db = s.GetDatabase(Server, FilePath False) bekomme ich das was ich hier wollte

lg
Christine

[koehlerbv]

Um bei Deinem Code Snippet zu bleiben: Hast Du dann statt Server, FilePath db (0), db (1) verwendet? Und entweder den dritten Parameter (False / True) weggelassen oder ein Komma davor gesetzt?
Und wie hast Du NotesDatabase deklariert? db hast Du ja schon mit Variant of Strings durch das Prompt ([CHOOSEDATABASE]) verbraten.

Bernhard

[smoky]

Hallo Bernhard

hier der ganze Code, den Servernamen habe ich vorläufig noch fix angegeben

Sub Click(Source As Button)
   Dim s As New NotesSession
   Dim doc As NotesDocument
   Dim db As Variant
   Set ws = New NotesUIWorkspace
   Set doc = ws.currentdocument.document
   Dim db1 As NotesDatabase
   
   db  = ws.Prompt(13, "Please choose the Invoice DB", "1")
   fileName$ = db(1)
   fileName1$ = db(2)
   Set db1 = s.GetDatabase("Servername", fileName$, False)   
   
   doc.DBName = fileName1$
   doc.DBReplicaID = fileName$
   doc.DBReplicaID_1 = db1.ReplicaID
End Sub

Christine

[Tode]

Und warum machst Du nicht, was man Dir sagt !? in db(0) steht doch der Servername drin...

[smoky]

Hallo,

Danke für den Hinweis :-) Ich werde mich bessern und alles befolgen egal ob ich will oder nicht.

Den Server habe ich namentlich eingetragen weil ich auch noch die Verbindung testen möchte

lg
Christine