EsbOtlSetAliasTableLanguage

指定した別名テーブルの言語コードを設定します。

別名テーブルの言語コードを設定すると、ApplCoreセッションで実行されているアプリケーションがEssbaseデータベースにアクセスしたときに、アプリケーション選択で正しい別名テーブルが自動的に選択されます。

構文

            ESB_FUNC_M 
            EsbOtlSetAliasTableLanguage
             (
            hOutline
            , 
            pszAliasTable
            , 
            pszLanguageCode
            )
ByVal   
            hOutline
                      As Long
ByVal   
            pszAliasTable
                 As String
ByVal   
            pszLanguageCode
               As String

パラメータ	説明
hOutline	アウトラインのコンテキスト・ハンドル。
pszAliasTable	言語コードを設定する別名テーブル名。
pszLanguageCode	pszAliasTableで指定された別名テーブルに割り当てる言語コード。言語コードは、ApplCoreセッションからの中間層言語タグである必要があります。言語コードの大文字と小文字は区別されません。

パラメータ

説明

hOutline

アウトラインのコンテキスト・ハンドル。

pszAliasTable

言語コードを設定する別名テーブル名。

pszLanguageCode

pszAliasTableで指定された別名テーブルに割り当てる言語コード。

言語コードは、ApplCoreセッションからの中間層言語タグである必要があります。言語コードの大文字と小文字は区別されません。

備考

デフォルトの別名テーブルで言語コードを設定することはできません。
別名テーブルにはいくつでも言語コードを割り当てることができます。複数の言語コードを設定するには、言語コードごとにこの関数を呼び出します。
新しい言語コードを設定しても、別名テーブルに現在割り当てられている言語コードは上書きされません。
同じ言語コードを同じデータベース内の別の別名テーブルに割り当てないでください。

戻り値

成功の場合、0が戻されます。
失敗した場合は、次のいずれかのエラーが戻されます:
- OTLAPI_BAD_ALIASTABLE (無効な別名テーブル)
- OTLAPI_ERR_DUP_LANGCODE (言語コードが同じデータベース内の別の別名テーブルに割り当てられている)

アクセス

この関数を使用するのに、特別な権限は必要ありません。

例

         Declare Function EsbOtlGetAliasTableLanguages Lib "esbotln" (ByVal hOutline As Long, ByVal pszAliasTable As String, pulCount As Long) As Long
Declare Function EsbOtlSetAliasTableLanguage Lib "esbotln" (ByVal hOutline As Long, ByVal pszAliasTable As String, ByVal pszLanguageCode As String) As Long
Declare Function EsbOtlClearAliasTableLanguages Lib "esbotln" (ByVal hOutline As Long, ByVal pszAliasTable As String) As Long

Sub ESB_Sub ()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim Items As Long
Dim AliasLang As String * ESB_ALIASNAMELEN

Object.hCtx = hCtx
Object.Type = ESB_OBJTYPE_OUTLINE
Object.AppName = "Sample"
Object.DbName = "Basic"
Object.FileName = "Basic"
sts = EsbOtlOpenOutline(hCtx, Object,
ESB_YES, ESB_YES, hOutline)
If sts = 0 Then
   sts = EsbOtlCreateAliasTable(hOutline, 
    "French Alias Table")
End If
If sts = 0 Then
   sts = EsbOtlSetAliasTableLanguage(hOutline, 
    "French Alias Table", "fr")
End If
If sts = 0 Then
   sts = EsbOtlSetAliasTableLanguage(hOutline, 
    "French Alias Table", "fr-CA")
End If

If sts = 0 Then
   sts = EsbOtlGetAliasTableLanguages(hOutline, 
    "French Alias Table", Items)
   If sts = 0 Then
	For N = 1 To Items
     		sts = EsbGetNextItem(hCtx, ESB_ALIASLANG_TYPE, ByVal AliasLang)
   	Next
   End If
End If

If sts = 0 Then
   sts = EsbOtlClearAliasTableLanguages(hOutline, 
    "French Alias Table")
End If

End Sub