LotusScript version of @DbColumn

• Marko Bonaci
• Published: 22 Feb 2006

The function works the same as @DbColumn formula. If you don't understand the function arguments, locate DbColumn in Designer's Help.

Code: Function dbColumn
( db As NotesDatabase,
 viewName As String, 
columnNo As Integer, flgUnique
 As Boolean, flgUseReplicaID As Boolean ) 
As Variant
    'Mbonaci, 30.08.2005.
    'Function works same as @DbColumn
    On Error Goto ErrHandler
    Dim s As New NotesSession
    Dim strDbPath As String, tmpFormula
 As String
    
    strDbPath = AdjustedFilePath( s, db )
    
    If flgUseReplicaID Then    
        tmpFormula = |@DbColumn
( "" : "NoCache"; "| & db.ReplicaID 
& |"; "| & viewName & |"; | & columnNo & | )|
    Else        
        tmpFormula = |@DbColumn
( "" : "NoCache"; "| & db.Server & |" : "| 
& strDbPath & |"; "| & viewName 
& |"; | & columnNo & | )|        
    End If
    
    If flgUnique Then
        tmpFormula = |@Unique( tmpFormula )|
    End If
    
    dbColumn = Evaluate( tmpFormula )
    
    Exit Function
ErrHandler:
    Msgbox "Error in function - 
dbColumn" & Chr$(10) & "Line: " 
& Cstr( Erl ) & Chr$(10) & 
"Err No: " & Err & ": " & Error$ End Function


Function AdjustedFilePath
( s As NotesSession, db As
 NotesDatabase ) As String
    'Mbonaci, 19.01.2006
    'Function is used to prepare 
the path for LS 
dbColumn implementation.
    'We need path relative to notesdata dir.
    On Error Goto ErrHandler
    Dim datadir As String, 
fcPath As String, tmpPath As String
    
    dataDir$ = Lcase
( s.GetEnvironmentString( "Directory", True ) )    
    fcPath$ = Lcase( Left
( db.FilePath, Len( datadir ) ) )
    
    If( fcPath = datadir ) Then
        'If the database is open 
and on the Notes 
workstation FilePath returns the complete path 
        'for example, 
C:LotusNotesDataSubdir1Subdir2dbName.nsf
        fcPath = Mid$( db.FilePath, Len( datadir ) + 2 )
        AdjustedFilePath = fcPath
        
    Elseif Instr( fcPath, "!!" ) Then        
        'FilePath returns the 
server name (srvName!!path) 
when both of these cases are true:
        'FilePath is used in 
an agent running on a server
        'The NotesDatabase 
object was not obtained 
through the CurrentDatabase 
property of NotesSession        
        tmpPath = db.FilePath
        AdjustedFilePath = 
Right( tmpPath, Len( tmpPath ) - 
Instr( tmpPath, "!!" ) - 1 )
        
    Else    
        'If the database is on a Domino server, 
or closed on the Notes workstation 
        'FilePath returns the path relative
 to the data directory (for example, subdb.nsf)
        AdjustedFilePath = db.FilePath
    End If
    
    'Last we double all backslashes
    AdjustedFilePath = ReplaceSubstring
( AdjustedFilePath, "", "\" )
    
out:
    Exit Function
ErrHandler:
    Msgbox "Error in function - 
AdjustedFilePath" & 
Chr$(10) & "Line: " & Cstr( Erl ) & Chr$(10) &
 "Err No: " & Err & ": " & Error$
    Resume out
End Function


Function ReplaceSubstring
( Byval theString As String, 
find As String, doReplace As String ) 
As String
    Dim pos As Integer
    
    pos = Instr( theString, find )
    Do While( pos > 0 )
        theString = Left$( theString, pos - 1 )
 & doReplace 
& Mid$( theString, pos + Len( find ) )
        pos = Instr( pos + Len( doReplace ), 
theString, find )
    Loop
    
    ReplaceSubstring = theString
End Function

MEMBER FEEDBACK TO THIS TIP

This works as well:

Dim varList as Variant
varList = Evaluate("@DbColumn
(" & class  & ":" & cache 
& ";" & server & "; " & database & 
";" & view & ";" & columnNumber  & ")")

Where class, cache, server, database, view, and columnNumber are variables.
—Paul R.

Do you have comments on this tip? Let us know. Related information from SearchDomino.com: