从SQL Server数据库转到Oracle数据库的数据脚本处理

在我们很多情况下的开发，为了方便或者通用性的考虑，都首先考虑SQL Server数据库进行开发，但有时候客户的生产环境是Oracle或者其他数据库，那么我们就需要把对应的数据结构和数据脚本转换为对应的数据库，数据结构一般来说，语法都遵循了SQL92的标准，或者我们根据不同的PowerDesigner文件进行生成对应的结构脚本即可，但是实际数据的脚本我们就需要进行一定的处理，以及文本的替换处理了，本文结合Notepad++的文本正则表达式替换，实现一些如日期较为特殊的数据脚本调整，把它从SQL Server转换为Oracle的处理过程，本文就是针对这些整体的数据库处理进行介绍。

1、数据库设计文件及数据库结构脚本

我们一般在做数据库设计的时候，都会使用PowerDesigner这样的数据库建模工具进行设计，默认把它设计为SQL Server的数据库设计模型，如下所示。

当然我们如果需要其他数据库，那么把它转换为对应的数据库，然后进行一定的数据库类型调整，以及字段的大小写转换即可。

根据这种方式我们调整后的各种数据库设计文件如下所示。

不同的数据库的设计模型有所差异，那么我们进行一些核对，主要是数据库类型的核对即可，如备注字段的大文本应该设置为CLOB，二进制的应该调整为BLOB等。

例如对于Oracle的数据库设计（从SQL Server转换过来的），同时也需要把它的字段名转换为大写才好，在PowerDesigner里面可以执行自定义函数进行处理。

其中在对话框选择打开对应的大写字段表名的脚本，如下操作。

为了大家方便使用，我把它贴出来，供使用。

'文件：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