Updates the writable properties of the user database with any recent property changes.
Call this method after you have set the properties of the user database to update the corresponding values in the database. If you do not call this method, any recent changes you made to the database will be lost.
VBScript
database.ApplyPropertyChanges forceEmpty
Perl
$database->ApplyPropertyChanges(forceEmpty);
For VB, a Variant. This argument is optional. The default value is False.
For Perl, a Boolean. Must be 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);