Posted on 2009-07-30 16:00
xyz 阅读(410)
评论(0) 编辑 收藏 引用 所属分类:
Delphi
DTS是SQL Server中用于完成一系列数据调度的工具，由于它的特殊性，在程序中操作DTS包是件麻烦的事情。
但是微软还算很厚道，留了一个接口，让用户在自己开发的程序中，可以无障碍的使用DTS包。本文讲述的就是如何在Delphi中操作DTS包。
一、导入相关的DLL
首先，新建一个Package，并保存
在Component->Import Component菜单中，选择Import Type Library
找到SQL Server安装目录下的DTSPkg.dll文件，并加载到Delphi中
将Dll生成的TLB文件导入到Package中
保存Package，编译，安装。
安装成功后，会在ActiveX面板下发现TPackage, TPackage2, TPropertiesProvider, TApplication, TCDTSLegacyDesigner
我们需要使用的是TPackage控件，其他的控件没有使用的必要。
二、TPackage控件
首先我们需要了解一下TPackage控件的属性，事件等等。由于是ActiveX控件，它的属性只有常规的ActiveX那一些，但是它提供的事件，都是非常有用的。
事件列表：
OnError: 当出错时触发
OnFinish: 当DTS工作完成时触发
OnProgress: 当DTS进度改变时触发
OnQueryCancel: 当查询被取消时触发
OnStart: 当DTS工作开始时触发
注意：这5个事件必须都被实现，不然将引发异常。
常用属性：
UseTransaction: 数据转换时是否开启事务
GlobalVariables: 全局变量
Tasks: 任务列表
Connections: 数据连接列表
Steps: 任务顺序列表
DTS的关键就在于事务，连接，任务和工作流。用这几个属性就可以完成大部分的DTS操作了。
需要注意的是，DTS的Tasks，Steps等属性的顺序，是会变化的，不能够跟据ID得到相关的属性值，只能够遍历属性，然后得到属性的名称与值。
三、代码实例
下面的代码即DTS任务属性查看器的一部分（注意代码中不能用for..in结构）
1procedure TFormDTS.OpenDTS(AfileName: string);
2var
3I, J: Integer;
4begin
5DTS.LoadFromStorageFile(AfileName, EmptyStr, EmptyStr, EmptyStr, EmptyStr);
6for i := 1 to DTS.Tasks.Count do
7begin
8Forms.Application.ProcessMessages;
9for j := 1 to DTS.Tasks.Item(i).Properties.Count do
10begin
11Forms.Application.ProcessMessages;
12mmDTS.Lines.Add(Format('P%d %s: %s',[j,
13DTS.Tasks.Item(i).Properties.Item(j).Name,
14DTS.Tasks.Item(i).Properties.Item(j).Value]));
15end;
16mmDTS.Lines.Add('---------------------------------------------');
17end;
18end;
19
四、需要注意的地方
上面的代码可能细心的人已经发现了，我用了一句Forms.Application.ProcessMessages;
为什么一定要加上Forms呢？原因就是在DTS_TLB包中，包含了一个_Application对象，很碰巧的是，它的实例名称也是Application，为了区分它们，无论调用哪个Application，都必须先指定命名空间的名称。
另外，DTS是一个OLE对象，它的数组下标从1开始，而并非是0。