從SQL Server資料庫轉到Oracle資料庫的數據腳本處理

在我們很多情況下的開發，為了方便或者通用性的考慮，都首先考慮SQL Server資料庫進行開發，但有時候客戶的生產環境是Oracle或者其他資料庫，那麼我們就需要把對應的數據結構和數據腳本轉換為對應的資料庫，數據結構一般來說，語法都遵循了SQL92的標準，或者我們根據不同的PowerDesigner... ...

在我們很多情況下的開發，為了方便或者通用性的考慮，都首先考慮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