EsbGetDatabaseStats() gets the active database's stats structure, which contains statistical information about the database.
EsbGetDatabaseStats (hCtx, AppName, DbName, pDbStats, pItems)
ByVal hCtx As Long
ByVal AppName As String
ByVal DbName As String
pDbStats As ESB_PDBSTATS_T
pItems As Integer
| hCtx | Essbase VB API context handle. |
| AppName | Application name. |
| DbName | Database name. |
| pDbStats | Buffer to receive a database stats structure. |
| pItems | Address of variable to receive Items of Dimension stats items. |
Declare Function EsbGetDatabaseStats Lib "ESBAPIW" (ByVal hCtx As Long, ByVal AppName As String, ByVal DbName As String, DbStats As ESB_DBSTATS_T, Items As Integer) As Long
Sub ESB_GetDatabaseStats ()
Dim Items As Integer
Dim AppName As String
Dim DbName As String
Dim DbStats As ESB_DBSTATS_T
Dim DimStats As ESB_DIMSTATS_T
Dim sts As Long
AppName = "Sample"
DbName = "Basic"
'*******************
' Get Database stats
'*******************
sts = EsbGetDatabaseStats (hCtx, AppName, DbName, DbStats, Items)
For n = 1 To Items
'******************************
' Get next Dimension stats item
'from the list
'******************************
sts = EsbGetNextItem (hCtx,
ESB_DIMSTATS_TYPE, DimStats)
Next
End Sub
EsbGetDatabaseInfo()