程序调用DTS包的问题？

引用Microsoft   DTSPackage   Object，用LoadFromSQLServer调用包。  
  需要发布那些文件？ 问题点数：100、回复次数：3Top

1 楼sunjunfeng3（论坛www.chun123.com）回复于 2005-04-13 08:20:42 得分 100

var  
  oConnection,oPackage,oStep,oTask,oCustomTask:olevariant;  
  begin  
  try  
      oPackage:=Createoleobject('DTS.Package');  
      oPackage.FailOnError   :=   True;  
      oConnection:=oPackage.Connections.New('SQLOLEDB');  
      oStep   :=oPackage.Steps.New;  
      oTask   :=   oPackage.Tasks.New('DTSBulkInsertTask');  
   
      oCustomTask   :=   oTask.CustomTask;  
   
      oConnection.Catalog   :=   'test';  
      oConnection.DataSource   :=   'wgf';  
      oConnection.UserID   :=   'sa_01';  
      oConnection.Password   :=   '';  
      oConnection.ID   :=   1;  
      oConnection.Reusable   :=   True;  
      oConnection.ConnectImmediate   :=   False;  
      oConnection.UseTrustedConnection   :=   False;  
   
      oPackage.Connections.Add(oConnection);  
      oConnection:=NUll;  
   
      oStep.Name   :=   'GenericPkgStep';  
      oStep.ExecuteInMainThread   :=   True;  
   
   
      oCustomTask.Name   :=   'GenericPkgTask';  
      oCustomTask.DataFile   :=   'E:\book1.txt';  
      oCustomTask.ConnectionID   :=   1   ;  
      oCustomTask.DestinationTableName   :=   'wgf..Book1';  
      oCustomTask.FieldTerminator   :=#9;  
      oCustomTask.RowTerminator   :=   #13#10;  
   
      oStep.TaskName   :=   oCustomTask.Name;  
   
      oPackage.Steps.Add(oStep);  
      oPackage.Tasks.Add(oTask);  
      oPackage.FailOnError   :=   True;  
   
      oPackage.Execute;  
  finally  
      oConnection:=null;  
      oCustomTask:=null;  
      oTask:=null;  
      oStep:=null;  
      oPackage:=null;  
  end;  
  Top

2 楼cqlyzz（学习ing）回复于 2005-04-15 22:47:11 得分 0

我用LoadFromSQLServer，怎么只能在服务器端执行，在客户端就不行啊？      
  Top

3 楼cqlyzz（学习ing）回复于 2005-04-29 19:13:08 得分 0

upTop

相关问题

• null
• opackage
• ocustomtask
• oconnection
• ostep
• otask
• true
• add

• 帖主：cqlyzz
• sunjunfeng3

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载