Ejecutar DTS desde delphi 7.0
 

Hola estoy haciendo una aplicacion y necesito ejecutar un DTS (Data Transformation Services) creado en SQL server 2000 desde un programa de Delphi 7.

Es super sencillo, puedes usar DtsRun del cuál encontrarás bastante documentación en la documentación.

suerte

DTS con Delphi
 

tengo este codigo:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  oPackage:TPackage;
  vHost: OleVariant;
begin
  try
    // inicializar
    CoInitialize(nil);
    //Crear el objeto
    oPackage:=TPackage.Create(nil);
    // Cagarlo
    oPackage.LoadFromSQLServer(
      Edit1.Text,     // Servidor
      Edit2.Text,     // Usuario
      Edit3.Text,     // Contraseña
      256,'', '', '',
      Edit4.Text,     // Nombre del DTS
      vHost);
    // ejecutar
    oPackage.UnInitialize;
    oPackage.Execute;
    winexec(PChar('dtsrun /S '+Edit1.Text+' /U '+Edit2.Text+' /P '+Edit3.Text+' /N '+Edit4.Text),SW_HIDE);
    MessageDlg('Ejecución correcta.', mtInformation, [mbOK], 0);
  except
    raise;
  end;
end;

pero al ejecutarlo me marca error de inicio de sesion del usuario '(null)' Motivo No esta asociado a una conexion de SQL server de confianza

lo ideal es que simplifiques, crea un bat para la ejecución de la DTS y ejecutes el bat desde delphi. :P o desde las tareas programadas.

Suerte.

umm pues no se exactamente a lo ke te refieres con un bat???:confused:

Un archivo por lotes.

.Bat

ola...mmm.. me podrias explicar como hago ese archivo??;)

:eek::eek:

Cuantos años tienes? :p

jejeje

http://www.ignside.net/man/dos/batch.php


Saludos... ;)

grax ya pude:

oPackage.LoadFromSQLServer(
Edit1.Text, // Servidor
Edit2.Text, // Usuario
Edit3.Text, // Contraseña
256,

----solucion
oPackage.LoadFromSQLServer(
Edit1.Text, // Servidor
Edit2.Text, // Usuario
Edit3.Text, // Contraseña
0,// para ke haga una conexion sin confianza:rolleyes: