EsbOtlSetUserAttribute

メンバーに対するユーザー定義属性を設定します。

構文

            EsbOtlSetUserAttribute
             (
            hOutline, hMember, pszString
            )

ByVal 
            hOutline
              As Long
ByVal 
            hMember
               As Long
ByVal 
            pszString
             As String

パラメータ	説明
hOutline	アウトラインのコンテキスト・ハンドル。
hMember	ユーザー定義属性を設定するメンバーのハンドル。
pszString	設定するユーザー定義属性。

備考

呼出し元はメンバーに任意の数のユーザー定義属性を設定できます。一意に渡された文字列が各属性を定義し、ユーザー名と同様の表記規則に従います。EsbOtlGetUserAttributes()を参照してください。
共有メンバーに対してユーザー属性を設定しようとすると、エラーが発生します。

戻り値

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

OTLAPI_BAD_USERATTR
OTLAPI_ERR_SHAREUDA

例

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

Sub ESB_OtlSetUserAttribute()
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
   '********************
   ' Set User Attributes
   '********************
   sts = EsbOtlSetUserAttribute(hOutline, 
    hMember, AttributeList) 
End If
End Sub