Domino Code Fragment

Code Name* Interdatabase Access (LotusScript)	Date* 04/28/2024	Source (or email address if you prefer)* Rlatulippe@romac.com IP address:.3.145.105.105
Description* Sets up connectivity amoung an application suite set in same path.	Type* LotusScript	Categories* (Misc)

Implementation:	Required Client:	Server:
Limitations:	Comments:

Files/Graphics attachments (if applicable): Code:

Access the session current database. Portions of the current databases path and filename are used to build the path and filename to the target database.

Dim session As New notessession
Dim dbCur As notesdatabase
Set dbCur = session.currentdatabase

Build sPath from the current databases path and filename. sPath is the common path portion for all TLCC database, that is, the path and filename up to the last 8 characters.

'-- path to course DBs

Dim sPath As String
Dim nFilepath, nFilename As Integer
nFilepath = Len(dbCur.filepath)
nFilename = 8
spath = Mid(dbCur.filepath,1,nFilepath-nFilename)

The next code fragment builds a specific path string for each of the Parts, Customer and Sales database.

Dim sPartPath As String
sPartPath = sPath + "part.nsf"
Dim sCustPath As String
sCustPath = sPath + "cust.nsf"
Dim sSalePath As String
sSalePath = sPath + "sale.nsf"

The final code fragment is used to access the database using the New method in the NotesDatabase class. The first null parameter indicates local access and the second parameter passes the appropriate database path.

'-- access the database
Dim dbParts As New notesdatabase("", sPartPath)

Dim dbCust As New notesdatabase("", sCustPath)

Dim dbSales As New notesdatabase("", sSalePath)