ANDRES
03 de Febrero del 2006

necesito crear un codigo fuente que me permita ejecutar (un DTS creado e SQL) desde VFP

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

Mew enviaron esto pero no logro ponerlo a funcionar, si lo logras pues mira enviame como lo pudiste arreglar