推荐：解析SQL Server 2008性能和可扩展性1.导言 现今的公司需要易访问的和可用性好的商业数据，以便他们可以在全球市场中获得一席之地。与易访问数据的这个需求相呼应的，关系数据库和分析数据库在规模方面继续发展，内嵌数据库和许多产品一起出现，并且许多公司将服务器合并来减轻管理工作。当公司
这篇文章主要介绍了Oracle数据库到SQL Server数据库主键的迁移过程，具体内容请参考下文。
由于项目需要要将以前Oracle的数据库转化为SQL Server,今天利用SQL Server的DTD进行数据库的迁移，但导入以后发现只导入了表结构和数据，而表的一些主键约束都没导过来，感觉很郁闷，而手头又没有好的迁移工具，如Erwin,所以动手写了个小工具，基本实现了主键的转移，主要代码如下：
主要控件：
以下为引用的内容： ADOConnOrcale: TADOConnection; //连接Oracle Info=True'; Persist Security Info=False';
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
SQLConnStr='Provider=SQLOLEDB.1;Data Source=%S;Initial Catalog=%S;User ID=%S;Password=%S;
在执行前先进行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;
主要执行代码，比较乱，没有整理，不过实现功能就行了。
以下为引用的内容： procedure TForm1.Button1Click(Sender: TObject); b.position ' .AsString '''' ''' tableN '''';
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,
' 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')
') 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=
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;
分享：怎样最简单删除SQL Server中所有数据其实删除数据库中数据的方法并不复杂，为什么我还要多此一举呢，一是我这里介绍的是删除数据库的所有数据，因为数据之间可能形成相互约束关系，删除操作可能陷入死循环，二是这里使用了微软未正式公开的sp_MSForEachTable存储过程。 也许很多读者朋友都经历