Repository.Model.UpdateModel: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
Line 9: Line 9:


== Usage Example ==
== Usage Example ==
{{APIComment|Declare a new repository connection class.}}
{{APIComment|'Declare a new repository connection class.}}
        Private WithEvents MyRepository As New Repository
  Dim MyRepository As New Repository
 
 
{{APIComment|Connect to the Synthesis repository.}}
{{APIComment|'Connect to the Synthesis repository.}}
        Dim Success As Boolean = False
  Dim Success As Boolean = False
        Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")
  Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")
 
 
{{APIComment|Get the list of Models in the connected repository.}}
{{APIComment|'Get the list of models in the connected repository.}}
        Dim ListOfModels() As [[NameIdPair Class|NameIdPair]]
  Dim ListOfModels() As [[NameIdPair Class|NameIdPair]]
        ListOfModels = MyRepository.GetAllModelsInfo()
  ListOfModels = MyRepository.GetAllModelsInfo()
 
 
{{APIComment|Select the ID of the model and retrieve it.}}
{{APIComment|'Select the ID of the model and retrieve it.}}
        Dim AModel as cModel
  Dim AModel as cModel
        AModel = MyRepository.GetModel(ListOfModels(0).ID)
  AModel = MyRepository.GetModel(ListOfModels(0).ID)
 
 
{{APIComment|After modifying AModel, update the repository.}}
{{APIComment|'After modifying AModel, update the repository.}}
        Dim SuccessUpdateModel As Boolean
  Dim SuccessUpdateModel As Boolean
        SuccessUpdateModel = MyRepository.UpdateModel(AModel)
  SuccessUpdateModel = MyRepository.UpdateModel(AModel)

Revision as of 21:47, 23 May 2014


Updates the model in the repository. Returns True if successful, otherwise returns False.

Syntax

UpdateModel( m AscModel ) As Boolean

Parameters

m: The cModel to update.

Usage Example

 'Declare a new repository connection class. 
 Dim MyRepository As New Repository
 
 'Connect to the Synthesis repository. 
 Dim Success As Boolean = False
 Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")
 
 'Get the list of models in the connected repository. 
 Dim ListOfModels() As NameIdPair
 ListOfModels = MyRepository.GetAllModelsInfo()
 
 'Select the ID of the model and retrieve it. 
 Dim AModel as cModel
 AModel = MyRepository.GetModel(ListOfModels(0).ID)
 
 'After modifying AModel, update the repository. 
 Dim SuccessUpdateModel As Boolean
 SuccessUpdateModel = MyRepository.UpdateModel(AModel)