Me llamó la atención tu pregunta y le dí un googlaso:
**************************************************
var
TheDTS,objConnect: Variant;
i:integer;
Begin
TheDTS:= CreateOleObject('DTS.Package');
try
TheDTS.LoadFromStorageFile(ExtractFilePath(ParamStr(0)) +
'\UpdateAM5.dts','');
//TheDTS.GlobalVariables.Item('TheMDB').value:='C:\Program Files\Agency
Manager\Data\amdata.mdb';
for i := 1 to TheDTS.Steps.count do
TheDTS.Steps.Item(i).ExecuteinMainThread := True;
TheDTS.FailOnError := true;
TheDTS.Execute;
except
on E: Exception do
begin
//Display the error message.//
ShowMessage('Bugger something went wrong = ' + E.Message);
end;
end;
TheDTS.UnInitialize;
TheDTS:= Unassigned;
ShowMessage('Done');
*************************************************
Comentanos si jala.
SAludos
|