Disocia la base de datos especificada del repositorio de esquemas.
Este método, en realidad, no suprime la base de datos especificada. En vez de ello, elimina todas las referencias a la base de datos del repositorio de esquemas.
VBScript
adminSession.DeleteDatabase databaseName
Perl
$adminSession->DeleteDatabase(databaseName);
VBScript
set adminSession = CreateObject("ClearQuest.AdminSession") adminSession.Logon "admin", "admin", "" set newDatabase = adminSession.CreateDatabase "NEWDB" ' ... ' Delete the database that was created earlier. set oldDB = adminSession.DeleteDatabase "NEWDB"
Perl
use CQPerlExt; #Create a Rational ClearQuest admin session $adminSession = CQAdminSession::Build(); #Logon as admin $adminSession->Logon( "admin", "admin", "" ); #Create a new database "NEWDB" and perform some other tasks $newDatabase = $adminSession->CreateDatabase( "NEWDB"); # ... #Delete the database that was created earlier. $ oldDB = $adminSession->DeleteDatabase( "NEWDB" ); CQAdminSession::Unbuild($adminSession);