由于項目需要要將以前Oracle的數據庫轉化為SQL Server,今天利用SQL Server的DTD進行數據庫的遷移，但導入以后發現只導入了表結構和數據，而表的一些主鍵約束都沒導過來，感覺很郁悶，而手頭又沒有好的遷移工具，如Erwin,所以動手寫了個小工具，基本實現了主鍵的轉移，主要代碼如下：

主要控件：

ADOConnOrcale: TADOConnection;? //連接Oracle

ADOConnSQLServer: TADOConnection; //連接SQL Server

O1: TADOQuery;? //連接Oracle

S1: TADOQuery; //連接SQL Server

S2: TADOQuery; //連接SQL Server

ProgressBar1: TProgressBar;? //進度條

Memo1: TMemo;? //顯示出錯信息

EdtServer: TEdit;? //服務器

EdtDataBase: TEdit; //數據庫名稱

EdtUser: TEdit;? //用戶名

EdtPass: TEdit;? //口令

Button1: TButton;? //執行按鈕

//常量

const

ORAConnStr='Provider=MSDAORA.1;Data Source=%S;User ID=%S;Password=%S;Persist Security Info=True';

SQLConnStr='Provider=SQLOLEDB.1;Data Source=%S;Initial Catalog=%S;User ID=%S;Password=%S;Persist Security Info=False';

在執行前先進行Oracle和SQL Server數據庫的連接。

連接Oracle:

ADOConnOrcale.ConnectionString :=Format(ORAConnStr,[trim(EdtDataBase.Text),

trim(EdtUser.Text),trim(EdtPass.Text)]);

try

ADOConnOrcale.Open;

MsgBox('Oracle數據庫連接成功！');

Except

MsgBox('Oracle數據庫連接失敗！');

end;

連接SQL Server:

ADOConnSQLServer.ConnectionString :=Format(SQLConnStr,[trim(EdtServer.Text),

trim(EdtDataBase.Text),trim(EdtUser.Text),trim(EdtPass.Text)]);

總結

以上是生活随笔為你收集整理的sql数据迁移到oracle数据库,从Oracle到SQL Server数据库主键的迁移的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。