Domino 9 und frühere Versionen > ND8: Entwicklung

Replik ID einer Datenbank (nicht der aktiven) auslesen

<< < (2/3) > >>

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
--- Ende Code ---

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...

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete