Notes are automatically generated when powerdesign exports SQL, and powerdesign exports SQL

Notes are automatically generated when powerdesign exports SQL, and powerdesign exports SQL

1. Script

Run

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. isw.cut then
'Use the table annotation instead of doing this.
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. isw.cut 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. isw.cut then
ProcessFolder f
End if
Next
End sub

Click run.

Copyright Disclaimer: This article is an original article by the blogger and cannot be reproduced without the permission of the blogger.