批量将PowerDesigner中表字段由小写变成大写

因项目需要将项目数据库由sqlserver转为oracle， 之前有些表的字段为小写，但利用PowerDesigner反向工程再切换DBMS为Oracle11g时，发生原先表还是小写，通过以下VB脚本即可批量修改，在Tools= Execute Commands下的Edit/Run Scripts，或者通过Ctrl+Shift+X运行以下脚本即可： *************

因项目需要将项目数据库由sqlserver转为oracle，

之前有些表的字段为小写，但利用PowerDesigner反向工程再切换DBMS为Oracle11g时，发生原先表还是小写，通过以下VB脚本即可批量修改，在Tools= Execute Commands下的Edit/Run Scripts，或者通过Ctrl+Shift+X运行以下脚本即可：

*****************************************************************************

 文件：powerdesigner.ucase.VBs

 版本：1.0

 功能：遍历物理模型中的所有表，将表名、表代码、字段名、字段代码全部由小写改成大写；

  并将序列的名和代码由小写改成大写。

 用法：打开物理模型，运行本脚本（Ctrl+Shift+X）

 备注：

 *****************************************************************************

 dim model current model

 set model = ActiveModel

If (model Is Nothing) Then

 MsgBox "There is no current Model"

 ElseIf Not model.IsKindOf(PdPDM.cls_Model) Then

 MsgBox "The current model is not an Physical Data model."

 Else

 ProcessTables model

 ProcessSequences model

 End If

*****************************************************************************

 函数：ProcessSequences

 功能：递归遍历所有的序列

 *****************************************************************************

 sub ProcessSequences(folder)

 处理模型中的序列：小写改大写

 dim sequence

 for each sequence in folder.sequences

 sequence.name = UCase(sequence.name)

 sequence.code = UCase(sequence.code)

 next

 end sub

*****************************************************************************

 函数：ProcessTables

 功能：递归遍历所有的表

 *****************************************************************************

 sub ProcessTables(folder)

 处理模型中的表

 dim table

 for each table in folder.tables

 if not table.IsShortCut then 

ProcessTable table

 end if

 next

 对子目录进行递归

 dim subFolder

 for each subFolder in folder.Packages

 ProcessTables subFolder

 next 

end sub

*****************************************************************************

 函数：ProcessTable

 功能：遍历指定table的所有字段，将字段名由小写改成大写，

  字段代码由小写改成大写

  表名由小写改成大写 

*****************************************************************************

 sub ProcessTable(table)

 dim col

 for each col in table.Columns

 将字段名由小写改成大写

 col.code = UCase(col.code)

 col.name = UCase(col.name)

 next 

table.name = UCase(table.name)

 table.code = UCase(table.code)

 end sub

关于sqlserver字符类型查询条件区分大小写 原文:关于sqlserver字符类型查询条件区分大小写 在写sql的查询时 如下：  select * from Users where username= WangE  select * from Users where username= wange 上面两条查询语句的结果是一样的，这说明username的条件并没有区分大小写。
MSSQL 如何采用sql语句 获取建表字段说明、字段备注、字段类型、字段长度 原文:MSSQL 如何采用sql语句 获取建表字段说明、字段备注、字段类型、字段长度 转自: http://www.maomao365.com/?p=4983 下文讲述-采用sql脚本获取指定表中所有列对应的说明信息,脚本如下所示:  SELECT (case when a.