Ver Mensaje Individual
  #4  
Antiguo 14-11-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.290
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
No es muy complejo, en realidad es bantante sencillo (sobre todo si ya tienes el DTS creado); Aquí tienes el ejemplo completo -compilado-(Delphi 6):

Código Delphi [-]
  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;
       MessageDlg('Ejecución correcta.', mtInformation, [mbOK], 0);
     except
       raise;
     end;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita