推薦:解析SQL Server 2008性能和可擴展性1.導言 現今的公司需要易訪問的和可用性好的商業數據,以便他們可以在全球市場中獲得一席之地。與易訪問數據的這個需求相呼應的,關系數據庫和分析數據庫在規模方面繼續發展,內嵌數據庫和許多產品一起出現,并且許多公司將服務器合并來減輕管理工作。當公司
這篇文章主要介紹了Oracle數據庫到SQL Server數據庫主鍵的遷移過程,具體內容請參考下文。
由于項目需要要將以前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)]); try ADOConnSQLServer.Open; MsgBox('SQL Server數據庫連接成功!') except MsgBox('SQL Server數據庫連接失敗!'); end;
|
主要執行代碼,比較亂,沒有整理,不過實現功能就行了。
以下為引用的內容:
procedure TForm1.Button1Click(Sender: TObject); var i:Integer; FieldN, tableN, fieldM,aa:String; begin if Not ADOConnOrcale.Connected then begin MsgBox('請先連接Oracle數據庫!'); exit; end; if not ADOConnSQLServer.Connected then begin MsgBox('請先連接SQL Server數據庫!'); exit; end; Screen.Cursor :=crHourGlass; try o1.Close; O1.SQL.Clear; //取oracle表用戶budget的所有主鍵約束信息 o1.SQL.Text :=' select a.CONSTRAINT_NAME,a.CONSTRAINT_TYPE,a.TABLE_NAME, b.COLUMN_NAME, b.position ' ' from USER_CONSTRAINTS a,USER_CONS_COLUMNS b where a.CONSTRAINT_NAME=b.CONSTRAINT_NAME ' ' and a.table_name=b.table_name and constraint_type=''P'' and a.owner=b.owner ' ' and lower(a.owner)=''budget'' order by a.table_name,b.position '; O1.open; tableN:=''; O1.First; ProgressBar1.Max:=O1.RecordCount; ProgressBar1.Min:=0; ProgressBar1.Step:=1; ProgressBar1.Visible :=true; for i:=0 to O1.RecordCount -1 do begin s2.Close; S2.SQL.Clear; //判斷SQL Server表是否存在當前的字段信息 S2.SQL.Text:='SELECT a.name AS tanme, b.* FROM sysobjects a INNER JOIN ' ' syscolumns b ON a.id = b.id ' ' WHERE (a.xtype = ''U'') AND (a.name = ''' O1.fieldbyname('table_name') .AsString '''' ') and b.name= ''' O1.fieldbyname('COLUMN_NAME').AsString '''' ' ORDER BY b.id'; S2.Open; //不存在,輸出表明和字段名 if s2.RecordCount<=0 then begin Memo1.Text:=Memo1.Text #13 '表:''' O1.fieldbyname('table_name').AsString '''' ' 字段:''' O1.fieldbyname('COLUMN_NAME').AsString ''' 不存在!'; O1.Next; tableN:=''; FieldN:=''; Continue; end; //是當前表,循環讀取主鍵信息 if (tableN='') or (tableN= O1.fieldbyname('table_name').AsString) then begin FieldN:=FieldN '[' O1.fieldbyname('COLUMN_NAME').AsString '],';//表明相同或初試時 tableN:= O1.fieldbyname('table_name').AsString; end else begin with S1 do begin try //取SQL Server表的主鍵信息 Close; sql.Clear; sql.Text:='SELECT * FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE WHERE TABLE_NAME= ''' tableN ''''; Open; first; aa:=fieldbyname('constraint_name').AsString; //如果該主鍵在SQL表中已存在,刪除該主鍵信息,重建該表主鍵 if recordcount>0 then begin sql.Clear; SQL.Text:='ALTER TABLE ' tableN ' DROP CONSTRAINT ' aa; //刪除主鍵 ExecSQL; end; SQL.Clear; //COLUMN_NAME SQL.Text:='ALTER TABLE ' tableN ' WITH NOCHECK ADD ' ' CONSTRAINT [PK_' tableN '] PRIMARY KEY NONCLUSTERED ' ' ( ' copy(FieldN,1,length(FieldN)-1) ' )'; ExecSQL; FieldN:='[' O1.fieldbyname('COLUMN_NAME').AsString '],'; tableN:= O1.fieldbyname('table_name').AsString; Except Memo1.Text :=Memo1.Text '表: ' tableN ' 字段: ' FieldN ' 導入出錯!'; exit; end; end; end; ProgressBar1.StepIt; Application.ProcessMessages; O1.Next; end; MsgBox('導入完成!'); finally Screen.Cursor :=crDefault; ProgressBar1.Visible :=False; end; end;
|
分享:怎樣最簡單刪除SQL Server中所有數據其實刪除數據庫中數據的方法并不復雜,為什么我還要多此一舉呢,一是我這里介紹的是刪除數據庫的所有數據,因為數據之間可能形成相互約束關系,刪除操作可能陷入死循環,二是這里使用了微軟未正式公開的sp_MSForEachTable存儲過程。 也許很多讀者朋友都經歷