引用Microsoft DTSPackage Object,用LoadFromSQLServer调用包。
需要发布那些文件?

解决方案 »

  1.   

    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;
      

  2.   

    我用LoadFromSQLServer,怎么只能在服务器端执行,在客户端就不行啊?