Domino 9 und frühere Versionen > ND6: Entwicklung
"Set db" anhand der ReplicaID
Hedwig14:
Hallo,
ich habe in mehreren Dokumenten eine ReplicaID einer bestehenden Datenbank.
Anhand dieser ReplicaID möchte ich den Pfad und den Titel der Datenbank auslesen.
mit
OpenDatabaseByReplicaID
und
OpenByReplicaID
bin ich bislang gescheitert. hat jemand noch eine andere Idee
Driri:
Der Trick besteht darin, das NotesDatabase-Objekt vorher mit New zu deklarieren.
Also so in etwa :
--- Zitat ---Dim db As New NotesDatabase("","")
Call db.OpenByReplicaID("Server", "ReplicaID")
--- Ende Zitat ---
Axel:
--- Zitat von: Hedwig14 am 08.10.08 - 16:34:39 ---bin ich bislang gescheitert. hat jemand noch eine andere Idee
--- Ende Zitat ---
Vielleicht, aber nur wenn du uns verrätst wo du gescheitert bist. ´
Axel
Hedwig14:
Ich erhalte diese Fehlermeldung:
Variant does not contain an object
Das ist mein Code:
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 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 = CG.view.getfirstdocument
While Not(doc Is Nothing)
If CGdoc.form = "f_database_icon" Then
repID = CGdoc.t_db_replica_id(0)
server = CGdoc.disp_nam_db_server(0)
'Set directory = s.GetDbDirectory(server)
Call db.OpenByReplicaID(server , repID)
Print db.Title, , db.FilePath
End If
Set CGdoc = CG.view.getnextdocument(CGdoc)
Wend
End Sub
Glombi:
Statt
Set CGdoc = CG.view.getfirstdocument
muss es
Set CGdoc = CGview.getfirstdocument
heissen
und statt
Set CGdoc = CG.view.getnextdocument(CGdoc)
eben
Set CGdoc = CGview.getnextdocument(CGdoc)
Tipp: Wenn Du den Debugger nutzt, siehst Du gleich, wo der Fehler ist.
Andreas
Navigation
[0] Themen-Index
[#] Nächste Seite
Zur normalen Ansicht wechseln