DeleteListMember

Descripción

Suprime un miembro de una lista denominada.

Sintaxis

VBScript

session.DeleteListMember nombreLista, miembroLista 

Perl

$session->DeleteListMember(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

' Obtener el nombre de una de las listas

set ListName = DynamicListNamesRef(0)

   print ListName   

' Obtener los nombres de los miembros de la lista

   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

' Ahora, suprimir un miembro y volver a imprimir la lista...

MsgBox "Deleting member: " + newMember + " from list"

sessionObj.DeleteListMember 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";
   }

# Eliminar el elemento que se acaba de añadir...

print "\nDeleting member '$NewValue' from list '$ListName'...\n";

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

# Volver a imprimir la lista

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

foreach $member (@$members){

   print $member, "\n";
   } 


Comentarios