사용자 데이터베이스의 쓰기 가능한 특성을 최신 특성 변경사항으로 업데이트합니다.
데이터베이스에서 해당 값을 변경하려면 사용자 데이터베이스의 특성을 설정한 후 이 메소드를 호출하십시오. 이 메소드를 호출하지 않을 경우, 데이터베이스에 이루어진 최신 변경사항이 유실됩니다.
VBScript
database.ApplyPropertyChanges forceEmpty
Perl
$database->ApplyPropertyChanges(forceEmpty);
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);