Devuelve la serie de "conexión directa" para el inicio de sesión en la base de datos.
Este método devuelve una serie de "conexión directa" específica de la base de datos que se puede pasar a una interfaz ODBC. El procedimiento normal de inicio de sesión en una base de datos es invocando al método UserLogon del objeto Session. Este método puede resultar útil a los expertos que deseen utilizar DAO u otros métodos ODBC para leer la base de datos de Rational ClearQuest.
VBScript
En el ejemplo siguiente se muestra cómo iniciar la sesión en la base de datos desde una aplicación de Visual Basic.
set sessionObj = CreateObject("CLEARQUEST.SESSION") ' Login to each database successively. databases = sessionObj.GetAccessibleDatabases("MASTR","","") For Each db in databases dbName = db.GetDatabaseName sessionObj.UserLogon "admin", "", dbName, AD_PRIVATE_SESSION, "" dbConnectString = db.GetDatabaseConnectString Next
Perl
use CQPerlExt; #Start a Rational ClearQuest session $sessionObj = CQSession::Build(); #Get a list of accessible databases $databases = $sessionObj->GetAccessibleDatabases("MASTR", "", ""); $count = $databases->Count(); #Foreach accessible database, login as joe with password gh36ak3 #joe must be a superuser for($x=0;$x<$count;$x++){ $db = $databases->Item($x); $dbName = $db->GetDatabaseName(); # Logon to the database $sessionObj->UserLogon( "joe", "gh36ak3", $dbName, "" ); #Get a "direct connect" string that ODBC experts #can use to logon to the database $dbConnectString = $db->GetDatabaseConnectString(); } CQSession::Unbuild($sessionObj);