Powerd911 – Numéro #1 au Canada

Accès à des attributs étendus

  1. Select File > New Model to open the New Model dialog.
  2. Select Physical Data Model in the left-hand pane.
  3. Select Physical Diagram in the right-hand pane.
  4. Select ORACLE Version 12c in the list DBMSs.
  5. Click OK.
  6. Select Database > Edit Current DBMS.
  7. Right-click ORA12C::Profile\Column\Extended Attributes and select New
  8. Enter a name. For example, ExtAttr_1.
  9. Click OK to save and close the definition file.
  10. Click the Table tool from the toolbox to create one table.
  11. Double-click the table to edit it, and click the Columns to add a few columns.
  12. Click OK to close the property sheet.
  13. Select Tools > Execute Commands > Edit/Run Script, and execute the following

 

For Each t in ActiveModel.Tables
For Each c in t.Columns
value = c.SetExtendedAttribute(« ORA12C.ExtAttr_1 », True)
output c.GetExtendedAttribute(« ORA12C.ExtAttr_1 »)
next
next

 

Dim Model, XEM, ExtAttr
Set Model = CreateModel(PdFRM.cls_Model)
Set XEM = Model.ExtendedModelDefinitions.CreateNew()
XEM.Name = « MyExtendedDefinition »
XEM.Code = XEM.Name
Set ExtAttr = XEM.AddMetaExtension(PDFRM.cls_Model, Cls_ExtendedAttributeTargetItem)
ExtAttr.Name = « MyExtendedAttribute »
ExtAttr.Value = « True »
XEM.NotifyChange()

output Model.GetExtendedAttributeText(« MyExtendedDefinition.MyExtendedAttribute »)

 

Dim Model, XEM, Stereotype, ExtAttr1, ExtAttr2, Result

Set Model = CreateModel(PdFRM.cls_Model)
Set XEM = ActiveModel.ExtendedModelDefinitions.CreateNew()
Set Stereotype = XEM.AddMetaExtension(PdCommon.Cls_ExtendedSubObject, Cls_StereotypeTargetItem) 
Stereotype.Name = « Stereotype_1 »
Set ExtAttr1 = Stereotype.AddMetaExtension(Cls_ExtendedAttributeTargetItem)
Set Result = XEM.GetMetaExtensionsForStereotype(Cls_ExtendedSubObject, « Stereotype_1 », Cls_ExtendedAttributeTargetItem) 
Output Result.Count &  » item(s) can be found in Profile\ExtendedSubObject\Stereotypes\Stereotype_1\Extended Attributes »

XEM.NotifyChange()

Set ExtAttr2 = Stereotype.AddMetaExtension(Cls_ExtendedAttributeTargetItem)
Set Result = XEM.GetMetaExtensionsForStereotype(Cls_ExtendedSubObject, « Stereotype_1 », Cls_ExtendedAttributeTargetItem) 
Output Result.Count &  » item(s) can be found in Profile\ExtendedSubObject\Stereotypes\Stereotype_1\Extended Attributes »

Laisser un commentaire

Contacter nous
300 characters left