Chinaunix首页 | 论坛 | 博客
  • 博客访问: 21438
  • 博文数量: 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运行

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

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


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%'

列注释


:表注释




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

上一篇:没有了

下一篇:jQuery选择器

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

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

为甚么发的图片都没有了