PowerDesigner导出SQL，生成注释操作

第一步：

打开软件，选中DataBase切换成MySQL5.0（其它的没试过）

第二????：

Tools --> Execute Commands --> Edit/Run Script，将下面代码复制粘贴进去，运行后，尝试导出SQL即可。

特别说明：

没有注释的字段会采用字段名作为注释，有注释的会采用 ‘字段名：注释’ 的格式。

 

 

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
                if trim(tab.comment)="" then '假设有表的凝视,则不改变它;假设没有表凝视,则把name加入到凝视中.
                        tab.comment = tab.name
                end if
                Dim col ' running column
                for each col in tab.columns
                        if trim(col.comment)="" then '假设col的comment为空,则填入name;假设已有凝视,则不加入.这样能够避免已有凝视丢失.
                                col.comment= col.name
                        else col.comment= col.name+ " : "+col.comment
                        end if
                next
        end if
next
 
Dim view 'running view
for each view in folder.Views
        if not view.isShortcut and trim(view.comment)="" 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