アクティブなデータベース内にある別名テーブルの名前をすべてリストします。
構文
EsbListAliases ( hCtx, pItems ) ByVal hCtx As Long pItems As Integer
パラメータ | 説明 |
---|---|
hCtx |
VB APIコンテキスト・ハンドル。 |
pItems |
別名テーブルのアイテムを受け取る変数のアドレス。 |
戻り値
正常終了の場合は、別名テーブルのアイテムが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
関連トピック