一、DTS简介
DTS为导入导出模块，在SQL SERVER中有专门的导入导出工具
二、调用SQL SERVER导出的包
若要执行保存为COM结构化的存储文件DTS包，使用dtsrun /Ffilename /Npackage_name /Mpackage_password
若要执行保存在SQL SERVER msdb中的DTS包，使用
dtsrun /Sserver_name /Uuser_name /Ppassword /Npackage_name /Mpackage_password
若要执行保存在Meta Data Services中的DTS包，使用:
dtsrun /Sserver_name /Userver_name /Ppassword /Npackage_name /Mpackage_password /Rrespository_name
例如：服务器名为server,用户名：sa,密码：test，包名：SaleToAccess，包密码：test
var
str:string;
begin
str :='exec master.dbo.xp_cmdshell "dtsrun /Sserver /Usa /Ptest /NSaleToAccess /Mtest"';
adoquery1.Close;
adoquery1.Sql.Text :=str;
adoquery1.Open;
end;
三、利用程序直接调用DTS
1.首先在Delphi中加入Microsoft DTSPackage Object Library
2.在工程中引用DTS_TLB
3.在窗体中加入一按钮，假定在C盘下有1.mdb,2.mdb,且两库的表名与结构都相同，1.mdb中有数据，2.mdb中无数据，现要求将1.mdb的cailiao_gongying表中的数据导入到2.mdb的cailiao_gongying中去，代码实现如下：
procedure TForm1.Button1Click(Sender:TObject) ;
procedure oCustomTask2_Trans_S!(oCustromTask2:DataPumpTask2);
var
oTransformationOld:Transformation2;
oTransformation:Transformation2;
begin
oTransformationOld :=oCustomTask2.TransformationOld as Transformation2;
oTransformation :='DirectCopyXform';
oTransformation.TransformFlags :=63;
oTransformation.ForceSourceBlobsBuffered :=0;
oTransformation.InMemoryBlobSize :=1048576;
oTransformation.TransformPhaces :=4;
oCustomTask2.Transformations.Add(oTransformation);
oTransformation :=nil;
oTransformationOld :=nil;
end;
var
opackageold:package;
opackage:package2;
dts_conn,dts_conn2:connection;
dts_task:task;
dts_customtask:customtask;
dts_pumptask:datapumptask2;
dts_step:step;
begin
opackageold:=CoPackage.Create;
opackage:=opackageold as package2;
dts_conn:=opackage.Connections.new('Microsoft.Jet.OLEDB.4.0');
dts_conn.ID :=1;
dts_conn.DataSource:='C:\1.mdb';
dts_conn2:=opackage.Connections.new('Microsoft.Jet.OLEDB.4.0');
dts_conn2.ID :=2;
dts_conn2.DataSource:='C:\2.mdb';
opackage.Connections.Add(dts_conn);
opackage.Connections.Add(dts_conn2);
dts_step:=opackage.Step.New;
dts_task:=opackage.Task.New('DTSDataPumpTask');
dts_task.Name:='Copy Data from 1.mdb to 2.mdb';
dts_customtask:=dts_task.CustomTask;
dts_pumptask:=dts_customtask as dtapumptask2;
dts_pumptask.Name:='Copy Data from 1.mdb to 2.mdb';
dts_pumptask.SourceConnectionID :=1;
dts_pumptask.SourceSQLStament:='select * from cailiao_gongying';
dts_pumptask.DestictionConnectionID:=2;
dts_pumptask.DestictionSQLStatement:='select * from cailiao_gongying';
dts_pumptask.progressRowCount:=100;
dts_pumptask.MaximumErrorCount:=0;
dts_pumptask.FetchBufferSize :=1;
dts_pumptask.UseFastLoad:=True;
dts_pumptask.InsertComitSize:=0;
dts_pumptask.ExceptionFileColumnDelimiter:='|';
dts_pumptask.ExceptionFileRowDelimiter:=#13#10;
dts_pumptask.AllowIdentityInserts:=False;
dts_pumptask.FirstRow:=0;
dts_pumptask.LastRow:=0;
dts_pumptask.FastLoadOptions:=2;
dts_pumptask.ExceptionFileOptions:=1;
dts_pumptask.DataPumpOptions:=0;
dts_step.Name:='LowerCaseStep';
dts_step.TaskName:=dts_pumptask.Name;
oCustomTask2_Trans_S1(dts_pumptask);
opackage.Tasks.Add(dts_taskk);
opackage.Steps.Add(dts_step);
opackage.Execute;
opackage.UnInitialize;
end;