Improved Opendatabase Function

This function accepts servername, filepath, and replicaID arguments. The
function first looks by servername and filepath and then by replica id, and
returns a handle on the NotesDatabase object.
Function OpenDatabase(Servername As String,FilePath As String,ReplicaID As
String) As NotesDatabase
Dim Db As New NotesDatabase("","")

If Trim(FilePath) <> "" Then
If Not Db.Open(Servername,FilePath) Then
If Trim(ReplicaID) <> "" Then
If Db.OpenByReplicaID(Servername,ReplicaID) Then
Set OpenDatabase = Db
End If
End If
Else
Set OpenDatabase = Db
End If
End If
End Function
This was first published in November 2000

Dig deeper on Domino Resources - Part 6

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.uk

Close