Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Como puedo cargar un SQL DTS desde Delphi? (https://www.clubdelphi.com/foros/showthread.php?t=2617)

Elektron 31-07-2003 00:20:01

Como puedo cargar un SQL DTS desde Delphi?
 
Tengo un DTS File creado en SQL Server como puedo cargar ese DTS en otro SQL server por medio de Delphi, me gustaria que me mandaran algun codigo de como hacerlo muchas gracias

humexico.org 31-07-2003 05:12:58

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

guillotmarc 31-07-2003 11:03:52

Hola.

No escribas el mismo mensaje en varios foros http://www.clubdelphi.com/foros/guiaestilo.php (he eliminado los otros mensajes). Otra opción que tienes es ejecutar el comando dtsrun mediante la función ShellExecute, pasándole por parámetro el dts a ejecutar.

Saludos.

Editado para corregir el link a la Guía de Estilo


La franja horaria es GMT +2. Ahora son las 04:21:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi