powerDesigner 把column中列字段赋值到comment字段上

第一次写博客,分享一点经验吧,平时大家用powerDesigner的时候,pd是不会把name项默认添加到comment的,所以生成的数据库表里面也没有中文字段的注释.

我在网上查了一下.有解决方案了.

以下是网上的解决方案,我把它完善了一下.

'使用方法使用方法
'PowerDesigner->Tools->Execute Commands->Edit/Run Scripts

可以保存该脚本为:name2comment.vbs

 

'******************************************************************************
'* File: name2comment.vbs
'* Title: Name to Comment Conversion
'* Model: Physical Data Model
'* Objects: Table, Column, View
'* Author: steveguoshao
'* Created: 2013-11-29
'* Mod By: 
'* Modified: 
'* Version: 1.0
'* Memo: Modify from name2code.vbs
'******************************************************************************


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 comment 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 
 tab.comment = tab.name 
 Dim col ' running column 
 for each col in tab.columns 
 col.comment= col.name 
 next 
 end if 
 next


 Dim view 'running view 
 for each view in folder.Views 
 if not view.isShortcut then 
 view.comment = view.name 
 end if 
 next


 ' go into the sub-packages 
 Dim f ' running folder 
 For Each f In folder.Packages 
 if not f.IsShortcut then 
 ProcessFolder f 
 end if 
 Next 
end sub