ApplyPropertyChanges

説明

ユーザー データベースの書き込み可能プロパティを、最近のすべてのプロパティ変更内容で更新します。

ユーザー データベースのプロパティを設定後にこのメソッドを呼び出して、データベース内の対応する値を更新します。このメソッドを呼び出さないと、データベースに行った最近の変更内容はすべて失われます。

構文

VBScript

database.ApplyPropertyChanges forceEmpty 

Perl

$database->ApplyPropertyChanges(forceEmpty); 
識別子
説明
database
Database オブジェクト。
forceEmpty
予約済み。False でなければなりません。

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); 

フィードバック