要如何在程式裡只用MS SQL給的API完成DTS的設定?? |
尚未結案
|
chimera
初階會員 ![]() ![]() 發表:62 回覆:78 積分:28 註冊:2003-03-22 發送簡訊給我 |
因為我想在自己的程式內寫出一個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; |
chimera
初階會員 ![]() ![]() 發表:62 回覆:78 積分:28 註冊:2003-03-22 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |