Retrieve All Views in a Database

This routine illustrates how to retrieve all views associated with a database and could be used to build custom buttons that retrieve data based on a selected view.

How It Works

Using the NotesDatabase and NotesView classes, the routine iterates through all views in a database and displays a message to the user.

Implementation

In the following example, all database views (hidden or otherwise) will be processed with the name of each view appended to a string and displayed in a message window. Alternatively, you may want to store the view names in a dynamic array or perform some other data query for each view. To implement this technique, create an action button. Set the Language Selector to LotusScript and insert the following statements in the Programmer's pane.

Sub Click(Source As Button) '----------------------------------------------------------------- ' Define the objects '----------------------------------------------------------------- Dim s As NotesSession Dim db As NotesDatabase Dim view As NotesView Dim strViewTitles As String Set s = New NotesSession Set db = s.CurrentDatabase '----------------------------------------------------------------- ' Display all view names for the database '----------------------------------------------------------------- If Not Isempty (db.Views) Then Forall v In db.Views strViewTitles = strViewTitles & Chr$(10) & v.Name End Forall Msgbox (strViewTitles) End If End Sub

Категории