sdzeng的专栏

SQL Server 提供的DTS  API是一组COM组件，可以调用DTS相关功能根据SQL Server帮助里的例子，改写成了Delphi执行DTS包///////////////////////////////////////////////uses ..COMObj;var  ObjPackage, ObjStep, ObjTask, ObjExecPkg: variant;b

procedure TForm1.Button1Click(Sender: TObject);var    ShellWindow: IShellWindows;    ie :IWebBrowser2;    i,j : Integer;    V,vInput : OleVariant;    sp:IDispatch;    idoc:IHTMLDocument2;    aInput :I