Repository.Crew.GetCrew: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
(Created page with '{{Template:APIClass|Repository Class|Repository}} {{Template:Repository.GetCrew.Cmt}} ==Syntax== * GetCrew( crew {{APIPrefix|ByVal}} ID {{APIPrefix|As Integer}}) {{APIPrefix|As}…')
 
No edit summary
 
(16 intermediate revisions by 3 users not shown)
Line 1: Line 1:
{{Template:APIClass|Repository Class|Repository}}
{{Template:API}}{{Template:APIBreadcrumb|.[[Repository Class|Repository]]}}
{{Template:Repository.GetCrew.Cmt}}


==Syntax==
* GetCrew( crew {{APIPrefix|ByVal}} ID {{APIPrefix|As Integer}}) {{APIPrefix|As}} [[cCrew Class|cCrew]]


Parameters
<onlyinclude>Returns a '''[[CCrew Class|cCrew]]''' object that represents a given crew resource in the current project. Returns nothing if the crew does not exist or is not in the current project.</onlyinclude>
:''ID'': The ID to get.


== Usage Example ==
== Syntax ==
  {{APIComment|'Declare a new repository connection object.}}
'''.Crew.GetCrew'''(''ID'')
  Dim MyRepository As New Repository
=== Parameters ===
 
''ID''
  {{APIComment|'Connect to the Synthesis repository.}}
:Required. Integer. The ID number of the crew to retrieve.
  Dim Success As Boolean = False
 
  Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")
 
 
== Example ==
  {{APIComment|'Get the list of crews in the connected repository.}}
This example assumes that a crew with ID #1 exists in the first project of a Synthesis repository.
  Dim ListOfCrews() As [[cCrew Class|cCrew]]
'''VBA'''
  ListOfCrews = MyRepository.GetAllCrews()
  {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}}
  {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
  MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}})
 
  {{APIComment|'Get crew #1 from project #1.}}
  {{APIPrefix|Dim}} MyCrew {{APIPrefix|As}} cCrew
  MyRepository.Project.SetCurrentProject(1)
  {{APIPrefix|Set}} MyCrew = MyRepository.Crew.GetCrew(1)
  {{APIComment|'Output sample: Display the name and ID of the crew.}}
  {{APIPrefix|Dim}} CrewName {{APIPrefix|As}} String
  {{APIPrefix|Dim}} CrewID {{APIPrefix|As}} Integer
  CrewName = MyCrew.Name
  CrewID = MyCrew.ID
  MsgBox ({{APIString|"You got "}} & CrewName & {{APIString|", ID#"}} & CrewID)
 
'''VB.NET'''
{{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}}
  {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
  MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}})
    
    
  {{APIComment|'Get a Crew.}}
  {{APIComment|'Get crew #1 from project #1.}}
  Dim GetCrew As Boolean = False
  {{APIPrefix|Dim}} MyCrew {{APIPrefix|As}} cCrew
  GetCrew= MyRepository.GetCrew(1)
  MyRepository.Project.SetCurrentProject(1)
  MyCrew = MyRepository.Crew.GetCrew(1)
{{APIComment|'Output sample: Display the name and ID of the crew.}}
  {{APIPrefix|Dim}} CrewName {{APIPrefix|As}} String
  {{APIPrefix|Dim}} CrewID {{APIPrefix|As}} Integer
  CrewName = MyCrew.Name
  CrewID = MyCrew.ID
  MsgBox ({{APIString|"You got "}} & CrewName & {{APIString|", ID#"}} & CrewID)

Latest revision as of 18:52, 9 June 2016

APIWiki.png


Member of: SynthesisAPI.Repository


Returns a cCrew object that represents a given crew resource in the current project. Returns nothing if the crew does not exist or is not in the current project.

Syntax

.Crew.GetCrew(ID)

Parameters

ID

Required. Integer. The ID number of the crew to retrieve.


Example

This example assumes that a crew with ID #1 exists in the first project of 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")
  
 'Get crew #1 from project #1. 
  Dim MyCrew As cCrew
  MyRepository.Project.SetCurrentProject(1)
  Set MyCrew = MyRepository.Crew.GetCrew(1)

 'Output sample: Display the name and ID of the crew. 
  Dim CrewName As String
  Dim CrewID As Integer
  CrewName = MyCrew.Name
  CrewID = MyCrew.ID
  MsgBox ("You got " & CrewName & ", ID#" & CrewID)
VB.NET

 'Declare a new Repository object and connect to a Synthesis repository. 
  Dim MyRepository As New Repository
  MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10")
 
 'Get crew #1 from project #1. 
  Dim MyCrew As cCrew
  MyRepository.Project.SetCurrentProject(1)
  MyCrew = MyRepository.Crew.GetCrew(1)

 'Output sample: Display the name and ID of the crew. 
  Dim CrewName As String
  Dim CrewID As Integer
  CrewName = MyCrew.Name
  CrewID = MyCrew.ID
  MsgBox ("You got " & CrewName & ", ID#" & CrewID)