PowerDesigner—从sql生成pdm（name字段值为sql中的comment描述值）

最新推荐文章于 2023-03-13 15:51:22 发布

haohan_lt

最新推荐文章于 2023-03-13 15:51:22 发布

阅读量787

点赞数

分类专栏： mysql

原文链接：https://blog.csdn.net/tuohuang0303/article/details/80921167

版权

mysql 专栏收录该内容

14 篇文章 1 订阅

订阅专栏

从已有的sql生成pdm的过程如下：

1、如图点击：

2、选择sql匹配的数据库：

3、点击确定后，在弹出的对话框中添加sql脚本：

出现3还可以选database-->Update Model from Database

4、点击确定后，就会生成表：

5、刚生产的pdm表中的name字段和code字段值是一致的，要想name字段为sql中的comment字段描述一致，需要如下操作：

点击【Tools】-【Execute Commands】-【Run Script】

6、在Edit/Run Script编辑框中输入VB脚本：

VB脚本语句如下：

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

Private sub ProcessFolder(folder)
On Error Resume Next
Dim Tab 'running table
for each Tab in folder.tables
if not tab.isShortcut then
tab.name = tab.comment
Dim col ' running column
for each col in tab.columns
if col.comment="" then
else
col.name= col.comment
end if
next
end if
next

Dim view 'running view
for each view in folder.Views
if not view.isShortcut then
view.name = view.comment
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

7、点击【Run】按钮，后就可以看到表中的name字段值为sql中的comment注释的值了。
---------------------
来源：CSDN
原文：https://blog.csdn.net/tuohuang0303/article/details/80921167
版权声明：本文为博主转载文章，转载请附上原博主博文链接！