Schemas

Descripción

Devuelve la recopilación de esquemas asociados al depósito de esquemas. Es una propiedad de sólo lectura; se puede visualizar, pero no se puede establecer.

Cada elemento de la recopilación devuelta es un objeto Schema.

Sintaxis

VBScript

adminSession.Schemas 

Perl

$adminSession->GetSchemas(); 
Identificador
Descripción
adminSession
Objeto AdminSession que representa la sesión de acceso al depósito de esquemas actual.
Valor de retorno
Un objeto Schemas que contiene todos los esquemas del depósito de esquemas.

Ejemplo

VBScript

set adminSession = CreateObject("ClearQuest.AdminSession")
set SessionObj = CreateObject("ClearQuest.Session")
     adminSession.Logon "admin", "admin", ""

set schemaList = adminSession.Schemas
For each schemaObj in schemaList
     schemaName = schemaObj.Name
     SessionObj.OutputDebugString "Found schema: " & schemaName 
Next 

Perl

use CQPerlExt;

#Crear una sesión de administración de Rational ClearQuest
$adminSession = CQAdminSession::Build();

$SessionObj = CQSession::Build();

#Iniciar la sesión como administrador
$adminSession->Logon( "admin", "admin", "" );

#Obtener la lista de esquemas del depósito.
$schemaList = $adminSession->GetSchemas();

#Obtener el número de esquemas del depósito.
$numSchemas = $schemaList->Count();

#Iterar a través de los esquemas del depósito.
for ( $x=0; $x<$numSchemas; $x++ ) {
     #Obtener el elemento especificado de la recopilación de esquemas
     $schemaObj = $schemaList->Item( $x );
     #Obtener el nombre del esquema
     $schemaName = $schemaObj->GetName();
     #Salida, a través del depurador
     $debugString = "Found schema: " . $schemaName;
     $SessionObj->OutputDebugString( $debugString );
}
CQSession::Unbuild($SessionObj);
CQAdminSession::Unbuild($adminSession); 


Comentarios