UserLogon

Descripción

Inicia la sesión como el usuario especificado para una sesión de base de datos.

Antes de llamar a este método, debe haber creado e inicializado un nuevo objeto Session.

Nota: Debe iniciar la sesión con el privilegio para evitar que el método GetDatabaseConnectString del objeto DatabaseDesc genere un error.

Si está escribiendo código de enganche, normalmente este método no es necesario. IBM® Rational ClearQuest crea, automáticamente, el objeto Session e inicia la sesión del usuario antes de llamar a ningún enganche.

Sintaxis

VBScript

session.UserLogon
login_name, password,
database_name, session_type,database_set 

Perl

$session->UserLogon(login_name,
password, database_name,
database_set); 
Identificador
Descripción
session
El objeto Session que representa la sesión de acceso a la base de datos actual.
login_name
Un valor String que especifica el nombre de inicio de sesión del usuario.
password
Un valor String que especifica la contraseña del usuario.
database_name
Un valor String que especifica el nombre de la base de datos de usuario que se desea. (No se debe iniciar la sesión en el repositorio de esquemas utilizando este método).
session_type
(VBScript Only) Una constante enumerada de SessionType (use AD_PRIVATE_SESSION). Perl no reconoce las constantes de SessionType.
database_set
Un valor String que especifica el nombre del conjunto de bases de datos o serie de conexión.
Nota: Puede utilizar una serie vacía ("") si sólo tiene un conjunto de bases de datos o para hacer referencia al conjunto de bases de datos predeterminado. El nombre del conjunto de bases de datos predeterminado es el que coincide con el número de versión del producto, 7.0. , por ejemplo.
Nota: 0).
Valor de retorno
Ninguno.

Ejemplos

VBScript

' The following example shows you how to log on to the database
'  from a Visual Basic application.  
set sessionObj = CreateObject("CLEARQUEST.SESSION")    
' Login to each database successively.
databases = sessionObj.GetAccessibleDatabases("MASTR","admin","")  
For Each db in databases   
   dbName = db.GetDatabaseName   
   sessionObj.UserLogon "admin", "", dbName, AD_PRIVATE_SESSION, ""  
' Access the database   
' ...  Next

Perl

use CQPerlExt;

#Start a Rational ClearQuest session

$sessionObj = CQSession::Build();

#Get a list of accessible databases

$databases = $sessionObj->GetAccessibleDatabases("MASTR", "admin", "");

$count = $databases->Count();

#For each accessible database, login as joe with password gh36ak3

for($x=0;$x<$count;$x++){

   $db = $databases->Item($x);
   $dbName = $db->GetDatabaseName();
   # Logon to the database 
   $sessionObj->UserLogon( "joe", "gh36ak3", $dbName, "" );
   #...
   }

CQSession::Unbuild($sessionObj); 

Feedback