SetListMembers

説明

指定されたリストにメンバを設定します。

Perl の場合、このパラメータは配列であるために、メンバのアイテムを区別するために区切り文字は必要でないことに注意してください。

構文

VBScript

session.SetListMembers listName, (Members) 

Perl

$session->SetListMembers(listName, Members); 
識別子
説明
session
現在のデータベース アクセス セッションを表す Session オブジェクト。
listName
リストの名前を含む String。
Members
VBScript の場合、リストのメンバを含む文字列の Variant 配列。

Perl の場合は、リストのメンバを含む文字列の配列への参照。

戻り値
なし。

VBScript

' This example assumes there is at least 1 dynamic list
' in the current database-access session.

set sessionObj = GetSession

sessionObj.UserLogon "admin", "", "SAMPL", AD_PRIVATE_SESSION, ""

Dim NewValues(2)
    NewValues(0) = "ABC"
    NewValues(1) = "123"
    NewValues(2) = "XYZ"

DynamicListNamesRef = sessionObj.GetListDefNames

set ListName = DynamicListNamesRef(0)

print ListName   

sessionObj.SetListMembers ListName, (NewValues)

members = sessionObj.GetListMembers(ListName)

' print out the list members...
For Each member In members
   print member
Next

Perl

# This example assumes there is at least 1 dynamic list
# in the current database-access session.

$sessionObj = $entity->GetSession();

$sessionObj->UserLogon("admin","","SAMPL","");

# Get a list of the names of Dynamic Lists that exist in this database...

$ListDefNamesREF = $sessionObj->GetListDefNames();

$ListName = @$ListDefNamesREF[0];

# Use SetListMembers() to set the list to a specific list of values...

print "¥nSetting list '$ListName' to ('ABC', '123', 'XYZ')...¥n";

@NewValues = ('ABC', '123', 'XYZ');

$sessionObj->SetListMembers($ListName, ¥@NewValues);

$members = $sessionObj->GetListMembers($ListName);

#print out the list members
foreach $member (@$members){
   print $member, "¥n";
   } 

フィードバック