【powerdesigner】将数据库表中Common转为PDM表中Name

星辰之瑜

于 2017-02-28 16:07:39 发布

阅读量421

点赞数

分类专栏： pdm

pdm 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一种使用OpenPDM工具通过脚本批量修改当前文件夹内表、列及视图名称的方法。该方法利用VBA脚本，根据注释内容自动更新对应对象的名称，适用于需要大量更新数据库对象名称的场景。

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

非原创，此文只为自己备忘！

执行方法：Open PDM -- Tools -- Execute Commands -- 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 
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