EsbOtlCreateAliasTable

アウトラインに空の別名テーブルを作成します。

構文

            EsbOtlCreateAliasTable
             (
            hOutline, pszAliasTable
            )
ByVal 
            hOutline
                  As Long
ByVal 
            pszAliasTable
             As String

パラメータ	説明
hOutline	アウトラインのコンテキスト・ハンドル。
pszAliasTable	作成する別名テーブル名。

備考

デフォルトの別名テーブルは常に存在するため、"デフォルト(Default)"という名前の別名テーブルは作成できません。
単一のブロック・ストレージまたは集約ストレージ・データベース・アウトライン内の別名テーブルの最大数は(デフォルトのテーブルを含めて)32です。
EsbOtlSetAliasTableLanguage APIを使用して、別名テーブルに対して複数の言語コードを指定できます。別名テーブルを作成するとき、言語コードは指定されません

戻り値

正常終了の場合は0が戻されます。それ以外の場合は、次のいずれかの値が戻されます:

OTLAPI_ERR_ALIASTABLEEXISTS
OTLAPI_ERR_MAXALIASTABLES
OTLAPI_ERR_ALIASTABLENAME

例

         Declare Function EsbOtlCreateAliasTable Lib 
"ESBOTLN" (ByVal hOutline As Long, 
ByVal pszAliasTable As String) As Long

Sub ESB_OtlCreateAliasTable()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
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, 
    "Alias Table 1")
End If
End Sub