Function GetDbInfoFromReplicaID( strReplicaId As String, strServer As String )
Dim db As New NotesDatabase("","")
Dim blOpened As Boolean
blOpened = db.OpenByReplicaID( strServer, strReplicaId )
If blOpened = False Then
Error 1000, "The database is not found to open by replica id ("+ strReplicaID+") to get the information on the server ("+ strServer +")"
End If
GetDbInfoFromReplicaID = db.Title + "|" + db.FilePath + "|" + db.Server
End Function
| 
No comments:
Post a Comment