ANDRES
03 de Febrero del 2006

HOLA TODOS
QUIERO SABER SI ALGUIEN ME PUEDE AYUDAR A CREAR UNA RUTINA QUE ME PERMITA EJECUTAR UN DTS CREADO EN SQL, LA RAZON ES PORQUE NO QUIERO INSTALARLES SQL A PERSONAS QUE NECESITAN QUE SE LE GENERE INFORMACION EN DBF ....GRACIAS

ariescarnero
03 de Febrero del 2006

Ya probaste la función SQLConnect de vFox?. (si es que entendí lo que necesitas)

amoquete
03 de Febrero del 2006

*!* Create a DTS Package Object
dtsPkg=CREATEOBJECT('dts.package')
SET STEP ON
*!* 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



*!* lnConexion = SQLSTRINGCONNECT([Description=Nomina;DRIVER=SQL Server;SERVER=SRVBWS01DATAWARE;UID=rsanchez;PWD=;APP=Microsoft (R) Visual FoxPro;WSID=AMOQUETE;DATABASE=NOMINA;Network=DBMSSOCN])
*!* Load the package to be executed from the Repository

dtsPkgName = dtsPkg.LoadFromRepository("SRVBWS01DATAWARE","MSDB","rsanchez";""),;
dtspkg.PackageID(45465C55-67FE-407F-829E-DC031741B857),;
dtspkg.VersionID(68703F86-E523-4F6A-98E3-E4375377511C),;
("OE60")
* DTSStep_DTSDataPumpTask_1




dtsPkg.Execute

*!* Release the DTS Package

*SQLEXEC(lnConexion, "EXEC sp_Deltabla_cxccomedor ?FechaPeriodo11")


RELEASE dtsPkg

No e podido ponerlo a funcionar este codigo, me da una error, si lo logras por favor enviame el codigo como lo resolviste

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