PowerDesigner中逆向工程将数据库中comment脚本赋值到PDM的name
2011-05-31 09:56
671 查看
PowerDesigner中name换为comment,comment换为name(2008-06-03 08:55:20)转载标签: 计算机数据模型pdmcommentname杂谈 分类: 计算机应用 1 PowerDesigner中批量根据对象的name生成comment的脚本 执行方法: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 tab.comment = tab.name Dim col 'running column for each col in tab.columns col.comment= col.name next end if next Dim view 'running view for each view in folder.Views if not view.isShortcut then view.comment = view.name end if next 'go into the sub-packages Dim f 'running folder For Each f In folder.Packages if not f.IsShortcut then ProcessFolder f end if Next end sub -------------------------------- 2 PowerDesigner中逆向工程将数据库中comment脚本赋值到PDM的name 执行方法: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
相关文章推荐
- PowerDesigner中逆向工程将数据库中comment赋值到name
- PowerDesigner 数据库逆向工程,建name和comment 互换
- PowerDesigner逆向操作(从mysql5.0生成数据库的物理模型),把Comment写到name中,pdm文件导出为word
- Powerdesigner逆向工程从现有数据库生成PDM
- Powerdesigner逆向工程从现有数据库生成PDM
- powerdesigner逆向工程,从数据库导出PDM
- powerdesigner逆向工程,从数据库导出PDM
- powerdesigner16.5逆向工程,从远程oracle11g数据库导出PDM
- powerdesigner逆向工程,从数据库导出PDM
- powerdesigner逆向工程,从数据库导出PDM
- powerdesigner逆向工程——数据库导出PDM
- PowerDesigner 从数据库反向生成Pdm时把Comment复制到Name中,从PowerDesigner导入数据库时把Name复制到Comment
- Powerdesigner逆向工程从现有数据库生成PDM
- PowerDesigner中在生成的数据库脚本中用name列替换comment列作为字段描述的方法
- power designer pdm生成sql脚本和数据库以及逆向工程
- oracle_powerdesinger逆向工程 , PDM 文件 注释到name的完美解决方案 comment2name
- Powerdesigner逆向工程从现有数据库生成PDM
- powerdesigner逆向工程,从数据库导出PDM
- Powerdesigner逆向工程从现有数据库生成PDM
- PowerDesigner逆向工程从现有数据库生成PDM