hi!
ich hoffe ihr k�nnt mir bei einem riesigen problem weiterhelfen... auch wenn
ich neu in der list bin ...
ich k�mpfe seit mehreren tagen mit einem problem ...
ich versuche �ber asp ein dts paket auf dem sql server ausf�hren zu lassen
...
das klappt auch wunderbar wenn ich es von sql auf sql ausf�hren lasse ...
das problem ist ... sobald er versucht aus einer access datenbank daten
einzulesen wir failure angezeit ... habt ihr vielleicht einen tip ??
anbei ... beide scripts ... die ich verwende...
danke schon jetzt f�r eure hilfe
andreas
ps: falls jemand von euch eine l�sung hat kann er sie mir auch direkt mailen
falls attachments dabei sind ... [EMAIL PROTECTED]
============================================================================
==========
ExecASP.htm
============================================================================
==========
<html>
<head>
<title>DTS</title>
<script language="JavaScript" type="text/javascript">
<!--//
function SetSecurity(lFlag)
{
if (lFlag == "0")
{
document.forms(0).item('txtUID').disabled = false;
document.forms(0).item('txtPWD').disabled = false;
}
else
{
document.forms(0).item('txtUID').disabled = true;
document.forms(0).item('txtPWD').disabled = true;
}
}
//-->
</script>
</head>
<body>
<center>
<form name="frmExecPkg" id="frmExecPkg" method="POST" action="ExecASP.asp">
<table border="0" cellpadding="4" cellspacing="4">
<tr><td>Server:</td><td><input type="text" name="txtServer" id="txtServer"
value="(local)" /></td></tr>
<tr><td colspan="2"><input type="radio" id="optSecurity" name="optSecurity"
value="256" onClick="JavaScript:SetSecurity(256);"/>Windows
Authentication</td></tr>
<tr><td colspan="2"><input type="radio" id="optSecurity" name="optSecurity"
value="0" onClick="JavaScript:SetSecurity(0);" checked/>SQL Server
Authentication</td></tr>
<tr><td>Username:</td><td><input type="text" name="txtUID" id="txtUID"
value="sa" /></td></tr>
<tr><td>Password:</td><td><input type="password" name="txtPWD" id="txtPWD"
value="" /></td></tr>
<tr><td>Package Name:</td><td><input type="text" name="txtPkgName"
id="txtPkgName" value="" /></td></tr>
<tr><td>Package Password:</td><td><input type="password" name="txtPkgPWD"
id="txtPkgPWD" value="" /></td></tr>
<tr><td colspan="2" align="center"><input type="submit" name="cmdExec"
id="cmdExec" value="Execute" /></td></tr>
</table>
</form>
</center>
</body>
</html>
============================================================================
==========
neue Seite
============================================================================
==========
ExecASP.ASP
============================================================================
==========
<%@Language=VBScript %>
<%
Option Explicit
Response.Buffer = False
%>
<html>
<head>
<title>DTS</title>
</head>
<body>
<%
Const DTSSQLStgFlag_Default = 0
Const DTSStepExecResult_Failure = 1
Dim oPkg, oStep, sErr, bSuccess
Dim sServer, iSecurity, sUID, sPWD, sPkgName, sPkgPWD
' Get Form Variables
sServer = Request.Form("txtServer")
iSecurity = CInt("0" & Request.Form("optSecurity"))
sUID = Request.Form("txtUID")
sPWD = Request.Form("txtPWD")
sPkgName = Request.Form("txtPkgName")
sPkgPWD = Request.Form("txtPkgPWD")
' Validate Variables
If Len(sServer) = 0 Then sErr = "<li>Invalid Server Name"
If iSecurity = 0 And Len(sUID) = 0 Then _
sErr = sErr & "<li>Invalid Username for SQL Security"
If Len(sPkgName) = 0 Then sErr = sErr & "<li>Invalid Package Name"
If Len(sErr) = 0 Then
Response.Write "<p>Executing " & sPkgName & " from " & sServer & "</p>"
' Load the Package
Set oPkg = Server.CreateObject("DTS.Package")
oPkg.LoadFromSQLServer sServer, sUID, sPWD, iSecurity , sPkgPWD, "",
"",
sPkgName
' Execute the Package
oPkg.Execute
bSuccess = True
' Report Step status
For Each oStep In oPkg.Steps
sErr = sErr & "<p> Step [" & oStep.Name & "] "
If oStep.ExecutionResult = DTSStepExecResult_Failure Then
sErr = sErr & " failed<br>"
bSuccess = False
Else
sErr = sErr & " succeeded<br>"
End If
sErr = sErr & "Task """ & _
oPkg.Tasks(oStep.TaskName).Description & """</p>"
Next
If bSuccess Then
sErr = sErr & "<p>Package [" & oPkg.Name & "] succeeded</p>"
Else
sErr = sErr & "<p>Package [" & oPkg.Name & "] failed</p>"
End If
End If
' Clean Up
oPkg.UnInitialize
Set oStep = Nothing
Set oPkg = Nothing
Response.Write sErr
Response.Write "<p>Done</p>"
%>
</body>
</html>
============================================================================
==========
| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
