PowerDesigner16.5中使用Name生成Comment

yl_sunmoon

已于 2022-11-26 20:45:50 修改

阅读量817

点赞数 2

分类专栏：数据库 VBA 文章标签：数据库 vba

于 2022-11-26 20:37:21 首次发布

本文链接：https://blog.youkuaiyun.com/yl_sunmoon/article/details/128056467

版权

本文介绍了如何在PowerDesigner16.5中利用VBA脚本将PDM中的Name（中文名称）批量转换为Comment，以便在生成数据库脚本时，字段备注显示中文名称，提高程序员的使用便利性。

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

PowerDesigner生成数据库脚本时，code转换为数据库中表名及字段，如果将将PDM中的name（一般为中文名称）转换为comment，则生成数据库备注栏显示name（中文名称），方便程序员的使用。将name转化为comment，可使用以下脚本批量完成

1、点击菜单栏Tools – Execute Commands – Run Script

以下代码将Name中的内容替换对应的Comment，如果Comment已有内容，则不被Name替换

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