PowerDesigner 数据库逆向工程，建name和comment 互换

最新推荐文章于 2025-04-23 17:48:22 发布

lester19872007

最新推荐文章于 2025-04-23 17:48:22 发布

阅读量1.1k

点赞数

文章标签：数据库 each table 工具 im

本文链接：https://blog.youkuaiyun.com/lester19872007/article/details/5756733

版权

本文介绍了一个PowerDesigner PDM中的实用脚本，该脚本可以批量将当前文件夹内所有表、视图及其列的名称修改为其对应的注释内容。此方法适用于希望快速调整模型中元素标识的情况。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Option Explicit ValidationMode = True InteractiveMode = im_Batch Dim mdl 'the current model 'get the current active model Set mdl = ActiveModel If (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 mdl End If 'This routine copy name into code for each table, each column and each view 'of the current folder Private sub ProcessFolder(folder) Dim Tab 'running table for each Tab in folder.tables if not tab.isShortcut then if len(tab.comment) <> 0 then tab.name = tab.comment end if On Error Resume Next Dim col 'running column for each col in tab.columns if len(col.comment) <>0 then col.name =col.comment end if On Error Resume Next next end if next end sub