PowerDesigner导出SQL，字段没有注释，解决办法

Tools --> Execute Commands --> Edit/Run Script

 

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