GetListDefNames

Descripción

Devuelve una lista de las listas dinámicas de la base de datos actual.

Sintaxis

VBScript

sessionObj.GetListDefNames 

Perl

$sessionObj->GetListDefNames(); 
Identificador
Descripción
session
El objeto Session que representa la sesión de acceso a la base de datos actual.
Valor de retorno

Para Visual Basic, devuelve un valor Variant que contiene una matriz
cuyos
elementos son series. Cada serie
contiene el nombre de un campo.
Para Perl, devuelve una referencia a una  matriz de series.

Ejemplo

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 cada una de las listas, imprimir los miembros...

For Each ListName in DynamicListNamesRef

   print ListName   

   ' A continuación, para cada lista, obtener los miembros de lista de cada lista.

   members = sessionObj.GetListMembers(ListName)

   ' imprimir los miembros de la lista...

   For Each member In members

      print member

   Next

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

$NListDefNames = scalar @$ListDefNamesREF;

if ( $NListDefNames == 0) {

    print "\n"

        ."There are no dynamic lists in this database.\n"

        ."Unable to continue.\n"

        ."Re-invoke this program specifying a user database with some dynamic 
lists defined.\n";

    exit 1;

} else {

    print "\nThere are $NListDefNames dynamic lists in this database:\n";

    foreach $ListName (@$ListDefNamesREF) {

        print "  '$ListName'\n";

    }

}

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

$ListName = @$ListDefNamesREF[0];

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

foreach $member (@$members){

   print $member, "\n";
   } 


Comentarios