不经意间我们又来到了oracle系统文章的学习,在众多学习中,我们的文章也许不起眼,但是想必大家都有很多问题吧,所以重要的下面我们就来讲解一下,大家一定要认真看奥!!
这篇文章主要介绍了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;
|
主要执行代码,比较乱,没有整理,不过实现功能就行了。oracle教学视频
甲骨文公司产品主要有以下几类:[2]1.服务器及工具(主要竞争对手:IBM、微软)数据服务器:2013年最新版本Oracle 12C。应用服务器:Oracle Application Server。开发工具:OracleJDeveloper,Oracle Designer,Oracle Developer,等等。企业应用软件(主要竞争对手:德国SAP公司)企业资源计划(ERP)软件。已有10年以上的历史。2005年,并购了开发企业软件的仁科软件公司(PeopleSoft)以增强在这方面的竞争力。客户关系管理(CRM)软件。自1998年开始研发这种软件。2005年,并购了开发客户关系管理软件的希柏软件公司(Siebel)。[2帮助中国软件企业在快速增长的经济大潮中取得成功,促进中国软件业的发展,同时也为中国的广大用户提供性价比高、可靠、安全的企业软件,为他们的业务增长作出贡献。
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;
|
#p#分页标题#e#
【相关文章】oracle教程
将MySQL迁移到Oracle(一)
MDF文件在SQL Server数据库中恢复技术
全球首发!Windows Server 2008虚拟机ERP压力测试
【责任编辑:碧海蓝天 TEL:(010)68476606】
小主们看完我们的文章,想必一定对我们文章很感兴趣了吧,若大家想了解更多视频课程文章的课程,亲们可以到课课家官网查看。非常真诚地欢迎大家,偶在等你们哟,快来吧!!!