EsbGetDatabaseStats

データベースに関する統計情報が含まれている、アクティブ・データベースの統計構造体を取得します。

構文

            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	VB APIコンテキスト・ハンドル。
AppName	アプリケーション名。
DbName	データベース名。
pDbStats	データベースの統計構造体を受け取るバッファ。
pItems	次元の統計アイテムのアイテムを受け取る変数のアドレス。

備考

この関数は、サーバー・データベースに対してのみ呼び出せます。
データベースがまだロードされていない場合、この関数がデータベースをロードします。

戻り値

正常終了の場合は、割り当てられたデータベースの統計構造体へのポインタがpDbStatsに、次元数がpItemsに戻され、次元統計構造体のリストが生成されます。このリストには、GetNextItem()を使用してアクセスできます。

アクセス

この関数を使用するには、呼出し元がデータベースに対してアクセス権を持っていて、EsbSetActive()を使用してこれをアクティブなデータベースとして選択している必要があります。

例

         Declare Function EsbGetDatabaseStats Lib "ESBAPIN" (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