实例讲解Oracle到SQL Server主键迁移

核心提示：这篇论坛文章主要介绍了Oracle数据库到SQL Server数据库主键的迁移过程，具体内容请参考下文，实例讲解Oracle到SQL Server主键迁移，由于项目需要要将以前Oracle的数据库转化为SQL Server,今天利用SQL Server的DTD进行数据库的迁移，但导入以后发现只导入了表结构和数据，如Er

这篇论坛文章主要介绍了Oracle数据库到SQL Server数据库主键的迁移过程，具体内容请参考下文。

由于项目需要要将以前Oracle的数据库转化为SQL Server,今天利用SQL Server的DTD进行数据库的迁移，但导入以后发现只导入了表结构和数据，而表的一些主键约束都没导过来，感觉很郁闷，而手头又没有好的迁移工具，如Erwin,所以动手写了个小工具，基本实现了主键的转移，主要代码如下：

主要控件：

　　ADOConnOrcale:TADOConnection;//连接Oracle
　　ADOConnSQLServer:TADOConnection;//连接SQLServer
　　O1:TADOQuery;//连接Oracle
　　S1:TADOQuery;//连接SQLServer
　　S2:TADOQuery;//连接SQLServer
　　ProgressBar1:TProgressBar;//进度条
　　Memo1:TMemo;//显示出错信息
　　EdtServer:TEdit;//服务器
　　EdtDataBase:TEdit;//数据库名称
　　EdtUser:TEdit;//用户名
　　EdtPass:TEdit;//口令
　　Button1:TButton;//执行按钮
　　//常量
　　const
　　ORAConnStr='Provider=MSDAORA.1;DataSource=%S;UserID=%S;Password=%S;PersistSecurityInfo=True';
　　SQLConnStr='Provider=SQLOLEDB.1;DataSource=%S;InitialCatalog=%S;UserID=%S;Password=%S;PersistSecurityInfo=False';
　　在执行前先进行Oracle和SQLServer数据库的连接。

连接Oracle:

　　ADOConnOrcale.ConnectionString:=Format(ORAConnStr,[trim(EdtDataBase.Text),
　　trim(EdtUser.Text),trim(EdtPass.Text)]);
　　try
　　ADOConnOrcale.Open;
　　MsgBox('Oracle数据库连接成功!');
　　Except
　　MsgBox('Oracle数据库连接失败!');
　　end;