EsbListDatabases

呼出し元がアクセス可能な、特定のアプリケーション内またはサーバー全体の、すべてのデータベースをリストします。

構文

            EsbListDatabases
             (
            hCtx, AppName, pItems
            )
ByVal 
            hCtx
                As Long
ByVal 
            AppName
             As String
      
            pItems
              As Integer

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
AppName	アプリケーション名。
pItems	アプリケーションおよびデータベースのカウントを受け取る変数のアドレス。

備考

AppNameの引数が空の文字列の場合、この関数はサーバー上のアクセス可能なアプリケーションおよびデータベースをすべてリストします。

戻り値

正常終了の場合、アクセス可能なデータベースの数がpCountに戻され、EsbGetNextItem()を介してアクセス可能なアプリケーション名およびデータベース名のリストが生成されます。

アクセス

この関数を使用するのに、特別な権限は必要ありません。ただし、呼出し元がアクセスする場合、サーバー・データベースのみがリストされることに注意してください。

例

         Declare Function EsbListDatabases Lib "ESBAPIN" (ByVal hCtx As Long, ByVal AppName As String, Count As Integer) As Long

Sub ESB_ListDatabases ()
   Dim pItems As Integer
   Dim AppName As String
   Dim AppDb As ESB_APPDB_T
   Dim sts As Long   AppName = "Sample"   '***************
   ' List Databases
   '***************
   sts = EsbListDatabases (hCtx, AppName, pItems)   For n = 1 To pItems      '****************************** 
     ' Get next Application/Database
     ' item from the list
     '******************************
     sts = EsbGetNextItem (hCtx, 
           ESB_APPDB_TYPE, AppDb)
   Next
End Sub