EsbListObjects

サーバーまたはローカル・クライアント上にある、指定したタイプのオブジェクトをリストします。

構文

            EsbListObjects
             (
            hCtx, ObjType, AppName, DbName, pItems
            )
ByVal 
            hCtx
                As Long
ByVal 
            ObjType
             As Long
ByVal 
            AppName
             As String
ByVal 
            DbName
              As String
      
            pItems
              As Integer

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。EsbCreateLocalContext()から戻されたローカル・コンテキスト・ハンドルの場合もあります。
ObjType	オブジェクト・タイプ(複数のタイプ可)。使用可能な値のリストはビットマスク・データ型を参照してください。
AppName	アプリケーション名。
DbName	データベース名。空の文字列の場合は、アプリケーション・サブディレクトリのオブジェクトがリストされます。
pItems	該当するタイプのオブジェクトのアイテムを受け取る変数のアドレス。

戻り値

正常終了の場合は、該当するタイプのオブジェクト数のアイテムがpItemsに戻され、EsbGetNextItem()を介してアクセス可能な一致するオブジェクト構造体の配列が生成されます。

アクセス

この関数を使用するのに、特別な権限は必要ありません。ただし、呼出し元がアプリケーションまたはデータベース(あるいはその両方)に対して(オブジェクト・タイプに応じて)適切なレベルのアクセス権限を持っている場合、サーバー・オブジェクトのみがリストされるので注意してください。

例

         Declare Function EsbListObjects Lib "ESBAPIN" (ByVal hCtx As Long, ByVal ObjType As Integer, ByVal AppName As String, ByVal DbName As String, Items As Integer) As Long

Sub ESB_ListObjects ()
   Dim Items As Integer
   Dim AppName As String
   Dim DbName As String
   Dim ObjType As Integer
   Dim ObjInfo As ESB_OBJINFO_T
   Dim sts As Long   Appname = "Sample"
   DbName = "Basic"
   ObjType = ESB_OBJTYPE_OUTLINE   '*********************
   ' List Outline Objects
   '********************* 
   sts = EsbListObjects (hCtx, ObjType, 
         AppName, DbName, Items)   For n = 1 To Items     '**************************
     ' Get next Object Structure 
     ' from the list
     '**************************
     sts = EsbGetNextItem (hCtx, 
           ESB_OBJINFO_TYPE, ObjInfo)
   Next
End Sub