VBScript
session.AddListMember nombreLista, miembroLista
Perl
$session->AddListMember(nombreLista, miembroLista);
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";
}