• Home
 · 
• OLE/COM/DCOM/Active-X
 · 
• Connect to Lotus Notes View using COM and Loop through records

Connect to Lotus Notes View using COM and Loop through records

This piece of code allows you to connect to an existing Lotus Notes View using COM and Loop through the records within that View. This is simple, but for those people out there that deal with Notes and SQL Server/Access databases, then this is a must. Very easy to manipulate.

Inputs
None.

Assumes
Be sure to reference the Lotus Domino Object!

Returns
Nothing.

Side Effects
None that I am aware of.

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

(3(3 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