Reverse Engineer PowerDesigner Link ODBC
?
?
?
?
?
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 isn't an physical Data model." Else ProcessFolder MDL End If ? ' This routine copy name to code for each table, each column and each view ' of the current folder Private Sub ProcessFolder (folder) ? Dim Tab ' Running table For all Tab in Folder.tables If not Tab.isshortcut then If Len (tab.comment) <> 0 Then Tab.name = Tab.comment End If On Error Resume Next Dim Col ' running column For each col in Tab.columns If Len (col.comment) <>0 Then Col.name =col.comment End If On Error Resume Next Next End If Next End Sub |
Reverse Engineer PowerDesigner Link ODBC