SAapi Object : CreateProject3 Method |
The type of database. Use the following constants or their values:
One or more of the values:
Of the SA_COPY_PROJECT_OPTIONS Enumeration.
To specify both ACTIVATE and CREATE_VERSION_CONTROL, OR the options together:
(SA_ACTIVATE_NEW_PROJECT Or SA_CREATE_VERSION_CONTROL_DB)
A safe array containing the names of the extensions to enable or a BSTR containing a name of a single extension.
If this Variant is empty, the method behaves like CreateProject2.
Visual Basic |
---|
Public Function CreateProject3( _ ByVal DomainName As String, _ ByVal ProjectName As String, _ ByVal IsTemplate As Boolean, _ ByVal ProjectType As String, _ ByVal DbType As Integer, _ ByVal DbServerName As String, _ ByVal AdminUser As String, _ ByVal AdminPassword As String, _ ByVal TableSpace As String, _ ByVal TempTableSpace As String, _ ByVal CreationOptions As Long, _ ByVal vExtensionNames As Variant _ ) As String |
The type of database. Use the following constants or their values:
One or more of the values:
Of the SA_COPY_PROJECT_OPTIONS Enumeration.
To specify both ACTIVATE and CREATE_VERSION_CONTROL, OR the options together:
(SA_ACTIVATE_NEW_PROJECT Or SA_CREATE_VERSION_CONTROL_DB)
A safe array containing the names of the extensions to enable or a BSTR containing a name of a single extension.
If this Variant is empty, the method behaves like CreateProject2.
On success, returns an XML string containing the project properties.
The properties of the XML return string:
Private Sub CreateProject3() 'The following Visual Basic example creates a ' new project in an existing domain. Dim sDomainName As String Dim sProjectName As String Dim sProjectType As String Dim sServerName As String Dim CreateOptions As Long Dim vExtensionNames As Variant Dim sReply As String On Error GoTo err sDomainName = "MyNewDomain" sProjectName = "MyNewProject" sProjectType = "Standard" sServerName = "http://myserver/qcbin" vExtensionNames = "ALM_SAMPLE_EXTENSION" CreateOptions = SA_ACTIVATE_NEW_PROJECT sReply = m_SAClient.CreateProject3 _ (sDomainName, sProjectName, SA_ORACLE_DB_TYPE, _ sServerName, "admin", "swordfish", _ "", "", 0, 0, _ CreateOptions, vExtensionNames) MsgBox sReply Exit Sub err: MsgBox "Program failed:" + err.Description End Sub