Delphi 操作 DTS
来源:互联网 发布:棋牌游戏源码修改软件 编辑:程序博客网 时间:2024/06/14 04:21
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结构) procedure TFormDTS.OpenDTS(AfileName: string); var I, J: Integer; begin DTS.LoadFromStorageFile(AfileName, EmptyStr, EmptyStr, EmptyStr, EmptyStr); for i := 1 to DTS.Tasks.Count do begin Forms.Application.ProcessMessages; for j := 1 to DTS.Tasks.Item(i).Properties.Count do begin Forms.Application.ProcessMessages; mmDTS.Lines.Add(Format('P%d %s: %s',[j, DTS.Tasks.Item(i).Properties.Item(j).Name, DTS.Tasks.Item(i).Properties.Item(j).Value])); end; mmDTS.Lines.Add('---------------------------------------------'); end; end; 四、需要注意的地方 上面的代码可能细心的人已经发现了,我用了一句Forms.Application.ProcessMessages; 为什么一定要加上Forms呢?原因就是在DTS_TLB包中,包含了一个_Application对象,很碰巧的是,它的实例名称也是Application,为了区分它们,无论调用哪个Application,都必须先指定命名空间的名称。 另外,DTS是一个OLE对象,它的数组下标从1开始,而并非是0。 |
- Delphi 操作 DTS
- Delphi 操作 DTS
- Delphi执行DTS包
- Delphi的DTS编程
- C# 操作DTS
- DTS
- DTS
- DTS
- dts
- dts
- dts
- DTS
- dts
- 使用VS.NET2003操作SQLServer DTS
- 使用VS.NET2003操作SQLServer DTS.
- 用DTS方式实现数据导入导出操作
- 用DTS方式实现数据导入导出操作
- 文件操作delphi代码
- EXPDP 和 IMPDP
- ASP.NET2.0网页的生命周期
- 一个题目说明for循环过程(经典!)
- Hibernate查询方法与缓存的关系
- POJ1012
- Delphi 操作 DTS
- 面向对象的JavaScript 四 ----- Javascript实现继承的方式(1)
- Oracle Audit
- Delphi2009 反射机制的使用
- 通过二级缓存来加速你的Hibernate应用程序
- propertygrid 里可以用的属性
- 译《Understanding Weak References》
- vs2008安装失败解决过程
- 通信原理第六版