How do I find all of the property names associated with an object definition?

Question

I am attempting to query all of the names of the properties from the User ItemType.
Essentially, with my first AML query, I am attempting to get all of the property names that are attached to the User ItemType definition. From there I will be able to dynamically populate a table with all associated property names and values for each row. Looking for the properties surround by the red square in screen shot

Below is a Dialog window that I have created, so my connection is established prior to showing this form, I set the Public Connection property on this form, and then show it.
Below is my failed attempt

Option Strict OnOption Explicit OnOption Infer OffImports Aras.IOMImports System.TextPublic Class ArasInnovatorUsers&nbsp;&nbsp;&nbsp; Public Connection As HttpServerConnection&nbsp;&nbsp;&nbsp; Private Sub ArasInnovatorUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim sb1 As New StringBuilder&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim sb2 As New StringBuilder&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim dQ As String = Chr(34) ' Double Quotes&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim inv As New Innovator(Connection)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim UserProperties As New List(Of String)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'sb1.AppendLine(String.Format("&lt;AML&gt;", ""))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'sb1.AppendLine(String.Format("&nbsp;&nbsp;&nbsp; &lt;Item action={0}get{0} type={0}ItemType{0}&gt;", dQ))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'sb1.AppendLine(String.Format("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;Relationships&gt;", ""))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'sb1.AppendLine(String.Format("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;Item action={0}get{0} type={0}Property{0} select={0}name{0}/&gt;", dQ))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'sb1.AppendLine(String.Format("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;/Relationships&gt;", ""))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'sb1.AppendLine(String.Format("&nbsp;&nbsp;&nbsp; &lt;/Item&gt;", ""))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'sb1.AppendLine(String.Format("&lt;/AML&gt;", ""))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb1.AppendLine(String.Format("&lt;AML&gt;", ""))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb1.AppendLine(String.Format("&lt;Item type={0}ItemType{0} action={0}get{0} select={0}name{0} where={0}ItemType.name = 'User'{0}&gt;", """"))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb1.AppendLine(String.Format("&lt;Relationships&gt;", ""))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb1.AppendLine(String.Format("&lt;Item type={0}Property{0} action={0}get{0} select={0}*{0}/&gt;", """"))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb1.AppendLine(String.Format("&lt;/Relationships&gt;", ""))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb1.AppendLine(String.Format("&lt;/Item&gt;", ""))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb1.AppendLine(String.Format("&lt;/AML&gt;", ""))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim AML1 As String = sb1.ToString&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim item1 As Item = inv.applyAML(AML1)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox(item1.getItemCount)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i As Integer = 0 To item1.getItemCount - 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim user As Item = item1.getItemByIndex(i)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim propName As String = user.getProperty("name")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; UserProperties.Add(propName)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox(propName)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb2.AppendLine(String.Format("&lt;AML&gt;", ""))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb2.AppendLine(String.Format("&nbsp;&nbsp;&nbsp; &lt;Item type={0}User{0} action={0}get{0} select={0}*{0}&gt;", dQ))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb2.AppendLine(String.Format("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;Relationships&gt;", ""))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb2.AppendLine(String.Format("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;Item type={0}Value{0} select={0}value,label{0}/&gt;", dQ))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb2.AppendLine(String.Format("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;/Relationships&gt;", ""))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb2.AppendLine(String.Format("&nbsp;&nbsp;&nbsp; &lt;/Item&gt;", ""))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb2.AppendLine(String.Format("&lt;/AML&gt;", ""))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ListView1.Columns.Clear()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ListView1.Items.Clear()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim AML2 As String = sb2.ToString&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim item2 As Item = inv.applyAML(AML2)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i As Integer = 0 To item2.getItemCount - 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim user As Item = item2.getItemByIndex(i)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '&nbsp;&nbsp; MsgBox(user.getProperty("login_name"))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next&nbsp;&nbsp;&nbsp; End SubEnd Class

asebastian · Answer

Hello,
I quickly generated some AML which does the following. I created and tested this using nash in a local instance. You'll need to modify your VB code to create the string, but the end result should look like this:
&lt;AML&gt;&lt;Item action="get" type="itemType" select="name"&gt;&lt;name&gt;part&lt;/name&gt;&lt;Relationships&gt;&lt;Item type="property" action="get" select="value, label" /&gt;&lt;/Relationships&gt;&lt;/Item&gt;&lt;/AML&gt;
This AML will take the itemtype specified within the &lt;name&gt; tag and return some basic information about that ItemType, as well as all the value/label combinations for the related properties.

AJ

asebastian · Answer

Could you post an example of the XML which is returned? I recommend testing the AML through nash, and then that way you can know what you'll have to parse using your code.

et3ishak · Answer

Thank you AJ, let me test this and get back to you!

et3ishak · Answer

That didn't quite solve my problem, but it did get me working towards a solution which is partially successful. Now the issue is that I can get all property names, but not the labels... Newest working code below...

I guess part of the answer I was looking for was in the fact that the resultes are embedded into the XML nodes, not that I quite understand that structure yet....

Option Strict OnOption Explicit OnOption Infer OffImports Aras.IOMImports System.TextImports System.XmlPublic Class ArasInnovatorUsers&nbsp;&nbsp;&nbsp; Public Connection As HttpServerConnection&nbsp;&nbsp;&nbsp; Private Sub ArasInnovatorUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim sb1 As New StringBuilder&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim dQ As String = Chr(34) ' Double Quotes&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim inv As New Innovator(Connection)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim UserPropertyNames As New List(Of String)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb1.AppendLine("&lt;AML&gt;")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb1.AppendLine("&nbsp;&nbsp;&nbsp; &lt;Item action='get' type='User' select ='*'&gt;")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb1.AppendLine("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;Relationships&gt;")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb1.AppendLine("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;Item type='property' action='get' select='*'/&gt;")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb1.AppendLine("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;/Relationships&gt;")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb1.AppendLine("&nbsp;&nbsp;&nbsp; &lt;/Item&gt;")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sb1.Append("&lt;/AML&gt;")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim AML1 As String = sb1.ToString&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim aml_1 As Item = inv.applyAML(AML1)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Failed attempt to retrieve value, label&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox(aml_1.getItemByIndex(0).getProperty("value"))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox(aml_1.getItemByIndex(0).getProperty("label"))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i As Integer = 0 To aml_1.getItemByIndex(0).node.ChildNodes.Count - 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Gets all property names, but not the label...&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; UserPropertyNames.Add(aml_1.getItemByIndex(0).node.ChildNodes(i).Name)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lstViewArasUsers.Items.Clear()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lstViewArasUsers.Columns.Clear()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each prop As String In UserPropertyNames&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lstViewArasUsers.Columns.Add(prop)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i As Integer = 0 To aml_1.getItemCount - 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim user As Item = aml_1.getItemByIndex(i)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim item As ListViewItem = Nothing&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i2 As Integer = 0 To UserPropertyNames.Count - 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim prop As String = UserPropertyNames.Item(i2)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim propValue As String = user.getProperty(prop)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If i2 = 0 Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; item = New ListViewItem(propValue)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; item.SubItems.Add(propValue)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lstViewArasUsers.Items.Add(item)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next&nbsp;&nbsp;&nbsp; End SubEnd Class

et3ishak · Answer

Unfortunately due to security concerns, I cannot, but if you have a working example that simply iterates and displays the property names and values with a messagebox that would be tremendously helpful, I am looking to only access properties and labels of the default Aras Innovator User object....

Forum Discussion

How do I find all of the property names associated with an object definition?

6 Replies

Recent Discussions

Tree Grid View slow: reads whole branch on expand — improvement ideas?

Auto expand x-properties

Does anyone see performance issues in Chrome

Aras 11SP9 Chrome remove XSLTProcessor

How to highlight a custom CUI Button like the Notification Button based on events of interest?