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

最新推荐文章于 2022-06-22 11:08:38 发布

原创

最新推荐文章于 2022-06-22 11:08:38 发布 · 884 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#each #table #im

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

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