ApplyPropertyChanges

설명

사용자 데이터베이스의 쓰기 가능한 특성을 최신 특성 변경사항으로 업데이트합니다.

데이터베이스에서 해당 값을 변경하려면 사용자 데이터베이스의 특성을 설정한 후 이 메소드를 호출하십시오. 이 메소드를 호출하지 않을 경우, 데이터베이스에 이루어진 최신 변경사항이 유실됩니다.

구문

VBScript

database.ApplyPropertyChanges forceEmpty 

Perl

$database->ApplyPropertyChanges(forceEmpty); 
ID
설명
database
Database 오브젝트.
forceEmpty
예약되어 있습니다. 값은 False이어야 합니다.

VB의 경우, Variant 값입니다. 이 인수는 선택적입니다. 기본값은 False입니다.

Perl의 경우, 부울입니다. 값은 False이어야 합니다.

Return value
특성 변경사항이 올바른 경우 빈 문자열을 리턴합니다. 데이터베이스 특성이 올바르지 않은 값으로 변경될 경우, 오류 메시지를 포함하는 문자열이 리턴됩니다.

예제

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

피드백