Aggiorna le proprietà scrivibili del database dell'utente con tutte le modifiche recenti alla proprietà.
Richiamare questo metodo dopo aver impostato le proprietà del database dell'utente per aggiornare i valori corrispondenti nel database. Se non si richiama questo metodo, qualsiasi modifica recente eseguita sul database non verrà mantenuta.
VBScript
database.ApplyPropertyChanges forceEmpty
Perl
$database->ApplyPropertyChanges(forceEmpty);
Per VB, un valore Variant. Questo argomento è facoltativo. Il valore predefinito è 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);