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 SubEsbGetDatabaseInfo()