EsbGetLocationAliasList

現在定義されているすべてのロケーション別名のリストを戻します。同時に、そのロケーション別名がマッピングされているホスト名、アプリケーション名、データベース名、およびユーザー名のリストも戻します。

構文

            EsbGetLocationAliasList
             (
            hCtx
            , 
            ListCount
            , 
            Aliases
            , 
            Hosts
            , _
                         
            AppNames
            , 
            DbNames
            , 
            UserNames
            )
ByVal 
            hCtx
                  As Long
ByRef 
            ListCount
             As Integer
ByRef 
            Aliases
               As Variant
ByRef 
            Hosts
                 As Variant
ByRef 
            AppNames
              As Variant
ByRef 
            DbNames
               As Variant
ByRef 
            UserNames
             As Variant

パラメータ	説明
hCtx	APIコンテキスト・ハンドル
ListCount	戻されたロケーション別名の数
Aliases	戻されたロケーション別名のリスト
Hosts	戻されたホストのリスト
AppNames	戻されたアプリケーションのリスト
DbNames	戻されたデータベースのリスト
UserNames	戻されたユーザー・ログインのリスト

備考

hCtxは入力専用パラメータです。
ListCount、Aliases、Hosts、AppNames、DbNamesおよびUserNamesは出力パラメータです。参照によって値が戻されます。

例

         Public Sub LocationAliasTest()

  Dim status    As Long
  Dim ListCount As Integer
  Dim Aliases   As Variant
  Dim HostNames As Variant
  Dim AppNames  As Variant
  Dim DbNames   As Variant
  Dim UserNames As Variant

  status = EsbCreateLocationAlias(hCtx, "blah1", "LocalHost", "Demo", "Basic", _
                                "admin", "password")
  If (status <> 0) Then
    MsgBox "Create routine Failed"
    Exit Sub
  End If
    
  status = EsbCreateLocationAlias(hCtx, "blah2", "LocalHost", "Demo", "Basic", _
                                  "admin", "password")
  If (status <> 0) Then
    MsgBox "Create routine Failed"
    Exit Sub
  End If
    
  status = EsbGetLocationAliasList(hCtx, ListCount, Aliases, HostNames, _
                                   AppNames, DbNames, UserNames)
  If (status <> 0) Then
    MsgBox "Get routine Failed"
    Exit Sub
  End If
    
  If (ListCount > 0) Then
        ' Retrieve the elements as Aliases(0) to Aliases(ListCount -1)
  End If

  status = EsbDeleteLocationAlias(hCtx, "blah1")
  If (status <> 0) Then
    MsgBox "Delete routine Failed"
    Exit Sub
  End If

  status = EsbGetLocationAliasList(hCtx, ListCount, Aliases, HostNames, _
                                   AppNames, DbNames, UserNames)
  If (status <> 0) Then
    MsgBox "Get routine Failed"
    Exit Sub
  End If

End Sub