将PowerDesigner中列的name生成到注释comment中去.vbs

最新推荐文章于 2024-01-31 14:29:41 发布

抬头望天边一只雁

最新推荐文章于 2024-01-31 14:29:41 发布

阅读量624

点赞数

分类专栏：数据库数据库相关文章标签： each table im

数据库相关同时被 2 个专栏收录

62 篇文章

订阅专栏

数据库

49 篇文章

订阅专栏

本文介绍了一个自动化脚本，用于批量处理物理数据模型。脚本首先检查当前是否有活动模型，确保操作的合法性。接着，它获取当前活动模型，并通过一系列逻辑判断来验证模型类型是否为物理数据模型。若条件满足，则执行特定操作，如复制模型名称到代码中的每个表、列和视图。此脚本旨在提高数据模型管理效率。

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

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.name) <> 0 then

tab.comment = tab.name

end if

On Error Resume Next

Dim col 'running column

for each col in tab.columns

if len(col.name) <>0 then

col.comment =col.name

end if

On Error Resume Next

next

end if

next

end sub