EsbOtlDeleteUserAttribute

メンバーのユーザー定義属性を削除します。

構文

            EsbOtlDeleteUserAttribute
             (
            hOutline, hMember, pszString
            )
ByVal 
            hOutline
              As Long
ByVal 
            hMember
               As Long
ByVal 
            pszString
             As String

パラメータ	説明
hOutline	アウトラインのコンテキスト・ハンドル
hMember	削除対象の属性を持つメンバーのハンドル。
pszString	ユーザー属性の文字列。

備考

呼出し元は、属性を識別するために文字列で値を渡します。

戻り値

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

OTLAPI_NO_USERATTR。

例

         Declare Function EsbOtlDeleteUserAttribute Lib 
"ESBOTLN" (ByVal hOutline As Long, ByVal hMember As Long,
ByVal pszString As String) As Long 

Sub ESB_OtlDeleteUserAttribute()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim hMember As Long
Dim AttributeList As String
Object.hCtx = hCtx
Object.Type = ESB_OBJTYPE_OUTLINE
Object.AppName = "Sample"
Object.DbName = "Basic"
Object.FileName = "Basic"
AttributeList = "Read Write"
sts = EsbOtlOpenOutline(hCtx, Object, ESB_YES,
ESB_YES, hOutline)
If sts = 0 Then
   sts = EsbOtlFindMember(hOutline, "Jan",
    hMember)
End If
If sts = 0 And hMember <> 0 Then
'********************
' Delete User Attributes
'********************
   sts = EsbOtlDeleteUserAttribute(hOutline,
    hMember, AttributeList)
  End If
End Sub