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.
AI
Resumo por IA: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Código fonte
' 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
Comentários originais (3)
Recuperado do Wayback Machine