powerdesigner将name填充到comment中

powerdesigner 反向生成表结构时，Oracle的注释填充到了name列，导致转成mysql的时候生成不了注释，现在通过VB脚本去同步一下。

脚本执行之前：

脚本执行后：

脚本贴上：

'******************************************************************************
'* File:     name2comment.vbs
'* Title:    Name to Comment Conversion（如果comment为空,则填入name;如果不为空,则保留不变,这样可以避免已有的注释丢失）
'* Model:    Physical Data Model
'* Objects: Table, Column, View
'******************************************************************************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   comment   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 thenif  trim(tab.comment)="" then'如果有表的注释,则不改变它.如果没有表注释.则把name添加到注释里面.tab.comment   =   tab.nameelsetab.comment   =   tab.name + "(" + tab.comment + ")"end if  Dim   col   '   running   column    for   each   col   in   tab.columns   if trim(col.comment)="" then '如果col的comment为空,则填入name,如果已有注释,则拼接到name后面;这样可以避免已有注释丢失.col.comment=   col.name elsecol.comment   =   col.name + "(" + col.comment + ")"end if next    end   if    next    Dim   view   'running   view    for   each   view   in   folder.Views    if   not   view.isShortcut and trim(view.comment)=""  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

powerdesigner将name填充到comment中相关推荐

PowerDesigner 把Comment写到name中和把name写到Comment中 pd7以后版本可用
在使用PowerDesigner对数据库进行概念模型和物理模型设计时,一般在NAME或Comment中写中文,在Code中写英文.Name用来显示,Code在代码中使用,但Comment中的文字会保 ...
.net dataGridView当鼠标经过时当前行背景色变色；然后【给GridView增加单击行事件，并获取单击行的数据填充到页面中的控件中】...
1.首先在前台dataGridview属性中增加onRowDataBound属性事件 2.然后在后台Observing_RowDataBound事件中增加代码 protected void Obser ...
【OpenGL C++】画一个空心汉字和一个圆，并填充汉字（中点画线法，中点画圆法，种子填充法）
内容:画一个空心汉字和一个圆设计一个画任意直线和圆的算法,可选所学的任一图形扫描转换算法(中点或bresenham算法),不能使用任何画线/画圆的API: 使用画线算法实现空心汉字的绘制,汉字必须为 ...
echarts折线图全部填充在容器中，周围不留空白
问题说明: 在默认配置下,echarts绘制的折线图不能全部填充在容器中,周围会有空白的部分,它不会正好的占据全部画布,如图: 但是我想要做出这种效果: 这就需要echarts占据全部画布,周围不留空 ...
vfp取得excel的句柄_如何使用填充句柄将顺序数据自动填充到Excel中
vfp取得excel的句柄 The Fill Handle in Excel allows you to automatically fill in a list of data (numbers o ...
R语言使用Hmisc包的impute函数填充dataframe数据中特定数据列中的缺失值、将空值null用上一行和下一行值的平均值填充
R语言使用Hmisc包的impute函数填充dataframe数据中特定数据列中的缺失值.将空值null用上一行和下一行值的平均值填充目录
PowerDesigner为表字段添加Comment注释，让name等于Comment
使用PowerDesigner工具设计数据库表,为其中的一些字段增加注释. 具体操作如下: 1.双击需要生成字段注释的表 2.选择Columns选项,点击如图按钮 3.找到Comment并打勾,也可以 ...
mysql中添加下拉,如何从MySQL填充的下拉列表中发布数据
在任何人发火之前,我看过的不仅仅是以下3个帖子 . 这些都没有工作答案 . 这些只是做 . 不 . 工作 . 现在回答我的问题: 我的php页面上有一个下拉列表,由MySQL查询填充 . 这部分很完美 ...
CE5.0 - romimage.exe如何填充eboot.bin中的pTOC特殊指针生成.nb0
eboot.bin和eboot.nb0的差别就是 eboot.bin中没有填充pTOC结构体,必须使用parser解释器[类似于romimage.exe luther.gliethttp]将全局变量数 ...
python居中填充_Python代码中如何将字符串填充为指定长度并保持原字符串居中呢？...
摘要: 下文讲述Python代码中字符串填充的方法分享,如下所示: 字符串填充有很多方法, 如for循环填充,while循环填充那么Python语言中,到底有没有快捷方式对字符串进行填充呢? 下文将 ...

powerdesigner将name填充到comment中

powerdesigner将name填充到comment中相关推荐

最新文章

热门文章