AttributeMetaData Object

Use the AttributeMetaData object to manage attribute metadata.

Click a method to see more information on its use, syntax, and parameters:

Description Property

Used to get the readable flag of an attribute.

Syntax

object.Description

Part Description
object An attribute metadata object

Remarks

Use the Description property to get the description of an attribute defined within the model file.

Example

Dim Verastream_Session As AppConnModel
Dim strModelName, strServerName, strEntity, strAttribute As String
Dim objMetaData As AttributeMetaData

strModelName = "CCSDemo"
strServerName = "localhost"
strEntity = "AcctTransactions"
strAttribute = "AcctNumber"

Set Verastream_Session = New AppConnModel
Verastream_Session.ConnectToModel strServerName, strModelName
Set objMetaData = Verastream_Session.GetAttributeMetaData(strEntity, strAttribute)

MsgBox ("Description " & objMetaData.Description)

Verastream_Session.Disconnect
Set Verastream_Session = Nothing
Set objMetaData = Nothing 

IsReadable Property

Used to get the readable flag of an attribute.

Syntax

object.IsReadable

Part Description
object An AttributeMetaData object

Remarks

Use the IsReadable property to get the readable flag of an attribute.

Example

Dim Verastream_Session As AppConnModel
Dim strModelName, strServerName, strEntity, strAttribute As String
Dim objMetaData As AttributeMetaData

strModelName = "CCSDemo"
strServerName = "localhost"
strEntity = "AcctTransactions"
strAttribute = "AcctNumber"

Set Verastream_Session = New AppConnModel
Verastream_Session.ConnectToModel strServerName, strModelName
Set objMetaData = Verastream_Session.GetAttributeMetaData(strEntity, strAttribute)

MsgBox ("IsReadable " & objMetaData.IsReadable)

Verastream_Session.Disconnect
Set Verastream_Session = Nothing
Set objMetaData = Nothing

IsWriteable Property

Used to get the writeable of an attribute.

Syntax

object.IsWriteable

Part Description
object An AttributeMetaData object

Remarks

Use the IsWriteable property to get the writeable flag of an attribute.

Example

Dim Verastream_Session As AppConnModel
Dim strModelName, strServerName, strEntity, strAttribute As String
Dim objMetaData As AttributeMetaData

strModelName = "CCSDemo"
strServerName = "localhost"
strEntity = "AcctTransactions"
strAttribute = "AcctNumber"

Set Verastream_Session = New AppConnModel
Verastream_Session.ConnectToModel strServerName, strModelName
Set objMetaData = Verastream_Session.GetAttributeMetaData(strEntity, strAttribute)

MsgBox ("IsWriteable " & objMetaData.IsWriteable)

Verastream_Session.Disconnect
Set Verastream_Session = Nothing
Set objMetaData = Nothing

Length Property

Used to get the length of an attribute.

Syntax

object.Length

Part Description
object An AttributeMetaData object

Remarks

Use the Length property to get the length of an attribute.

Example

Dim Verastream_Session As AppConnModel
Dim strModelName, strServerName, strEntity, strAttribute As String
Dim objMetaData As AttributeMetaData

strModelName = "CCSDemo"
strServerName = "localhost"
strEntity = "AcctTransactions"
strAttribute = "AcctNumber"

Set Verastream_Session = New AppConnModel
Verastream_Session.ConnectToModel strServerName, strModelName
Set objMetaData = Verastream_Session.GetAttributeMetaData(strEntity, strAttribute)

MsgBox ("Length " & objMetaData.Length)

Verastream_Session.Disconnect
Set Verastream_Session = Nothing
Set objMetaData = Nothing 

MetaDataType Property

Used to get the metadata type of an attribute.

Syntax

object.MetaDataType

Part Description
object An AttributeMetaData object

Remarks

Use the MetaDataType property to get the type of metadata within a Verastream table. The enumeration values for AppConnMetaDataType are defined in the Type Library.

Metadata Types
AttributeMeta
OperationMeta
RecordSetMeta
FieldMeta
VariableMeta
TableMeta
ColumnMeta
ProcedureMeta

Example

Dim Verastream_Session As AppConnModel
Dim strModelName, strServerName, strEntity, strAttribute As String
Dim objMetaData As AttributeMetaData

strModelName = "CCSDemo"
strServerName = "localhost"
strEntity = "AcctTransactions"
strAttribute = "AcctNumber"

Set Verastream_Session = New AppConnModel
Verastream_Session.ConnectToModel strServerName, strModelName
Set objMetaData = Verastream_Session.GetAttributeMetaData(strEntity, strAttribute)

MsgBox ("MetaDataType " & objMetaData.MetaDataType)

Verastream_Session.Disconnect
Set Verastream_Session = Nothing
Set objMetaData = Nothing 

Name Property

Used to get the name of an attribute.

Syntax

object.Name

Part Description
object An AttributeMetaData object

Remarks

Use the Name property to get the name of an attribute.

Example

Dim Verastream_Session As AppConnModel
Dim strModelName, strServerName, strEntity, strAttribute As String
Dim objMetaData As AttributeMetaData

strModelName = "CCSDemo"
strServerName = "localhost"
strEntity = "AcctTransactions"
strAttribute = "AcctNumber"

Set Verastream_Session = New AppConnModel
Verastream_Session.ConnectToModel strServerName, strModelName
Set objMetaData = Verastream_Session.GetAttributeMetaData(strEntity, strAttribute)

MsgBox ("Name " & objMetaData.Name)

Verastream_Session.Disconnect
Set Verastream_Session = Nothing
Set objMetaData = Nothing 

ReadVariable Property

Used to get the read variable of an attribute.

Syntax

object.ReadVariable

Part Description
object An AttributeMetaData object

Remarks

Use the ReadVariable property to get the read variable of an attribute. The ReadVariable is the model variable that gets updated when executing a ReadFromMappedAttr command in an operation.

Example

Dim Verastream_Session As AppConnModel
Dim strModelName, strServerName, strEntity, strAttribute As String
Dim objMetaData As AttributeMetaData

strModelName = "CCSDemo"
strServerName = "localhost"
strEntity = "AcctTransactions"
strAttribute = "AcctNumber"

Set Verastream_Session = New AppConnModel
Verastream_Session.ConnectToModel strServerName, strModelName
Set objMetaData = Verastream_Session.GetAttributeMetaData(strEntity, strAttribute)

MsgBox ("ReadVariable " & objMetaData.ReadVariable)

Verastream_Session.Disconnect
Set Verastream_Session = Nothing
Set objMetaData = Nothing 

TerminalAttributesEnabled Property

Used to get the terminal attributes enabled flag of an attribute.

Syntax

object.TerminalAttributesEnabled

Part Description
object An AttributeMetaData object

Remarks

Use the TerminalAttributesEnabled property to get the terminal attributes enabled flag of an attribute. The terminal attributes of an attribute are things like color, IsBlinking etc.

Example

Dim Verastream_Session As AppConnModel
Dim strModelName, strServerName, strEntity, strAttribute As String
Dim objMetaData As AttributeMetaData

strModelName = "CCSDemo"
strServerName = "localhost"
strEntity = "AcctTransactions"
strAttribute = "AcctNumber"

Set Verastream_Session = New AppConnModel
Verastream_Session.ConnectToModel strServerName, strModelName
Set objMetaData = Verastream_Session.GetAttributeMetaData(strEntity, strAttribute)

MsgBox ("TerminalAttributesEnabled " & objMetaData.TerminalAttributesEnabled)

Verastream_Session.Disconnect
Set Verastream_Session = Nothing
Set objMetaData = Nothing 

WriteVariable Property

Used to the write variable of an attribute.

Syntax

object.WriteVariable

Part Description
object An AttributeMetaData object

Remarks

Use the WriteVariable property to get the write variable of an attribute. The WriteVariable is the model variable that a value is gotten from when the WriteToMappedAttrf command is called within an operation.

Example

Dim Verastream_Session As AppConnModel
Dim strModelName, strServerName, strEntity, strAttribute As String
Dim objMetaData As AttributeMetaData

strModelName = "CCSDemo"
strServerName = "localhost"
strEntity = "AcctTransactions"
strAttribute = "AcctNumber"

Set Verastream_Session = New AppConnModel
Verastream_Session.ConnectToModel strServerName, strModelName
Set objMetaData = Verastream_Session.GetAttributeMetaData(strEntity, strAttribute)

MsgBox ("WriteVariable " & objMetaData.WriteVariable)

Verastream_Session.Disconnect
Set Verastream_Session = Nothing
Set objMetaData = Nothing 

 

 

  Attachmate