既存の別名テーブルを削除せずにそのエントリをすべて消去します。
構文
EsbOtlClearAliasTable
(
hOutline, pszAliasTable
)
ByVal
hOutline
As Long
ByVal
pszAliasTable
As String
| パラメータ | 説明 |
|---|---|
hOutline |
アウトラインのコンテキスト・ハンドル。 |
pszAliasTable |
消去する別名テーブルの名前。デフォルト・テーブルには""または"デフォルト"を使用します。 |
備考
別名テーブルから別名を消去すると、その別名テーブルに関連付けられた言語コードは削除されます。
戻り値
正常終了の場合は0が戻されます。それ以外の場合は、次の値が戻されます:
OTLAPI_BAD_ALIASTABLE
例
Declare Function EsbOtlClearAliasTable Lib "ESBOTLN"
(ByVal hOutline As Long, ByVal pszAliasTable As String) As Long
Sub ESB_OtlClearAliasTable()
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 = EsbOtlClearAliasTable(hOutline, "Default")
End If
End Sub
関連トピック