EsbListAliases

アクティブなデータベース内にある別名テーブルの名前をすべてリストします。

構文

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

戻り値

正常終了の場合は、別名テーブルのアイテムがpItemsに戻され、EsbGetNextItem()を介してアクセス可能な別名テーブルの名前の配列が生成されます。

アクセス

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

例

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

Sub ESB_ListAliases ()
   Dim Items As Integer
   Dim AliasName As String * ESB_ALIASNAMELEN
   Dim sts As Long
   '*************
   ' List Aliases
   '************* 
   sts = EsbListAliases (hCtx, Items)   For n = 1 To Items
     '********************
     ' Get next Alias Name 
     ' from the list
     '******************** 
     sts = EsbGetNextItem (hCtx, 
           ESB_ALIASNAME_TYPE, ByVal AliasName)
   Next
End Sub
      

関連トピック

• EsbDisplayAlias
• EsbGetNextItem