현재 데이터베이스의 실제 이름을 설정하거나 리턴합니다. 논리적 이름을 설정한 후에는 다시 변경할 수 없습니다.
이름을 설정하면 Rational ClearQuest가 실제 데이터베이스 자체가 아닌 물리적 데이터베이스에 연결할 때 사용하는 정보가 변경됩니다. 서버 이름을 변경하는 경우, 연결 옵션이 새 이름과 일치하는지 확인해야 합니다. 데이터베이스 이름은 Session 오브젝트의 UserLogon 메소드에 대한 매개변수 중 하나입니다.
새 값을 설정해도 ApplyPropertyChanges 메소드를 호출하지 않으면 적용되지 않습니다.
VBScript
database.DatabaseName database.DatabaseName newDbName
Perl
$database->GetDatabaseName(); $database->SetDatabaseName(newDbName);
VBScript
set sessionObj = CreateObject("CLEARQUEST.SESSION") ' Get the list of databases in the ' MASTR database set. databases = sessionObj.GetAccessibleDatabases("MASTR","admin","") ' Login to each database successively. 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(); # Login to each database successively. for($x=0;$x<$count;$x++){ $db = $databases->Item($x); $dbName = $db->GetDatabaseName(); # Logon to the database $sessionObj->UserLogon( "admin", "", $dbName, "" ); #... } CQSession::Unbuild($sessionObj);