How to write a VB script with capitalized PowerDesigner fields

This article introduces the knowledge of "how to write a VB script with capitalized PowerDesigner fields". In the operation of actual cases, many people will encounter such a dilemma, so let the editor lead you to learn how to deal with these situations. I hope you can read it carefully and be able to achieve something!

In advanced usage, all field letters are capitalized and do not have to be changed one by one manually

Option ExplicitValidationMode = TrueInteractiveMode = im_BatchDim mdl 'the current model' gets the current ModelSet mdl = ActiveModelIf (mdl Is Nothing) Then MsgBox "There is no current Model" ElseIf Not mdl.IsKindOf (PdPDM.cls_Model) Then MsgBox "The current model is not an Physical Data model." Else ProcessFolder mdlEnd IfPrivate sub ProcessFolder (folder)' processing table Dim Tab for each Tab in folder.tables tab.code = UCase (tab.code) 'modified field name Dim col for each col in tab.columns col.code= UCase (col.code) next 'modify index name Dim idx for each idx in tab.indexes idx.code= UCase (idx.code) next' modify primary key name Dim key for each key in tab.keys key.code= UCase (key.code) next nextend sub

Script execution: tools-> command-> Edit/Run Script

This is the end of the introduction to "how to write a VB script with capitalized PowerDesigner fields". Thank you for reading. If you want to know more about the industry, you can follow the website, the editor will output more high-quality practical articles for you!