사용자 데이터베이스의 쓰기 가능한 특성을 최신 특성 변경사항으로 업데이트합니다.
데이터베이스에서 해당 값을 변경하려면 사용자 데이터베이스의 특성을 설정한 후 이 메소드를 호출하십시오. 이 메소드를 호출하지 않을 경우, 데이터베이스에 이루어진 최신 변경사항이 유실됩니다.
VBScript
database.ApplyPropertyChanges forceEmpty
Perl
$database->ApplyPropertyChanges(forceEmpty);
VB의 경우, Variant 값입니다. 이 인수는 선택적입니다. 기본값은 False입니다.
Perl의 경우, 부울입니다. 값은 False이어야 합니다.
VBScript
set adminSession = CreateObject("ClearQuest.AdminSession)
' Create a new database
set db = adminSession.CreateDatabase("newDb")
db.Vendor = AD_SQL_SERVER
db.DatabaseName = "path SQL-Server db file"
db.Desciption = "This is a sample database"
db.Server = "machine name of the server"
db.SetInitialSchemaRev = "some schema revision"
db.ApplyPropertyChanges
Perl
# Create a new database object
my($DB);
$DB = $CQAdminSession->CreateDatabase("NEWDB");
# Set some properties
$DB->SetName("NEWDB");
$DB->SetDescription("My Cool Database");
# Set all the physical characteristics...
$DB->SetVendor($CQPerlExt::CQ_SQL_SERVER);
# Store the database in SQL Server, on machine, MySQLServer
$DB->SetServer("MySQLServer");
$DB->SetDatabaseName("CQ_NEWDB");
$DB->SetDBOLogin("CQ_NEWDB_DBO");
$DB->SetDBOPassword("SECRET");
$DB->SetRWLogin("CQ_NEWDB_DBO");
$DB->SetRWPassword("SECRET");
$DB->SetROLogin("CQ_NEWDB_DBO");
$DB->SetROPassword("SECRET");
$DB->SetTimeoutInterval(0);
$DB->SetConnectOptions(""); # Not needed, for SQL Server
# Set the initial schema rev of the user database...
$DB->SetInitialSchemaRev($DesiredSchemaRev);
# Apply the property changes
$DB->ApplyPropertyChanges(0);