因為我想在自己的程式內寫出一個object create出來後， 只要把property設定好就可以直接把txt轉到db中了， 可是我找了很多資料比較詳盡的只有在程式中執行DTS封裝， 但是找不到要如何用程式設定好來源檔，目的檔及轉換方式作出一個完整的DTS封裝， 然後接著用程式執行DTS封裝後就可以轉換完畢。    這邊留一個用delphi執行DTS封裝的function:  

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  ObjPackage, ObjStep, ObjTask, ObjExecPkg, ObjConnection: variant;
begin
  ObjPackage := CreateOLEObject('DTS.Package2');
  ObjPackage.failonerror := true;
  ObjStep    := ObjPackage.steps.new;
  ObjTask    := ObjPackage.tasks.new('DTSExecutePackageTask');
  ObjExecPkg := ObjTask.customtask;      ObjExecPkg.FileName := 'C:\myDTS.dts';
  ObjExecPkg.Name := 'ExecPkgTask';      ObjStep.TaskName := ObjExecPkg.Name;
  ObjStep.Name := 'ExecPkgStep';
  ObjStep.ExecuteInMainThread := true;      ObjPackage.Steps.Add(ObjStep);
  ObjPackage.Tasks.Add(ObjTask);
  ObjPackage.Execute;      ObjPackage.UnInitialize;
end;         

這兩天都在這件事上思考，終於搞定只用程式使用到DTS的COM物件把Txt 轉換到 MS SQL， 在celeron 433MHz，128MB記憶體的電腦上轉換15000筆資料只要10秒，雖然跟直接在MS SQL中使用DTS精靈一樣的速度， 但是能在自己的程式直接使用DTS COM就感覺不一樣 發表人 -