EsbLROListObjects

指定したユーザー名または変更日(あるいはその両方)の、アクティブ・データベースのセルにリンクされているすべてのオブジェクトのリストを取得します。

構文

            EsbLROListObjects
             (
            hCtx, userName, listDate, PulCount
            )
ByVal 
            hCtx
                 As Long 
ByVal 
            userName
             As String 
ByVal 
            listDate
             As Long 
      
            PulCount
             As Long 
         

備考

戻り値

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

アクセス

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

例

         Declare Function EsbLROListObjects Lib "esbapin" _
(ByVal hCtx As Long, ByVal userName As String, _
ByVal listDate As Long, PulCount As Integer) As Long

Public Sub ESB_LROListObjects()
      
   Dim userName As String * ESB_USERNAMELEN
   Dim listDate As Long
   Dim Items As Long
   Dim Desc As ESB_LRODESC_API_T
   Dim i As Integer
   Dim CutOffDate As Date
   
   Const ESB_REFERENCE_DATE = #1/1/70#
   userName = "admin"
   CutOffDate = #8/1/97#          
   listDate = DateDiff("s", CutOffDate, _
                      ESB_REFERENCE_DATE)
   
   sts = EsbLROListObjects(hCtx, userName, _
                           listDate, 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
      

関連トピック

• リンク・オブジェクトに対する定数および構造体の定義
• EsbGetNextItem
• EsbLROGetCatalog
• EsbLROGetMemberCombo
• EsbLROPurgeObjects