EsbCreateLocationAlias

新規にロケーション別名を作成します。つまり、別名の文字列を、次の5個の文字列が順に並んだ形式へマッピングします。5個の文字列とは: ホスト名、アプリケーション名、データベース名、ユーザー・ログイン名、ユーザー・パスワードです。

構文

            EsbCreateLocationAlias
             (
            hCtx
            , 
            AliasName
            , 
            HostName
            , _
                        
            AppName
            , 
            DbName
            , 
            Login
            , 
            Password
            )
ByVal 
            hCtx
                  As Long
ByVal 
            AliasName
             As String
ByVal 
            HostName
              As String
ByVal 
            AppName
               As String
ByVal 
            DbName
                As String
ByVal 
            Login
                 As String
ByVal 
            Password
              As String
         

戻り値

AliasNameと同じ名前のロケーション別名がすでに存在する場合は、エラーが戻されます。

例

         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
      

関連トピック

• EsbDeleteLocationAlias
• EsbGetLocationAliasList