这篇文章主要介绍了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; |
