이 데이터베이스가 멤버인 데이터베이스 세트 이름을 리턴합니다.
이 메소드를 사용하여 해당 데이터베이스의 데이터베이스 세트 이름을 가져올 수 있습니다. 이 이름을 Session 오브젝트의 GetAccessibleDatabases 메소드에 전달하여 데이터베이스 세트에 있는 사용자 데이터베이스 목록을 가져올 수 있습니다.
VBScript
다음 예제에 Visual Basic 애플리케이션으로부터 데이터베이스에 로그온하는 방법이 나와 있습니다.
set sessionObj = CreateObject("CLEARQUEST.SESSION") ' Login to each database successively. databases = sessionObj.GetAccessibleDatabases("MASTR","","") For Each db in databases If Not db.GetIsMaster Then dbSetName = db.GetDatabaseSetName dbName = db.GetDatabaseName ' Logon to the database sessionObj.UserLogon "tom", "gh36ak3", dbName, AD_PRIVATE_SESSION, dbSetName End If ' ... Next
Perl
use CQPerlExt;
#Start a Rational ClearQuest session
$sessionObj = CQSession::Build();
#Get a list of accessible database description objects
$databases = $sessionObj->GetAccessibleDatabases("MASTR", "", "");
#Get the number of databases
$count = $databases->Count();
#Foreach accessible database that is not the master database, login as
#user "tom" with password "gh36ak3"
for($x=0;$x<$count;$x++){
$db = $databases->Item($x);
if (! $db->GetIsMaster() ) {
#Get the database set of which this database is a member
$dbSetName = $db->GetDatabaseSetName();
#Get the database name from the description object
$dbName = $db->GetDatabaseName();
# Logon to the database
$sessionObj->UserLogon( "tom", "gh36ak3", $dbName, $dbSetName );
}
#...
}
CQSession::Unbuild($sessionObj);