EsbGetDatabaseNote() gets a database's note-of-the-day message. This message may be used to display useful information about the database (whether data has been loaded, when it was last calculated, etc.) to users before they connect to the database.
EsbGetDatabaseNote (hCtx, AppName, DbName, DbNote, szDbNote)
ByVal hCtx As Long ByVal AppName As String ByVal DbName As String ByVal DbNote As String ByVal szDbNote As Integer
| hCtx | Essbase VB API context handle. |
| AppName | Application name. |
| DbName | Database name. |
| DbNote | Buffer to receive a database note string. |
| szDbNote | Size of the buffer. |
If successful, returns a database note string in DbNote.
Declare Function EsbGetDatabaseNote Lib "ESBAPIW" (ByVal hCtx As Long, ByVal AppName As String, ByVal DbName As String, ByVal DbNote As String, ByVal szDbNote As Integer) As Long
Sub ESB_GetDatabaseNote ()
Dim sts As Long
Dim AppName As String
Dim DbName As String
Const szDbNote = 256
Dim DbNote As String * szDbNote
AppName = "Sample"
DbName = "Basic"
'******************
' Get Database note
'******************
sts = EsbGetDatabaseNote (hCtx, AppName,
DbName, DbNote, szDbNote)
End Sub
EsbSetDatabaseNote()