SearchConditions: list of all objects in a object library
Contents
Version 2.0 or newer
Dim titleId As Integer = Fred.GetCurrentTitleId()
Dim libName As String = "sysdefault"
Dim sc As New SearchConditions("libObj")
sc.SearchNode = _
New SearchNode.Condition( _
New SearchNode.Condition( _
New SearchNode.Attribute("libObj.libRef.titleRef"), _
OpCode.Equal, _
SearchNode.Literal.Create(titleId)), _
OpCode.And, _
New SearchNode.Condition( _
New SearchNode.Attribute("libObj.libRef.name"), _
OpCode.Equal, _
SearchNode.Literal.Create(libName)))
Dim idNames As System.Collections.Generic.List(Of TeraDP.GN4.Common.IdName) = DataConnection.Instance.ListObjs(New ExtSearchConditions(sc, login), False, SpikedHandling.Exclude)
If idNames IsNot Nothing Then
Dim message As New System.Text.StringBuilder()
For Each idn As TeraDP.GN4.Common.IdName In idNames
message.AppendLine(idn.Name)
Next
MessageBox.Show(message.ToString())
End If
Version 1.6 or older
Dim titleId As Integer = Fred.GetCurrentTitleId()
Dim libName As String = "sysdefault"
Dim sc As New SearchConditions("libObj")
sc.SearchNode = _
New SearchNode.Condition( _
New SearchNode.Condition( _
New SearchNode.Attribute("libObj.libRef.titleRef"), _
OpCode.Equal, _
SearchNode.Literal.Create(titleId)), _
OpCode.And, _
New SearchNode.Condition( _
New SearchNode.Attribute("libObj.libRef.name"), _
OpCode.Equal, _
SearchNode.Literal.Create(libName)))
Dim idNames As System.Collections.Generic.List(Of TeraDP.GN4.Common.IdName) = DataConnection.Instance.ListObjs(sc, False)
If idNames IsNot Nothing Then
Dim message As New System.Text.StringBuilder()
For Each idn As TeraDP.GN4.Common.IdName In idNames
message.AppendLine(idn.Name)
Next
MessageBox.Show(message.ToString())
End If