Reverse Engineer PowerDesigner Link ODBC

Source: Internet
Author: User
Tags powerdesigner

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

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.