In case, the extended attribute is not of type text, you can use SetExtendedAttributeText to try, and use the automatic conversion from text to the actual attribute type.In this exercise, you will create an Amazon RDS database instance and store the Amazon S3 object key for the photo and photo labels in the database.
HWO TO CREAT ERDS WITH POWERDESIGNER CODE
In the shipped targets, this is written as obj.SetExtendedAttribute "%CurrentTargetCode%.CastDataType", value where %CurrentTargetCode% is replaced by the actual target code before the VBscript is prepared, and executed. ForĮxample: "MyGenerationTarget.MyExtendedAttribute". Qualified name - the name of the extended attribute prefixed by theĬode of the GenerationTarget object on which it is defined. in fact, to quote the "SAP PowerDesigner Scripting" (pdvbs.chm in the installation directory):Ĭhanges the values of an extended attribute, identified by its I guess that if you don't specify the target code, it assumes that the extended attribute is defined in the current model, not in some external model/target. Obj.SetExtendedAttribute "SYASA12.CastDataType", value I guess you want to set an extended attribute related to the Sybase SQL Anywhere 12 DBMS that you picked. > attr.PersistentCode = "NAME" attr.PersistentDataType = "A30" > = t.CreateObject(Pdcdm.cls_Attribute) attr.Name = "Name" attr.Code = "Name" attr.DataType = "String" attr.Persistent = True > attr.PersistentDataType = "I" attr.PrimaryIdentifier = True Set attr > attr.Persistent = True attr.PersistentCode = "ID" > attr.Name = "ID" attr.Code = "ID" attr.DataType = "int" > t.CreateObject(Pdcdm.cls_Attribute) t=() > Function CreateAttributes(t) Dim attr Set attr = > LogFile = fso.OpenTextFile(LogFilename, 8, True) LogFile.WriteLine > 'Log file Sub Logger (LogFilename, LogText) Dim fso Dim LogFile Set fso = CreateObject("Scripting.FileSystemObject") Set > Logger LogFile, Year(Date) & "-" & Month(Date) & "-" & Day(Date) & " " & Time & " - Object: " & name > t.Name = objExcel.Cells(intRow, 1).Value > ElementType = objExcel.Cells(intRow, 16).Value > GoldenSourceSystem = objExcel.Cells(intRow, 15).Value > 13).Value SourceSystemName = objExcel.Cells(intRow, 14).Value > objExcel.Cells(intRow, 12).Value Format = objExcel.Cells(intRow, > objExcel.Cells(intRow, 11).Value ValidationRule = > objExcel.Cells(intRow, 10).Value DataQualityBusinessRules = > Calculations = objExcel.Cells(intRow, 9).Value DataOwner = > BusinessUnitDepartment = objExcel.Cells(intRow, 8).Value
> BusinessUnitArea = objExcel.Cells(intRow, 7).Value > BusinessUnit = objExcel.Cells(intRow, 6).Value > DomainSubCategory = objExcel.Cells(intRow, 5).Value > ParentCategory = objExcel.Cells(intRow, 4).Value > 2).Value LongDescription = objExcel.Cells(intRow, 3).Value > objExcel.Cells(intRow, 1).Value Stewards = objExcel.Cells(intRow, > Do Until objExcel.Cells(intRow,1).Value = "" Name = > GoldenSourceSystem, ElementType DIM v_tp > DataQualityBusinessRules, Format, SourceSystemName, > BusinessUnitDepartment, Calculations, DataOwner, ValidationRule, > DomainSubCategory, BusinessUnit, BusinessUnitArea, > DIM Name, Stewards, LongDescription, ParentCategory, > Dictionary\DataDictionaryTestImport.xlsx") > Set objExcel = CreateObject("Excel.Application") Set objWorkbook =
> CreateModel(PdCDM.Cls_Model,"DBMS=SYASA12") > Model = ActiveModel Dim MyModel, t, r, sym set MyModel = > Dim Model, objExcel, objWorkbook, intRow, LogFile, lobj, MyExa Set Any ideas.Ĭode currently looks like: > Option Explicit I can load the and create the CDM, and create the data items, as long as I dont have extended attributes, however I cant create extended attributes in VBS - but need to create the extended attributes in order to load the rest of the spread sheet.
I am trying to create a CDM by importing an excel spread sheet into PD via VBS.ģ - Create the data items With extended attributes.
0 kommentar(er)
