Active X Script help please

Question

Post reply

Active X Script help please

Viewing 12 posts - 16 through 26 (of 26 total)

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

pinky SSCommitted Points: 1997 More actions · Answer 1

yes its working if i omit the last line. is my query correct?

luciano barretta Mr or Mrs. 500 Points: 563 More actions · Answer 2

i see only that you must specify the attachment as a string so:

@attachments = 'C:\Documents and Settings\Desktop\test.xls'

that is different from

@attachments = C:\Documents and Settings\Desktop\test.xls'

sorry for my english...

pinky SSCommitted Points: 1997 More actions · Answer 3

a typo mistake

but why is it working if i omit the attachments. i am getting the email. does it effect anything if i use xp_stopmail

pinky SSCommitted Points: 1997 More actions · Answer 4

I just modified my DTSPackage and the activexscript worked perfect with out failing the package.

sorry its my fault; didnt make the connections properly.

Thats really good. Thanks a lot RLoski for the script.

But the xpsend_mail is not working properly. anyways i have one solution and i am good to go.

pinky SSCommitted Points: 1997 More actions · Answer 5

if anyone can give me a solution for xp_sendmail that would be great. I didnt use xp_sendmail till now and this is the first time i tested with it. Just curious to know as to how the attachments can be sent.

Thanks.

pinky SSCommitted Points: 1997 More actions · Answer 6

Hi i am back again. The active x script works fine but a problem here.

Function Main()

if DTSGlobalVariables.Parent.Tasks("DTSTask_DTSDataPumpTask_2").CustomTask.RowsComplete < 0 then

' 0 or some other threshold

Main = DTSStepScriptResult_DontExecuteTask

else

Main = DTSStepScriptResult_ExecuteTask

end if

end function

what should be the threshold that i need to mention here. Here is my scenario

one of my table doesnt have errors so the excel part shouldnt run and the other table has got errors this time the excel part should run. so if i mention the threshold as <0 i see that the excel part is running for both the scenarios. I tried putting different values but no luck. Please help me out.

Thanks for your reply

Russel Loski SSCertifiable Points: 7059 More actions · Answer 7

Under what conditions does the task run? You can set up a workflow from the datapump to this task. You can state that you want the routine to only when there is an error (or is no error).

Russ

Russel Loski, MCSE Business Intelligence, Data Platform

pinky SSCommitted Points: 1997 More actions · Answer 8

The task should not run when the number of errored records is zero. if there are any errored records it should send to the excel and then send an email with the attachment of this excel. can u tell me as to how to set up the workflow from the datapump to this task.

Thanks for ur reply.

Russel Loski SSCertifiable Points: 7059 More actions · Answer 9

Try:

if DTSGlobalVariables.Parent.Tasks("DTSTask_DTSDataPumpTask_2").CustomTask.RowsComplete = 0 then

Russel Loski, MCSE Business Intelligence, Data Platform

pinky SSCommitted Points: 1997 More actions · Answer 10

Hi Russel,

I am back again. I was on vacation these days so couldnt check your message. I tried giving

if DTSGlobalVariables.Parent.Tasks("DTSTask_DTSDataPumpTask_2").CustomTask.RowsComplete = 0

before but it didnt work for me. Can you please help me out.

Thanks for ur help

pinky SSCommitted Points: 1997 More actions · Answer 11

Can anyone please render any ideas and solutions on this. Thanks a lot for the help

ervipul Grasshopper Points: 10 More actions · Answer 12

'**********************************************************************

' Visual Basic ActiveX Script

'************************************************************************

Function Main()

Dim strExecPkgTask'Execute Package Task Name

strExecPkgTask = "DTSTask_DTSDataPumpTask_1"

Call SetPackageParams(DTSGlobalVariables.Parent.Tasks(Cstr(strExecPkgTask)).CustomTask)

Main = DTSTaskExecResult_Success

End Function

Sub SetPackageParams(objPkg)

msgbox(objPkg.RowsComplete)

End Sub

try this one it will show you the rowsaffected