解决powerDesigner逆向数据库注释显示问题

最新推荐文章于 2026-03-26 03:43:08 发布

原创最新推荐文章于 2026-03-26 03:43:08 发布 · 1.3k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

java 专栏收录该内容

6 篇文章

订阅专栏

本文介绍了一段VBA代码，该代码可以用于在特定类型的物理数据模型中批量修改文件夹内表格、列和视图的名称为各自的注释内容。此方法适用于希望快速更新数据库对象名称以匹配其描述的情况。

执行vb代码

run 后想保存下来就保存下来不想保存 close

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
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