EsbLROGetCatalog

データベースの指定されたデータ・セルに対してリンクされたオブジェクトのカタログ・エントリのリストを取得します。

構文

            EsbLROGetCatalog
             (
            hCtx, memCount, memComb, PulCount
            )
ByVal 
            hCtx
                 As Long
ByVal 
            memCount
             As Long
ByVal 
            memComb
              As String
      
            PulCount
             As Long

パラメータ	説明
hCtx	APIコンテキスト・ハンドル。
memCount	memCombに指定されているメンバーの数。
memComb	メンバー名の配列。
PulCount	呼出し元に戻されるLROカタログ・エントリの数。

備考

カタログ情報を取得するには、この関数を呼び出してからEsbGetNextItemを呼び出します。コード例でこの方法を示します。

戻り値

正常終了の場合は、ESB_STS_NOERRが戻されます。それ以外の場合、エラー・コードが戻されます。

アクセス

この関数を呼び出すには、データ・セルまたはアクティブなデータベースに対して読取り権限(ESB_PRIV_READ)を持っている必要があります。

例

         Declare Function EsbLROGetCatalog Lib "esbapin" _
(ByVal hCtx As Long, ByVal memCount As Long, _
ByVal memComb As String, PulCount As Long) As Long

Public Sub ESB_LROGetCatalog()
   
   Dim Desc As ESB_LRODESC_API_T
   Dim Items As Long
   Dim memCount As Long
   Dim memComb As String
   Dim i As Integer
   
   memCount = 5
   memComb = "Jan" & vbCrLf & "Sales" & _
             "Cola" & vbCrLf & "Utah" & _
             "Actual"
   
   sts = EsbLROGetCatalog(hCtx, memCount, _
                          memComb, Items)
   
   If sts = 0 Then
      For i = 1 To Items
         '*******************************
         '* Get the next LRO description
         '* item from the list
         '*******************************         sts = EsbGetNextItem(hCtx, ESB_LRO_TYPE, Desc)      Next i
   End If
   
End Sub