SQL Server 2008中的新日期数据类型

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