ALM Site Administratation Client Type Library
Restoring an existing project to a domain
Private Sub RestoreProject()

'The following Visual Basic example restores a project
' that was saved in the MyProject subdirectory.
    Dim sDomainName As String
    Dim sProjectName As String
    Dim sServerName As String
    Dim CreateOptions As Long
    Dim sReply As String

    On Error GoTo err
    sDomainName = "MyDomain"
    sProjectName = "MyProject"
    sServerName = "http://myserver/sabin"

    sReply = m_SAClient.RestoreProject( _
        sDomainName, sProjectName, SA_ORACLE_DB_TYPE, _
        "C://TD_Dir/MYDOMAIN/MyProject", sProjectName, _
        sServerName, "jdbc:inetora:myserver:1521:myserver", _
        sUserPassWord, True, True, True, 20, "", _
        "New Project1 for testing")

    MsgBox sReply
    Exit Sub
err:
    MsgBox "Program failed:" + err.Description
End Sub
Send documentation feedback to HP.