Repository.Pool.AddPool: Difference between revisions
Jump to navigation
Jump to search
Kate Racaza (talk | contribs) No edit summary |
Kate Racaza (talk | contribs) No edit summary |
||
| Line 2: | Line 2: | ||
<onlyinclude>Adds a new spare part pool to a | <onlyinclude>Adds a new spare part pool to a project. Returns a '''Boolean''' value; when true, indicates indicates a successful save.</onlyinclude> | ||
If a pool with the same name already exists in the destination project, the name will be incremented automatically. For example, if "Pool1" already exists, the new pool might be renamed to "Pool2," "Pool3," etc. | If a pool with the same name already exists in the destination project, the name will be incremented automatically. For example, if "Pool1" already exists, the new pool might be renamed to "Pool2," "Pool3," etc. | ||
| Line 18: | Line 18: | ||
'''VBA''' | '''VBA''' | ||
{{APIComment|' | {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}} | ||
{{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | ||
MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}}) | |||
{{APIComment|'Create a new pool. The following example creates a pool named "MyNewSpares."}} | {{APIComment|'Create a new pool. The following example creates a pool named "MyNewSpares."}} | ||
{{APIPrefix|Dim}} NewSpares {{APIPrefix|As New}} cPool | |||
NewSpares.Name = {{APIString|"MyNewSpares"}} | |||
{{APIComment|'Add the new spare part pool to project #1.}} | {{APIComment|'Add the new spare part pool to project #1.}} | ||
MyRepository.Project.SetCurrentProject(1) | |||
{{APIPrefix|Call}} MyRepository.Pool.AddPool(NewSpares) | |||
'''VB.NET''' | '''VB.NET''' | ||
{{APIComment|' | {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}} | ||
{{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | ||
MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}}) | |||
{{APIComment|'Create a new pool. The following example creates a pool named "MyNewSpares."}} | {{APIComment|'Create a new pool. The following example creates a pool named "MyNewSpares."}} | ||
{{APIPrefix|Dim}} NewSpares {{APIPrefix|As New}} cPool ({{APIString|"MyNewSpares"}}) | |||
{{APIComment|'Add the new spare part pool to project #1.}} | {{APIComment|'Add the new spare part pool to project #1.}} | ||
MyRepository.Project.SetCurrentProject(1) | |||
MyRepository.Pool.AddPool(NewSpares) | |||
Revision as of 15:53, 8 April 2016
 |
Member of: SynthesisAPI.Repository
Adds a new spare part pool to a project. Returns a Boolean value; when true, indicates indicates a successful save.
If a pool with the same name already exists in the destination project, the name will be incremented automatically. For example, if "Pool1" already exists, the new pool might be renamed to "Pool2," "Pool3," etc.
Syntax
.Pool.AddPool(pool)
Parameters
pool
- Required. The cPool object to be added.
Example
This example creates a new spare part pool resource, and then saves it in the first available project in a Synthesis repository.
VBA 'Declare a new Repository object and connect to a Synthesis repository. Dim MyRepository As New Repository MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10") 'Create a new pool. The following example creates a pool named "MyNewSpares." Dim NewSpares As New cPool NewSpares.Name = "MyNewSpares" 'Add the new spare part pool to project #1. MyRepository.Project.SetCurrentProject(1) Call MyRepository.Pool.AddPool(NewSpares)
VB.NET 'Declare a new Repository object and connect to a Synthesis repository. Dim MyRepository As New Repository MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10") 'Create a new pool. The following example creates a pool named "MyNewSpares." Dim NewSpares As New cPool ("MyNewSpares") 'Add the new spare part pool to project #1. MyRepository.Project.SetCurrentProject(1) MyRepository.Pool.AddPool(NewSpares)