ユーザー データベースの書き込み可能プロパティを、最近のすべてのプロパティ変更内容で更新します。
ユーザー データベースのプロパティを設定後にこのメソッドを呼び出して、データベース内の対応する値を更新します。このメソッドを呼び出さないと、データベースに行なった最近の変更内容はすべて失われます。
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);