由PowerDesigner物理模型生成sql语句

Tools-->Execute Commands-->Edit/Run Script 在打开的窗口中 past 下面的代码：

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

         tab.comment = tab.name  + tab.comment '此处任意设置表的注释，此处为表名和注释一起

         Dim col ' running column

         for each col in tab.columns

            col.comment= col.name + col.comment

         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

然后运行Run

 

Database --> Generate Database  这时就可以生成带有comments为物理模型中Name属性的SQL语句了。