FoxPro/Visual FoxPro - Como ejecutar un DTS desde VF. 7.0

Saludos,

Tengo creado varios DTS en SQL, estos los disparo automaticamente programados como JOB.

Pero quiero ejecutarlo desde VF. 7.0 cuando lo desee, existe la manera de hacerlo?

Att.
Antonio R. Moquete Mejia
Santo Domingo Rep. Dom.

http://support.microsoft.com/default.aspx?scid=kb;en-us;247356&Product=fox

Saludos,
Sr, Suazo, gracias por enviarme ese link, pero he tratado de hacerlo y no logro nada, o sea me da un error al ejecutar el *.prg


dtsPkg=CREATEOBJECT('dts.package')

*!* Change My_Server to reflect the server name.
*!* Change My_UserID and My_Password to reflect your User ID and Password
*!* Obtain the Package ID and Version ID from the Properties Sheet
*!* of the DTS Package

*!* Load the package to be executed from the Repository
*dtsPkgName=dtsPkg.LoadFromRepository("My_Server","MSDB","My_UserID",;
* "My_Password","Package ID","Version ID","DTSPkgAlpha")
*!* Execute the DTS Package

asi es que lo tengo:
el servidor se llama asi :
\SRVBWS01\DATAWARE
el usuario es: rsanhcez
el password : "" o sea no tiene

algo que nose si es asi:

el Package GUID = Package ID ?
y el Version GUID = Version ID ?

pues si no son mira no se donde esta eso en el DTS

el DTS se llama asi OE60


dtsPkgName = dtsPkg.LoadFromRepository("SRVBWS01\DATAWARE","MSDB","rsanchez",;
"","{45465C55-67FE-407F-829E-DC031741B857}","{68703F86-E523-4F6A-98E3-E4375377511C}","oe60")

dtsPkg.Execute

RELEASE dtsPkg

El error que me da es este:

OLE IDispatch exception code 0 from Microsoft Data
Transformation Services (DTS) Package: The specified DTS
Package was not found in the Repositoy...

Espero que me puedas ayudar con eso Mr. Suazo

Lo unico que quiero es ejecutar ese DTS. eo60

Att.
Antonio R. Moquete Mejia
Santo Domingo Rep. Dom.

Como sugerencia...te vas al paquete que tenes y le das click derecho, por ahi habra alguna opcion que te permita ver las propiedades del paquete...esos dos datos son los que te hacen falta...

Saludos,

SR, Roman Suazo, mire esos son los dos datos del DTS llamado eo60 que cree.

Package ID = {45465C55-67FE-407F-829E-DC031741B857}

Version ID = {2D457010-FD8E-4C79-9B28-7912040E76D0}

Asi es que esta actualmente, pero me da el error que le comente anterior mente

dtsPkg=CREATEOBJECT('dts.package')

*!* Change My_Server to reflect the server name.
*!* Change My_UserID and My_Password to reflect your User ID and Password
*!* Obtain the Package ID and Version ID from the Properties Sheet
*!* of the DTS Package

*!* Load the package to be executed from the Repository
*dtsPkgName=dtsPkg.LoadFromRepository("My_Server","MSDB","My_UserID",;
* "My_Password","Package ID","Version ID","DTSPkgAlpha")
*!* Execute the DTS Package


*!* Load the package to be executed from the Repository

dtsPkgName = dtsPkg.LoadFromRepository("SRVBWS01\DATAWARE","MSDB","rsanchez",;
"","{45465C55-67FE-407F-829E-DC031741B857}","{68703F86-E523-4F6A-98E3-E4375377511C}","OE60")

dtsPkg.Execute

*!* Release the DTS Package

RELEASE dtsPkg

Disculpe, la molestia y la flojera Sr. Suazo, pero es que necesito con urgencia esto, si puede y tiene tiempo por favor cree un DTS usted mismo y ponga en prueba y luego me envia el codigo como funciono el suyo, solo que lo ejecute nada mas, no quiero que me devuelba el resultado, solo ejecutarlo.

Bueno ahi lo dejo, con esto.

Att.
Antonio R. Moquete Mejia
Santo Domingo Republica Dominicana

No te puedo ayudar asi porque no tengo el sql server instalado...Checa diferentes cosas como remover el "{" y"}" de la version id y pakage Id, quede solo queden como un string. Mire que tenes dos nombres diferentes para el dtspack
(OE60, oe60), checa ese detalle y utiliza los nombres ya sea en mayusculas o minusculas o el correcto. Si solo hay un servidor y estamos hablando de una red local solo pon el nombre del servidor sql server. Cosas de este naturaleza es lo que te esta afectando...