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
 

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

Preguntas similares