LotusScript for Visual Basic Programmers - IBM Redbooks

HTDatabaseSetProperty: Assigns a value to a database-level property.
The type of the data is indicated by the property. When setting the value of
properties, which are inherited by open indices, the new value has no effect
on currently open indices.
Example
The following example sets the title of the database.
Dim hgdatabase As Long
Dim hgstatus As Long
hgstatus = HTInit(0)
hgstatus = HTDatabaseOpen("", "test.nsf", 0&, hgdatabase)
hgstatus = HTDatabaseSetProperty(hgdatabase,
HTDATABASE_TITLE, ByVal "New Title")
hgstatus = HTDatabaseClose(hgdatabase, HTDBCLOSEF_SAVE_DOCS)
hgstatus = HTTerm(0)
Following is an explanation of the code:
We declare an hgdatabase variable that references a Notes database. In
HiTest, we present a Notes database handle as long.
Dim hgdatabase As Long
We declare an hgstatus variable. All the status codes we get later will be
put in the variable.
Dim hgstatus As Long
For every HiTest application, we must initialize the Notes session as a first
step. Other functions can only be called after session initialization. If the
initialize is unsuccessful, it will return either HTFAIL_HITEST_VERSION
(program built with incompatible HiTest API version) or
HTFAIL_NOTES_VERSION (the HiTest API requires Notes Release 3.0 or
higher) to hgstatus.
hgstatus = HTInit(0)
We open the TEST database, which is already on the local server. This
returns a database handle, a long value to the hgdatabase variable. 0&
refers to the dbopen flag. If the database cannot open, a failure notification
(database does not exist) will be returned to hgstatus.
hgstatus = HTDatabaseOpen("", "test.nsf", 0&, hgdatabase)
124 LotusScript for Visual Basic Programmers