Writing MDS Objects
This section shows example code to write an object.
'///////////////////////////////////////////////////////////////////////////////////
'
' WriteObject – creates an object
'
'///////////////////////////////////////////////////////////////////////////////////
Function WriteObject (classID As Long, _
objectName As String, _
intVal As Integer, _
longVal As Long, _
stringName As String, _
dateVal As Date, _
doubleVal As Double, _
boolVal As Boolean) As Long
Dim value As New MetaPropertyItem
Dim info As New MetaInfo
Dim tempDbl As Double
Dim tempChar As String * 1
value.name = INTEGER_PROPERTY_NAME
value.value = intVal
info.PropertyItems.Add value
value.name = LONG_PROPERTY_NAME
value.value = longVal
info.PropertyItems.Add value
value.name = STRING_PROPERTY_NAME
value.value = stringName
info.PropertyItems.Add value
value.name = DATE_PROPERTY_NAME
value.value = dateVal
info.PropertyItems.Add value
value.name = DOUBLE_PROPERTY_NAME
value.value = doubleVal
info.PropertyItems.Add value
value.name = BOOLEAN_PROPERTY_NAME
value.value = boolVal
info.PropertyItems.Add value
info.classID = classID
info.Description = objectName
info.objectName = objectName
Repository.WriteObject info
AddOneClass1Object = info.ObjectID
Set value = Nothing
Set info = Nothing
Exit Function
End Function