使用VBS将数据字典中描述转换为中文

robinjava

于 2008-06-13 14:48:00 发布

阅读量870

点赞数

CC 4.0 BY-SA版权

分类专栏： PowerDesigner 文章标签： each table im

本文链接：https://blog.youkuaiyun.com/robinjava/article/details/2543719

这段VBS代码用于处理当前模型中的每个表、每列和每个视图，将数据字典中的英文描述转换为中文。通过连接Oracle数据库，查询特定表的DESCRIPTION字段，并将结果更新到列名上。

摘要生成于 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

Dim OracleDBSession Dim SecDB Dim Sec Dim SecRecord Set OracleDBSession = CreateObject("OracleInProcServer.XOraSession") Set SecDB = OracleDBSession.opendatabase("SID", "USERID/PWD", &H0&)

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

最低0.47元/天解锁文章