EsbListCurrencyDatabases

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

構文

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

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

備考

この関数は、クライアントではなくサーバーのアプリケーション内部の通貨データベースをリストする場合にのみ使用できます。

戻り値

正常終了の場合は、アクセス可能な通貨データベース数のアイテムがpItemsに戻され、EsbGetNextItem()を介してアクセス可能なアプリケーション名/通貨データベース名のリストが生成されます。

アクセス

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

例

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

Sub ESB_ListCurrencyDatabases ()
   Dim Items As Integer
   Dim AppName As String
   Dim AppDb As ESB_APPDB_T 
   Dim sts As Long   AppName = "Sample"   '************************
   ' List Currency Databases
   '************************ 
   sts = EsbListCurrencyDatabases (hCtx, AppName,
         Items)   For n = 1 to Items     '******************************
     ' Get next Application/Database 
     ' item from the list
     '******************************
     sts = EsbGetNextItem (hCtx,
           ESB_CAPPDB_TYPE, AppDb)
   Next
End Sub