Visual Basic 6.0 Timer Issues: Running Multiple Events

[ajherringshaw]

I'm currently building a User Interface the launchs dts packages from VB. I am trying to use a timer control to measure elapsed time(time it takes for the dts to run).

Currently the timer will run by itself without triggering the DTS to run. If I want the DTS to run and timer to start and show the elapsed time in a label.caption. How can I get both events to run at the same time.

With the code below. The DTS will run then timer starts running once that package has ran. Help!

Set oPackage = New DTS.Package
oPackage.LoadFromSQLServer "<server>", , , DTSSQLStgFlag_UseTrustedConnection, , , , "<package name>"

'$$$$$$$$$$$$$$$$$$$$$$$$$$ Timer Start $$$$$$$$$$$$$$$$$$$$$$$$$$
Screen.MousePointer = vbHourglass
If Timer1.Enabled = False Then
Timer1.Enabled = True
End If



'$$$$$$$$ Set Exec on Main Thread $$$$$$$$$$
For Each ostep In oPackage.Steps
ostep.ExecuteInMainThread = True
Next

oPackage.Execute
Screen.MousePointer = vbNormal





'Get Status and Error Message
For Each ostep In oPackage.Steps

If ostep.ExecutionResult = DTSStepExecResult_Failure Then
ostep.GetExecutionErrorInfo lErr, sSource, sDesc
sMessage = sMessage & "Step """ & ostep.Name & _
""" Failed" & vbCrLf & _
vbTab & "Error: " & lErr & vbCrLf & _
vbTab & "Source: " & sSource & vbCrLf & _
vbTab & "Description: " & sDesc & vbCrLf & vbCrLf
Else
sMessage = sMessage & "Step """ & ostep.Name & _
""" Succeeded" & vbCrLf & vbCrLf
End If
Next
'$$$$$$$$$$$$$$$$$$$$$$$$$$$ Timer Stop $$$$$$$$$$$$$$$$$$$$$$$$$$$$
'Timer1.Enabled = False
oPackage.UnInitialize

Set ostep = Nothing
Set oPackage = Nothing

' Display Results
MsgBox sMessage
'

[Killer42]

I can't help directly, as I know nothing about DTS (actually, what does it stand for?). But perhaps as a workaround, you could fire off another simple application which would simply display elapsed time, until you kill it.

[ajherringshaw]

DTS - Data Transformation Services.. I figured out the problem and now I am looking for resolution. The DTS package and Timer object were trying to run on the same thread. MultiThreading seems to be the fix but I'll have to see. Never created a MultiThreaded app.

[Killer42]

DTS - Data Transformation Services.. I figured out the problem and now I am looking for resolution. The DTS package and Timer object were trying to run on the same thread. MultiThreading seems to be the fix but I'll have to see. Never created a MultiThreaded app.

Me neither, though I have at least one app which could probably benefit greatly from multiple threads.

Presumably in this piece of code...

'$$$$$$$$ Set Exec on Main Thread $$$$$$$$$$
For Each ostep In oPackage.Steps
  ostep.ExecuteInMainThread = True
Next

...you can set them not to execute in the main thread.

Let us know how it goes?