Create table statement in powerdesigner to generate annotations

 

 

The following script is to generate a comment script, you can paste it directly

'******************************************************************************
 '* File: name2comment.vbs
 '* Purpose: Database generation cannot use object names anymore
' in version 7 and above.
 ' It always uses the object codes.
 '
' In case the object codes are not aligned with your
' object names in your model, this script will copy
' the object Name onto the object Comment for
' the Tables and Columns.
 '
'* Title:
'* Version: 1.0
 '* Company: Sybase Inc.
'******************************************************************************


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
 'Use the indication as a table comment, you don't need to do that
 tab.comment = tab.name
 Dim col ' running column
 for each col in tab.columns
 'Merge column name and comment into comment
 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