ApplyPropertyChanges
Description
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.
Syntax
VBScript
database.ApplyPropertyChanges
forceEmpty
Perl
$database->ApplyPropertyChanges
(forceEmpty);
- Identifier
- Description
- database
- A Database object.
- forceEmpty
- Reserved. Must be False.
For VB, a Variant. This argument is optional. The default value is False.
For Perl, a Boolean. Must be False.
- Return value
- Returns an empty String if the property changes are valid. Returns a String containing an error message if there are incorrect value changes to the database properties.
Example
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);