实例讲解Oracle到SQL Server主键迁移
作者: 小灵, 出处:IT专家网, 责任编辑: 李书琴,
2008-08-23 11:35
这篇论坛文章主要介绍了Oracle数据库到SQL Server数据库主键的迁移过程。
这篇论坛文章主要介绍了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; |
主要执行代码，比较乱，没有整理，不过实现功能就行了。
- 本文关键词：
- SQL Server
- 数据库
