Chinaunix首页 | 论坛 | 博客
  • 博客访问: 6485
  • 博文数量: 7
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 105
  • 用 户 组: 普通用户
  • 注册时间: 2017-08-30 17:40
个人简介

彼岸存在但不可感知,所以彼岸无从知晓。

文章分类

全部博文(7)

文章存档

2019年(7)

我的朋友

分类: 项目管理

2019-11-13 16:36:15


mysql 自动根据名称生成注释

%20:COLUMN%[%National%?national]%DATATYPE%[%Unsigned%?

unsigned] [%ZeroFill%?zerofill] [[.O:[字符

set] [charset]]%CharSet%] [。Z:[%NOTNULL%] [%IDENTITY%?

auto_increment:[默认%DEFAULT%]] [评论%.q:Name%]

]

把上面这一串复制进去去

VB脚本  Ctrl + shift + X运行

说明:自动用名称填充到注释细分

显式期权

ValidationMode = True

InteractiveMode = im_Batch

Dim MDL'当前模型

'获取当前的活动模型

设置MDL = ActiveModel

如果(mdl无效)则

      MsgBox“没有当前模型”

否则如果不是mdl.IsKindOf(PdPDM.cls_Model)

      MsgBox“当前模型不是物理数据模型。”

其他

      ProcessFolder MDL

万一

'此例程将名称复制到每个表,每个列和每个视图的注释中

当前文件夹的

私有子ProcessFolder(文件夹)

      Dim Tab'运行表

      对于folder.tables中的每个选项卡

            如果不是tab.isShortcut然后

                  tab.comment = tab.name

                  昏暗的跑步专栏

                  对于tab.columns中的每个col

                        col.comment =列名

                  下一个

            万一

      下一个

      昏暗视图“运行视图

      对于文件夹中的每个视图。

            如果没有view.isShortcut然后

                  view.comment = view.name

            万一

      下一个

      '进入子包装

      暗淡的运行文件夹

      对于每个f In文件夹

            如果没有f.IsShortcut然后

                  ProcessFolder f

            万一

      下一个

结束子


SQL Server 2008

说明:按照下面的截图界面吧对应的代码复制进去

表注释:

EXEC sys.sp_addextendedproperty @ name = N'MS_Description',@ value = N'%COMMENT%',@ level0type = N'SCHEMA',@ level0name = N'dbo',@ level1type = N'table',@ level1name = N '%表%'

 

列注释:

EXEC sys.sp_addextendedproperty @ name = N'MS_Description',@ value = N'%COMMENT%',@ level0type = N'SCHEMA',@ level0name = N'dbo',@ level1type = N'table',@ level1name = N '%TABLE%',@ level2type = N'column',@ level2name = N'%COLUMN%'

列注释


:表注释




阅读(1091) | 评论(1) | 转发(0) |
0

上一篇:没有了

下一篇:jQuery选择器

给主人留下些什么吧!~~

胡田新2019-11-27 11:05:50

为甚么发的图片都没有了

评论热议
请登录后评论。

登录 注册