Stop DTS package from running?

Question

Stop DTS package from running?

Mike Klostermeyer

SSC Enthusiast

Points: 194
More actions
March 1, 2007 at 1:51 pm

#68457

Here is my issue...I need to add a step to an existing DTS package that check for data from a query. If data returns, I need to stop processing the DTS package; otherwise, continue. I'm sure this can be done with ActiveX, I just can't find an ActiveX script that check for query results. I'd appreciate any help you can give me. Thanks.
Mike

Viewing 3 posts - 1 through 2 (of 2 total)

You must be logged in to reply to this topic. Login to reply

Terry-239890 Ten Centuries Points: 1387 More actions · Answer 1

Try this in ActiveX Script Task:

Function Main()

Dim cn
Dim rs
Dim Flag

    Set cn = CreateObject("ADODB.Command")
    Set rs = CreateObject("ADODB.Recordset")
    cn.ActiveConnection = "Provider=sqloledb;Data Source=Server;Initial Catalog=database;User Id=login;Password=password;"
    cn.CommandType = 1 'adCmdText
    cn.ActiveConnection.CursorLocation = 3 'adUseClient
    cn.CommandTimeout = 60 'set to 1 min
    cn.CommandText = "Select * From
"

    Set rs = cn.Execute()
    If rs.RecordCount > 0 Then
        Flag = "F"
    Else
        Flag = "S"
    End If
    Set rs = Nothing
    Set cn = Nothing
'msgbox "Result=" & Flag
    If Flag = "S" Then
        Main = DTSTaskExecResult_Success
    Else
        Main = DTSTaskExecResult_Failure
    End If
End Function

Mike Klostermeyer SSC Enthusiast Points: 194 More actions · Answer 2

Terry,

Sorry for the delay. Thanks, this worked perfectly!

Mike