PowerDesigner导入Mysql SQL文件如何自动显示comment？

最新推荐文章于 2025-05-13 15:23:36 发布

longtao2009

最新推荐文章于 2025-05-13 15:23:36 发布

阅读量983

点赞数 3

CC 4.0 BY-SA版权

文章标签：数据库

本文链接：https://blog.youkuaiyun.com/longtao2009/article/details/129493783

文章介绍了如何在PowerDesigner中通过处理从MySQL导出的数据库脚本，使用VBA脚本来更新表和列的名称，使其与MySQL中的comment字段同步。过程包括从Navicat导出结构，删除字符设定，然后在PowerDesigner中进行反向工程和执行特定的VBA代码来更新模型中的名称。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

PowerDesigner 中name即是显示在ER图中的名称，而MySQL中所设定的为comment，因此如果想显示出名称，需要做如下步骤处理。

从数据库中导出结构

Navicat中，选中数据库，右键-》转储SQL文件-》选择仅结构，导出数据库脚本

整理sql文件，将字符设定去除

如：CHARACTER SET utf8，COLLATE utf8_bin等

使用File->Reverse Engineer->database

使用数据库文件导入，如下图：

执行脚本生成名称

执行脚本窗口：工具-》Execute commands-》Edit/Run Script...

执行如下语句

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 code 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
if len(tab.comment) <> 0 then
tab.name = tab.comment
'tab.name = tab.comment&"["&tab.name&"]"
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

该语句中：对表名的设定语句仍有问题，待修改

注意：如果语句中没有comment 则无法将字段名显示出来

参考：https://lddwarehouse.blog.youkuaiyun.com/article/details/128365126