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

本文主要介绍从oracle数据库到sql server数据库主键的迁移过程。详情请参考以下内容。

因为项目需要把以前的Oracle数据库改造成SQL Server，所以今天用SQL Server的DTD来迁移数据库。但是导入后发现只导入了表结构和数据，表的一些主键约束没有导入。感觉很郁闷，手头也没有好的迁移工具，比如Erwin，就写了一个小工具，基本实现了主键转移。主要代码如下:

主要控制:

以下是引用的内容:

ADOConnOrcale:tado connection；//连接Oracle
adoconn SQL server:tado connection；//连接到SQL Server
O1:tado query；//连接Oracle
S1:tado query；//连接SQL Server
S2:tado query；//连接到SQL Server
progress bar 1:tpprogress bar；//进度条
memo 1:t memo；//显示错误消息
EDT server:TEdit；//server
EDT database:TEdit；//数据库名称
EDT user:TEdit；//username
ed tpass:TEdit；//密码
button 1:TButton；//执行按钮
//常量
const
oraconnstr = ' provider = msdaora . 1；数据源= % S；用户ID = % S；密码= % S；持续安全性

info = True '；
SQLConnStr = ' Provider = SQL oledb . 1；数据源= % S；初始目录= % S；用户ID = % S；密码= % S；

持久安全信息= False '；
在执行前连接Oracle和SQL Server数据库。

连接到Oracle:

以下是引用的内容:

ADOConnOrcale。ConnectionString:= Format(ORAConnStr，[trim(EdtDataBase。Text)，
trim(EdtUser。Text)、trim(ed pass。正文)])；
尝试
ADOConnOrcale。开放；
MsgBox('Oracle数据库连接成功！');
except
msgbox(' Oracle数据库连接失败！');
end；

连接到SQL Server:

以下是引用的内容:

ADOConnSQLServer。ConnectionString:= Format(SQLConnStr，[trim(EdtServer。Text)，
trim(EdtDataBase。Text)、trim(EdtUser。Text)、trim(ed pass。正文)])；
请尝试
ADOConnSQLServer。开放；
MsgBox('SQL Server数据库连接成功！')
except
msgbox(' SQL server数据库连接失败！');
end；

主要的执行代码，比较乱，还没有整理出来，但是实现功能就够了。

以下是引用的内容:

程序TForm1。Button1Click(发件人:to object)；
var
i:整数；
FieldN，tableN，fieldM，aa:String；
如果不是adoconn或cale，则开始
。connected then
begin
msgbox('请先连接到Oracle数据库！');
退出；
end；
如果不是adoconn SQL Server.connected，则
begin
msgbox('请先连接到SQL Server数据库！');
退出；
end；
屏幕。cursor:= Cr hourglass；
试试
o1。关闭；
O1。SQL . Clear
//获取oracle表用户预算的所有主键约束信息
O1 . SQL . text:= ' select a . constraint _ name，a.constraint _ type，a.table _ name，b.column _ name，

b . position '+
' from USER _ CONSTRAINTS a，USER_CONS_COLUMNS b其中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。第一；
ProgressBar1。Max:=O1。记录计数；
ProgressBar1。min:= 0；
ProgressBar1。步长:= 1；
ProgressBar1。可见:=真；
for i:=0到O1。record count-1 do
begin
S2。关闭；S2。SQL . Clear
//确定SQL Server表中是否存在当前字段信息
S2 . SQL . text:= ' select a . name as time，b . * FROM sys objects a INNER JOIN '+
' sys columns b ON a . id = b . id '+
' WHERE(a . xtype = ' ' ' U ' ')AND(a . name = ' '+O1 . field byname(' table _ name ')

。AsString+''''+
')和b . NAME = ' ' '+O1 . field by NAME(' COLUMN _ NAME ')。as string+' ' ' '+
' ORDER BY b . id '；S2。开放；
//不存在，输出指示和字段名
ifs 2 . record count < = 0 then
begin
memo 1 . text:= memo 1 . text+# 13+' Table:' '+O1 . field by name(' Table _ name ')。as string+“”+
“字段；
O1。接下来；
tableN:= ' '；
field n:= ' '；
继续；
end；
//是当前表，以及主键信息
if (tablen = ' ')或(tablen = O1 . field byname(' table _ name ')。Asstring)然后
begin
field n:= field n+。//表示相同或初始测试
tablen:= O1 . field byname(' table _ name ')。ass string；
end
else
begin
with s1do
begin
try
/get SQL Server表的主键信息
Close；
sql。清晰；
sql。text:= ' SELECT * FROM INFORMATION _ SCHEMA。KEY_COLUMN_USAGE，其中表名=

' '+tableN+' ' ' '；
打开；
第一；
aa:= field by name(' constraint _ name ')。ass string；
//如果SQL表中已经存在主键，则删除主键信息，重建表的主键
If record count >；0，然后
开始
sql。清晰；
SQL。text:= ' ALTER TABLE '+tableN+' DROP CONSTRAINT '+aa；//删除主键
exec SQL；
end；
SQL。清晰；//COLUMN_NAME
SQL。text:= ' ALTER TABLE '+tableN+' WITH NOCHECK ADD '+
' CONSTRAINT[PK _ '+tableN+']PRIMARY KEY非聚集'+
' ( '+ copy(FieldN，1，length(FieldN)-1)+
')'；
exec SQL；
field n:= '['+O1 . field by NAME(' COLUMN _ NAME ')。AsString+']，'；
tableN:= O1 . field by name(' table _ name ')。ass string；
except
memo 1 . text:= memo 1 . text+'表:'+tableN+'字段:'+FieldN+'导入错误！；
退出；
end；
end；
end；
ProgressBar1。StepIt
应用程序。处理消息；
O1。接下来；
end；
MsgBox('导入完成！');
最后
屏幕。cursor:= Cr default；
ProgressBar1。可见:=假；
end；
end；