SAapi Object : DeactivateProject Method |
Visual Basic |
---|
Public Function DeactivateProject( _ ByVal DomainName As String, _ ByVal ProjectName As String _ ) As String |
On success, returns an XML string containing the project properties.
The properties of the XML return string:
Private Sub CreateProjectCopy() 'The following Visual Basic example creates a new project ' in an existing domain by copying the customization ' requirements and users from an existing project. Dim sDomainName As String Dim sNewProjectName As String Dim sProjectName As String Dim sServerName As String Dim CreateOptions As Long Dim CopyOptions As Long Dim sReply As String On Error GoTo err sDomainName = "MyNewDomain" sNewProjectName = "MyBrandNewProject" sProjectName = "MyNewProject" sServerName = "http://myserver/qcbin" 'Disconnect all users from Project Call m_SAClient.DisconnectProject _ (sDomainName, sProjectName) ' Deactivate source project Call m_SAClient.DeactivateProject _ (sDomainName, sProjectName) ' Copy from source project to new project CreateOptions = SA_ACTIVATE_NEW_PROJECT CopyOptions = SA_COPY_PROJECT_CUSTOMIZATION _ + SA_COPY_PROJECT_REQUIREMENTS _ + SA_COPY_PROJECT_USERS_AND_GROUPS sReply = m_SAClient.CreateProjectCopy _ (sDomainName, sNewProjectName, SA_ORACLE_DB_TYPE, _ sDomainName, sProjectName, _ sServerName, "admin", "swordfish", _ "", "", 0, 0, _ CopyOptions, CreateOptions) ' Reactivate source project Call m_SAClient.ActivateProject _ (sDomainName, sProjectName) MsgBox sReply Exit Sub err: MsgBox "Program failed:" + err.Description End Sub