ユーザー データベースの書き込み可能プロパティを、最近のすべてのプロパティ変更内容で更新します。
ユーザー データベースのプロパティを設定後にこのメソッドを呼び出して、データベース内の対応する値を更新します。このメソッドを呼び出さないと、データベースに行った最近の変更内容はすべて失われます。
VBScript
database.ApplyPropertyChanges forceEmpty
Perl
$database->ApplyPropertyChanges(forceEmpty);
VB の場合は Variant です。 この引数はオプションです。デフォルト値は False です。
Perl の場合は Boolean です。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);