Click a method to see more information on its use, syntax, and parameters:
object.Add Name, Value
Part | Description |
object | An AppConnStringMap object |
Name | The name for an element |
Value | The value for an element |
Dim Verastream_Session As AppConnModel Dim strModelName, strServerName, strEntity, strAttrName, strAttrValue As String Dim Attributes As AppConnStringMap strModelName = "CCSDemo" strServerName = "localhost" Set Verastream_Session = New AppConnModel Verastream_Session.ConnectToModel strServerName, strModelName strEntityName = "CustInquiryPanel" Verastream_Session.SetCurrentEntity strEntityName strAttrName = "AcctNumber" strAttrValue = "167439459" Set Attributes = New AppConnStringMap Attributes.Add strAttrName, strAttrValue Verastream_Session.SetAttributes Attributes MsgBox (AttributesClone.Item("AcctNumber")) Verastream_Session.Disconnect Set Verastream_Session = Nothing Set Attributes = Nothing
object.Clear
Part | Description |
object | An AppConnStringMap |
Dim Verastream_Session As AppConnModel Dim strModelName, strServerName, strEntity, strAttrName, strAttrValue As String Dim Attributes As AppConnStringMap strModelName = "CCSDemo" strServerName = "localhost" Set Verastream_Session = New AppConnModel Verastream_Session.ConnectToModel strServerName, strModelName strEntityName = "CustInquiryPanel" Verastream_Session.SetCurrentEntity strEntityName strAttrName = "AcctNumber" strAttrValue = "167439459" Set Attributes = New AppConnStringMap Attributes.Add strAttrName, strAttrValue Verastream_Session.SetAttributes Attributes MsgBox (Attributes.Item("AcctNumber")) Attributes.Clear Verastream_Session.Disconnect Set Verastream_Session = Nothing Set Attributes = Nothing
Set Copy = object.Clone
Part | Description |
object | An AppConnStringMap |
Copy | A copy of the AppConnStringMap |
Dim Verastream_Session As AppConnModel Dim strModelName, strServerName, strEntity, strAttrName, strAttrValue As String Dim Attributes, AttributesClone As AppConnStringMap strModelName = "CCSDemo" strServerName = "localhost" Set Verastream_Session = New AppConnModel Verastream_Session.ConnectToModel strServerName, strModelName strEntityName = "CustInquiryPanel" Verastream_Session.SetCurrentEntity strEntityName strAttrName = "AcctNumber" strAttrValue = "167439459" Set Attributes = New AppConnStringMap Attributes.Add strAttrName, strAttrValue Verastream_Session.SetAttributes Attributes Set AttributesClone = Attributes.Clone MsgBox (AttributesClone.Item("AcctNumber")) Verastream_Session.Disconnect Set Verastream_Session = Nothing Set Attributes = Nothing Set AttributesClone = Nothing
object.Count
Part | Description |
object | An AppConnStringMap |
Dim Verastream_Session As AppConnModel Dim strModelName, strServerName, strEntity, strAttrName, strAttrValue As String Dim Attributes, AttributesClone As AppConnStringMap strModelName = "CCSDemo" strServerName = "localhost" Set Verastream_Session = New AppConnModel Verastream_Session.ConnectToModel strServerName, strModelName strEntityName = "CustInquiryPanel" Verastream_Session.SetCurrentEntity strEntityName strAttrName = "AcctNumber" strAttrValue = "167439459" Set Attributes = New AppConnStringMap Attributes.Add strAttrName, strAttrValue MsgBox ("count of records = " & Attributes.Count) Verastream_Session.Disconnect Set Verastream_Session = Nothing Set Attributes = Nothing
Locale = object.GetLocale
Part | Description |
object | An AppConnStringMap |
Locale |
The locale designation |
Dim Verastream_Session As AppConnModel Dim strModelName, strServerName, strEntity, strAttrName, strAttrValue As String Dim Attributes As AppConnStringMap strModelName = "CCSDemo" strServerName = "localhost" Set Verastream_Session = New AppConnModel Verastream_Session.ConnectToModel strServerName, strModelName strEntityName = "CustInquiryPanel" Verastream_Session.SetCurrentEntity strEntityName strAttrName = "AcctNumber" strAttrValue = "167439459" Set Attributes = New AppConnStringMap Attributes.SetLocale ("en_us") MsgBox ("Locale is = " & Attributes.GetLocale) Attributes.Add strAttrName, strAttrValue Verastream_Session.Disconnect Set Verastream_Session = Nothing Set Attributes = Nothing
object.Item(Index)
object.Item("Name")
object(Index)
object("Name")
object!Name
Part | Description |
object | An AppConnStringMap |
Index | The name or index(starting at 1) of an element in the AppConnStringMap |
Name | The name of an element in the AppConnStringMap |
Dim Verastream_Session As AppConnModel Dim strModelName, strServerName, strEntity, strAttrName, strAttrValue As String Dim Attributes As AppConnStringMap strModelName = "CCSDemo" strServerName = "localhost" Set Verastream_Session = New AppConnModel Verastream_Session.ConnectToModel strServerName, strModelName strEntityName = "CustInquiryPanel" Verastream_Session.SetCurrentEntity strEntityName strAttrName = "AcctNumber" strAttrValue = "167439459" Set Attributes = New AppConnStringMap Attributes.Add strAttrName, strAttrValue MsgBox ("Account Number = " & Attributes.Item(1)) MsgBox ("Account Number = " & Attributes.Item("AcctNumber")) MsgBox ("Account Number = " & Attributes(1)) MsgBox ("Account Number = " & Attributes("AcctNumber")) MsgBox ("Account Number = " & Attributes!AcctNumber) Verastream_Session.Disconnect Set Verastream_Session = Nothing Set Attributes = Nothing
Set Keys = object.Keys
Part | Description |
Keys | An AppConnStringList of the keys for the AppConnStringMap |
object | An AppConnStringMap |
Dim Verastream_Session As AppConnModel Dim strModelName, strServerName, strEntity, strAttrName, strAttrValue As String Dim Attributes As AppConnStringMap Dim Keys As AppConnStringList strModelName = "CCSDemo" strServerName = "localhost" Set Verastream_Session = New AppConnModel Verastream_Session.ConnectToModel strServerName, strModelName strEntityName = "CustInquiryPanel" Verastream_Session.SetCurrentEntity strEntityName strAttrName = "AcctNumber" strAttrValue = "167439459" Set Attributes = New AppConnStringMap Attributes.Add strAttrName, strAttrValue Set KeyList = Attributes.Keys MsgBox ("key list is " & KeyList(1)) Verastream_Session.Disconnect Set Verastream_Session = Nothing Set Attributes = Nothing Set Keys = Nothing
object.Remove Index
Part | Description |
object | An AppConnStringMap |
Index | The name or index (starting at 1) of an element in the list |
Dim Verastream_Session As AppConnModel Dim strModelName, strServerName, strEntity, strAttrName, strAttrValue As String Dim Attributes As AppConnStringMap strModelName = "CCSDemo" strServerName = "localhost" Set Verastream_Session = New AppConnModel Verastream_Session.ConnectToModel strServerName, strModelName strEntityName = "CustInquiryPanel" Verastream_Session.SetCurrentEntity strEntityName Set Attributes = New AppConnStringMap strAttrName = "AcctNumber" strAttrValue = "167439459" Attributes.Add strAttrName, strAttrValue strAttrName = "AcctNumber2" strAttrValue = "167439459" Attributes.Add strAttrName, strAttrValue MsgBox ("Attribute count = " & Attributes.Count) Attributes.Remove (2) MsgBox ("Attribute count = " & Attributes.Count) Verastream_Session.Disconnect Set Verastream_Session = Nothing Set Attributes = Nothing
object.SetLocale Locale
Part | Description |
object | An AppConnStringMap |
Locale |
The locale designation |
Dim Verastream_Session As AppConnModel Dim strModelName, strServerName, strEntity, strAttrName, strAttrValue As String Dim Attributes As AppConnStringMap strModelName = "CCSDemo" strServerName = "localhost" Set Verastream_Session = New AppConnModel Verastream_Session.ConnectToModel strServerName, strModelName strEntityName = "CustInquiryPanel" Verastream_Session.SetCurrentEntity strEntityName strAttrName = "AcctNumber" strAttrValue = "167439459" Set Attributes = New AppConnStringMap Attributes.SetLocale ("en_us") MsgBox ("Locale is = " & Attributes.GetLocale) Attributes.Add strAttrName, strAttrValue Verastream_Session.Disconnect Set Verastream_Session = Nothing Set Attributes = Nothing