• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Connect to Lotus Notes View using COM and Loop through records.

Connect to Lotus Notes View using COM and Loop through records.

Connect to Lotus Notes View using COM and Loop through records.

API Declarations


'===================================================================
' Declare Notes COM variables
'===================================================================
Dim n_Session As New Domino.NotesSession
Dim n_Database As New Domino.NotesDatabase
Dim n_Document As NotesDocument
Dim n_ViewEntry As NotesViewEntry
Dim n_View As NotesView
Dim n_ViewNav As NotesViewNavigator
Dim l_TestVariable As String





Rate Connect to Lotus Notes View using COM and Loop through records.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    ' Initialize session and set database

    n_Session.Initialize
   

    ' Set database

    Set n_Database = n_Session.GetDatabase("Your Server Name", _
                                           "YourFileLocation\YourFile.nsf")
    ' Set to view
    Set n_View = n_Database.GetView("NameOfYourView")
    ' Set view navigator
    Set n_ViewNav = n_View.CreateViewNav
    ' Move to first record
    Set n_ViewEntry = n_ViewNav.GetFirstDocument()
    

    ' Loop through records within view

    Do While Not (n_ViewEntry Is Nothing)
    
        '---------------------------------------------------------------
        ' Set view to document
        '---------------------------------------------------------------
        Set n_Document = n_ViewEntry.Document
        
        '---------------------------------------------------------------
        ' Set local variables
        '---------------------------------------------------------------
        l_TestVariable = n_Document.GetItemValue("TestFieldName")(0)
        
        '---------------------------------------------------------------
        ' Get next entry
        '---------------------------------------------------------------
        Set n_ViewEntry = n_ViewNav.GetNextDocument(n_ViewEntry)
        
    Loop
    

    ' Clean-up

    Set n_ViewEntry = Nothing
    Set n_ViewNav = Nothing
    Set n_View = Nothing
    Set n_Document = Nothing
    Set n_Database = Nothing
    Set n_Session = Nothing