EsbGetCurrencyRateInfo

アクティブ・データベース・アウトライン内の、タグ付き通貨パーティション次元のすべてのメンバーについてのレート情報が含まれている構造体のリストを取得します。

構文

            EsbGetCurrencyRateInfo
             (
            hCtx, pItems
            )
ByVal 
            hCtx
               As Long
      
            pItems
             As Integer
         

備考

この関数は、関連通貨データベースが指定されている標準のデータベースに対して呼び出せます。

戻り値

正常終了の場合、構造体のアイテムがpItemsに戻され、通貨情報構造体の配列が生成されます。この配列にはEsbGetNextItem()を使用してアクセスできます。

アクセス

この関数を使用するには、呼出し元がデータベースに対するアクセス権を持っており、EsbSetActive()を使用してこれをアクティブなデータベースとして選択している必要があります。

例

         Declare Function EsbGetCurrencyRateInfo Lib "ESBAPIN" (ByVal hCtx As Long, Items As Integer) As Long

Sub ESB_GetCurrencyRateInfo ()
   Dim Items As Integer
   Dim RateInfo As ESB_RATEINFO_T
   Dim sts As Long   '************************
   ' Get Currency Rates Info
   '************************
   sts = EsbGetCurrencyRateInfo (hCtx, Items)   For n = 1 To Items 
     '*************************
     ' Get next Rates Info item
     'from the list
     '*************************
     sts = EsbGetNextItem (hCtx, 
     ESB_RATEINFO_TYPE, RateInfo)
   Next
End Sub
      

関連トピック

• EsbListCurrencyDatabases
• EsbGetNextItem
• EsbSetActive