데이터베이스의 이름을 리턴합니다.
Session 오브젝트의 GetAccessibleDatabases 메소드를 사용하여 DatabaseDesc 오브젝트 목록을 확보한 후 GetDatabaseName을 사용하여 각 오브젝트의 이름을 가져올 수 있습니다. 데이터베이스의 이름을 Session 오브젝트의 UserLogon 메소드의 인수로 사용할 수 있습니다.
VBScript
dbDesc.GetDatabaseName
Perl
$dbDesc->GetDatabaseName();
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
dbName = db.GetDatabaseName
`Logon to the database
sessionObj.UserLogon "tom", "gh36ak3", dbName, AD_PRIVATE_SESSION, ""
End If
' ...
Next
Perl
use CQPerlExt;
#Start a Rational ClearQuest session
$sessionObj = CQSession::Build();
#Get a list of accessible databases
$databases = $sessionObj->GetAccessibleDatabases("MASTR", "", "");
#Get the number of databases
$count = $databases->Count();
# Foreach accessible database, get the dbName and
# 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);