AddListMember

Descripción

Añade un miembro de lista a la lista denominada.

Sintaxis

VBScript

session.AddListMember nombreLista, miembroLista 

Perl

$session->AddListMember(nombreLista, miembroLista); 
Identificador
Descripción
session
El objeto Session que representa la sesión de acceso a la base de datos actual.
nombreLista
Un valor String que contiene el nombre de la lista.
miembroLista
Un valor String que contiene el miembro en la lista.
Valor de retorno
Ninguno.

Ejemplos

VBScript

' En este ejemplo se da por supuesto que hay, como mínimo,
' 1 lista dinámica

en la sesión de acceso a la base de datos actual.

set sessionObj = GetSession 

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

' Obtener una lista de los nombres de Listas dinámicas que existen
' en esta base de datos...

DynamicListNamesRef = sessionObj.GetListDefNames

' Para una de las listas, imprimir los miembros...

set ListName = DynamicListNamesRef(0)

   members = sessionObj.GetListMembers(ListName)

   ' imprimir los miembros de la lista...

   For Each member In members

      print member

   Next

' Añadir un miembro y, a continuación, volver a imprimir la lista...

set newMember = "XYZ"

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

sessionObj.AddListMember ListName, newMember

   members = sessionObj.GetListMembers(ListName)

   ' imprimir los miembros de la lista...

   For Each member In members

      print member

   Next 

Perl

# En este ejemplo se da por supuesto que hay, como mínimo, 1 lista dinámica

# en la sesión de acceso a la base de datos actual.

$sessionObj = $entity->GetSession();

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



# Obtener una lista de los nombres de Listas dinámicas que existen
# en esta base de datos...

$ListDefNamesREF = $sessionObj->GetListDefNames();

# Para una de las listas, imprimir los miembros...

$ListName = @$ListDefNamesREF[0];

Print $ListName, "\n";

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

foreach $member (@$members){

   print $member, "\n";
   }

# Añadir un miembro y, a continuación, volver a imprimir la lista...

$NewValue = "XYZ";

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

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

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

foreach $member (@$members){

   print $member, "\n";
   } 


Comentarios