Problema Ejecutar DTS (ASP)

13/04/2004 - 13:05 por Srenau | Informe spam
Hola,

Estoy intentando ejecutar un DTS desde una página ASP, me
da el siguiente error:

Step [DTSStep_DTSExecuteSQLTask_1] failed.

codigo:
Const DTSSQLStgFlag_Default = 0
Const DTSStepExecResult_Failure = 1
const DTSSQLStgFlag_UseTrustedConnection = 256

Dim oPkg, oStep, sMessage, bStatus

Set oPkg = Server.CreateObject("DTS.Package")
oPkg.LoadFromSQLServer "XXX\XXX_SQL","","",DTSSQLSt
gFlag_UseTrustedConnection,"","","","prueba_dts"
oPkg.Execute()

bStatus = True
oPkg.LogFileName="log_sql_error.txt"
Response.write("<BR>properties:")
For Each oStep In oPkg.Steps
sMessage = sMessage & "<p> Step [" &
oStep.Name & "] "
If oStep.ExecutionResult =
DTSStepExecResult_Failure Then
sMessage = sMessage & "
failed<br>"
bStatus = False
Else
sMessage = sMessage & "
succeeded<br>"
End If
sMessage = sMessage & "Task """ &
oPkg.Tasks(oStep.TaskName).Description & """</p>"
Next

If bStatus Then
sMessage = sMessage & "<p>Package [" &
oPkg.Name & "] succeeded</p>"
Else
sMessage = sMessage & "<p>Package [" &
oPkg.Name & "] failed</p>"
End If

Response.Write sMessage
Response.Write "<p>Done</P>"

=
Los permisos se los doy todos ya que entro como
administrador.

Ayuda

Preguntas similare

Leer las respuestas

#1 Carlos Sacristan
13/04/2004 - 13:14 | Informe spam
Pero no parece un error de la llamada al DTS, sino del propio paso...
¿Has comprobado que ese paso funciona bien ejecutándolo directamente desde
la consola? Si es así, ¿no será un problema de rutas de ficheros?



Un saludo

-
"Sólo sé que no sé nada. " (Sócrates)

Por favor, responder únicamente al foro
Se agradece la inclusión de sentencias DDL


"Srenau" escribió en el mensaje
news:1741001c42147$439ace70$
Hola,

Estoy intentando ejecutar un DTS desde una página ASP, me
da el siguiente error:

Step [DTSStep_DTSExecuteSQLTask_1] failed.

codigo:
Const DTSSQLStgFlag_Default = 0
Const DTSStepExecResult_Failure = 1
const DTSSQLStgFlag_UseTrustedConnection = 256

Dim oPkg, oStep, sMessage, bStatus

Set oPkg = Server.CreateObject("DTS.Package")
oPkg.LoadFromSQLServer "XXX\XXX_SQL","","",DTSSQLSt
gFlag_UseTrustedConnection,"","","","prueba_dts"
oPkg.Execute()

bStatus = True
oPkg.LogFileName="log_sql_error.txt"
Response.write("<BR>properties:")
For Each oStep In oPkg.Steps
sMessage = sMessage & "<p> Step [" &
oStep.Name & "] "
If oStep.ExecutionResult DTSStepExecResult_Failure Then
sMessage = sMessage & "
failed<br>"
bStatus = False
Else
sMessage = sMessage & "
succeeded<br>"
End If
sMessage = sMessage & "Task """ &
oPkg.Tasks(oStep.TaskName).Description & """</p>"
Next

If bStatus Then
sMessage = sMessage & "<p>Package [" &
oPkg.Name & "] succeeded</p>"
Else
sMessage = sMessage & "<p>Package [" &
oPkg.Name & "] failed</p>"
End If

Response.Write sMessage
Response.Write "<p>Done</P>"

=
Los permisos se los doy todos ya que entro como
administrador.

Ayuda
Respuesta Responder a este mensaje
#2 SRenau
13/04/2004 - 13:27 | Informe spam
Funcion OK desde la consola.
¿La ruta de los ficheros? como esta eso.

Pero no parece un error de la llamada al DTS, sino


del propio paso...
¿Has comprobado que ese paso funciona bien ejecutándolo


directamente desde
la consola? Si es así, ¿no será un problema de rutas de


ficheros?



Un saludo

-
"Sólo sé que no sé nada. " (Sócrates)

Por favor, responder únicamente al foro
Se agradece la inclusión de sentencias DDL


"Srenau" escribió


en el mensaje
news:1741001c42147$439ace70$
Hola,

Estoy intentando ejecutar un DTS desde una página ASP, me
da el siguiente error:

Step [DTSStep_DTSExecuteSQLTask_1] failed.

codigo:
Const DTSSQLStgFlag_Default = 0


Const DTSStepExecResult_Failure = 1
const DTSSQLStgFlag_UseTrustedConnection = 256

Dim oPkg, oStep, sMessage, bStatus

Set oPkg = Server.CreateObject("DTS.Package")
oPkg.LoadFromSQLServer "XXX\XXX_SQL","","",DTSSQLSt
gFlag_UseTrustedConnection,"","","","prueba_dts"
oPkg.Execute()

bStatus = True
oPkg.LogFileName="log_sql_error.txt"
Response.write("<BR>properties:")
For Each oStep In oPkg.Steps
sMessage = sMessage & "<p> Step [" &
oStep.Name & "] "
If oStep.ExecutionResult >DTSStepExecResult_Failure Then
sMessage = sMessage & "
failed<br>"
bStatus = False
Else
sMessage = sMessage & "
succeeded<br>"
End If
sMessage = sMessage & "Task """ &
oPkg.Tasks(oStep.TaskName).Description & """</p>"
Next

If bStatus Then
sMessage = sMessage & "<p>Package [" &
oPkg.Name & "] succeeded</p>"
Else
sMessage = sMessage & "<p>Package [" &
oPkg.Name & "] failed</p>"
End If

Response.Write sMessage
Response.Write "<p>Done</P>"

=>
Los permisos se los doy todos ya que entro como
administrador.

Ayuda








.

Respuesta Responder a este mensaje
#3 Jose Mariano Alvarez \(MUG\)
13/04/2004 - 18:40 | Informe spam
Quita acceso anonimo en la aplicacion del IIS

Jose Mariano Alvarez
Comunidad de base de datos
Grupo de Usuarios Microsoft
www.mug.org.ar



"SRenau" wrote in message
news:1bc7b01c4214a$3d2332f0$
Funcion OK desde la consola.
¿La ruta de los ficheros? como esta eso.

Pero no parece un error de la llamada al DTS, sino


del propio paso...
¿Has comprobado que ese paso funciona bien ejecutándolo


directamente desde
la consola? Si es así, ¿no será un problema de rutas de


ficheros?



Un saludo

-
"Sólo sé que no sé nada. " (Sócrates)

Por favor, responder únicamente al foro
Se agradece la inclusión de sentencias DDL


"Srenau" escribió


en el mensaje
news:1741001c42147$439ace70$
Hola,

Estoy intentando ejecutar un DTS desde una página ASP, me
da el siguiente error:

Step [DTSStep_DTSExecuteSQLTask_1] failed.

codigo:
Const DTSSQLStgFlag_Default = 0


Const DTSStepExecResult_Failure = 1
const DTSSQLStgFlag_UseTrustedConnection = 256

Dim oPkg, oStep, sMessage, bStatus

Set oPkg = Server.CreateObject("DTS.Package")
oPkg.LoadFromSQLServer "XXX\XXX_SQL","","",DTSSQLSt
gFlag_UseTrustedConnection,"","","","prueba_dts"
oPkg.Execute()

bStatus = True
oPkg.LogFileName="log_sql_error.txt"
Response.write("<BR>properties:")
For Each oStep In oPkg.Steps
sMessage = sMessage & "<p> Step [" &
oStep.Name & "] "
If oStep.ExecutionResult >DTSStepExecResult_Failure Then
sMessage = sMessage & "
failed<br>"
bStatus = False
Else
sMessage = sMessage & "
succeeded<br>"
End If
sMessage = sMessage & "Task """ &
oPkg.Tasks(oStep.TaskName).Description & """</p>"
Next

If bStatus Then
sMessage = sMessage & "<p>Package [" &
oPkg.Name & "] succeeded</p>"
Else
sMessage = sMessage & "<p>Package [" &
oPkg.Name & "] failed</p>"
End If

Response.Write sMessage
Response.Write "<p>Done</P>"

=>
Los permisos se los doy todos ya que entro como
administrador.

Ayuda








.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida