Restituisce la stringa "direct connect" per l'accesso ad un database.
Questo metodo restituisce una stringa "direct connect" specifica per il database appropriata per il trasferimento ad un'interfaccia ODBC. Il modo normale di accedere ad un database è tramite la chiamata del metodo UserLogon dell'oggetto Session. Questo metodo può essere utile per esperti che desiderano utilizzare il metodo DAO o altri metodi ODBC per leggere il database Rational ClearQuest.
VBScript
Nel seguente esempio viene mostrato come accedere al database da un'applicazione 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);