Repository.Project.GetCurrentProject: Difference between revisions
Jump to navigation
Jump to search
Chris Kahn (talk | contribs) |
Kate Racaza (talk | contribs) No edit summary |
||
| (18 intermediate revisions by 3 users not shown) | |||
| Line 1: | Line 1: | ||
{{Template: | {{Template:API}}{{Template:APIBreadcrumb|.[[Repository Class|Repository]]}} | ||
{{Template:Repository | |||
<onlyinclude>Returns a '''[[NameIdPair Class|NameIDPair]]''' object that represents the name and ID pair of the current project.</onlyinclude> | |||
== | == Syntax == | ||
{{ | '''.Project.GetCurrentProject''' | ||
== Example == | |||
'''VBA|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|'Set the first available project in the repository as the current project.}} | |||
MyRepository.Project.SetCurrentProject(1) | |||
{{APIComment|'Output example: Display the name and ID of the current project.}} | |||
Dim ProjectName {{APIPrefix|As}} String | |||
Dim ProjectID {{APIPrefix|As}} Integer | |||
ProjectName = MyRepository.Project.GetCurrentProject.Name | |||
ProjectID = MyRepository.Project.GetCurrentProject.ID | |||
MsgBox ({{APIString|"You are currently connected to: "}} & ProjectName & {{APIString|", ID#"}} & ProjectID) | |||
Latest revision as of 17:30, 9 June 2016
 |
Member of: SynthesisAPI.Repository
Returns a NameIDPair object that represents the name and ID pair of the current project.
Syntax
.Project.GetCurrentProject
Example
VBA|VB.NET 'Declare a new Repository object and connect to a Synthesis repository. Dim MyRepository As New Repository MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10") 'Set the first available project in the repository as the current project. MyRepository.Project.SetCurrentProject(1) 'Output example: Display the name and ID of the current project. Dim ProjectName As String Dim ProjectID As Integer ProjectName = MyRepository.Project.GetCurrentProject.Name ProjectID = MyRepository.Project.GetCurrentProject.ID MsgBox ("You are currently connected to: " & ProjectName & ", ID#" & ProjectID)