AddListMember

Descrizione

Aggiunge un membro elenco all'elenco denominato.

Sintassi

VBScript

session.AddListMember listName, listMember 

Perl

$session->AddListMember(listName, listMember); 
Identificativo
Descrizione
session
L'oggetto Session che rappresenta la sessione di accesso al database corrente.
listName
Una stringa che contiene il nome dell'elenco.
listMember
Una stringa che contiene il membro nell'elenco.
Valore di ritorno
Nessuno

Esempi

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, ""

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

DynamicListNamesRef = sessionObj.GetListDefNames

' For one of the lists, print out its members...

set ListName = DynamicListNamesRef(0)

   members = sessionObj.GetListMembers(ListName)

   ' print out the list members...

   For Each member In members

      print member

   Next

' Add a member, then print the list again...

set newMember = "XYZ"

MsgBox "Adding member: " + newMember + " to list" + ListName

sessionObj.AddListMember ListName, newMember

   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();

# For one of the lists, print out its members...

$ListName = @$ListDefNamesREF[0];

Print $ListName, "\n";

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

foreach $member (@$members){

   print $member, "\n";
   }

# Add a member, then print the list again...

$NewValue = "XYZ";

print "\nAdding member '$NewValue' to list '$ListName'...\n";

$sessionObj->AddListMember($ListName, $NewValue);

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

foreach $member (@$members){

   print $member, "\n";
   } 

Feedback