Domino 9 und frühere Versionen > ND6: Entwicklung

"Set db" anhand der ReplicaID

<< < (2/4) > >>

m3:

--- Zitat --- Set CGdoc = CG.view.getfirstdocument
   
   While Not(doc Is Nothing)
--- Ende Zitat ---
Da passt was nicht zam.

Option Declare einschalten und ev. noch einen LS-Kurs besuchen?

Hedwig14:
.... da waren wieder die berühmten Tomaten auf den Augen !

DANKE !

Hedwig14:
Ich habe doch noch eine Frage:

Mit
Call db.OpenByReplicaID(server , eval)
wird die Datenbank versucht zu öffnen. das ist nicht mein Ziel.

Ich will die DB nicht öffnen sondern nur die Eigenschaften auslesen.
Mein Ziel ist es anhand der Rep ID die Eigenschaften der DB auszulesen.

Gibr es ggf eine Alternative zu "Call db.OpenByReplicaID"

Hier mein Script.
Sub Click(Source As Button)
   Dim s As New NotesSession
   Dim directory As NotesDbDirectory
   Dim db As New NotesDatabase("","")
   Dim repID As String
   Dim server As String
   Dim datei As String
   Dim eval, alterString, neuerString As String
   
   Dim CGdb As NotesDatabase
   Dim CGview As NotesView   
   Dim CGdoc As NotesDocument
   
   Set CGdb = s.CurrentDatabase
   Set CGview = CGdb.GetView("0. Corporate Desktop(s) Categorized")
   Set CGdoc = CGview.getfirstdocument
   alterString = ":"
   neuerString = ""
   
   While Not(CGdoc Is Nothing)
      
      If CGdoc.form(0) = "f_database_icon" And CGdoc.k_db_type(0) = "spec" Then
         server = CGdoc. t_db_server(0)   
         repID = CGdoc.t_db_replica_id(0)
         eval = Replace(repID, ":", "")
         
         Call db.OpenByReplicaID(server , eval)
         Print db.Title
         
      End If
      Set CGdoc = CGview.getnextdocument(CGdoc)      
   Wend   
End Sub

DAU-in:
in der Hilfe:

A database must be open in order to access all its properties and methods.

grüsse

Dau-in

Hedwig14:

So erhalte ich aber die Meldung:

This Datbase object is already open as (Servername)

Wie kann ich das umgehen ?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete