Try Catch

[Karl@CP PISTONS]

I am having an error when I run a script using the try / catch / end catch features. The MC Script Editor correctly highlights the lines but the script will not run with these lines. If I remove the try/catch all is well until the Set sqlJobLookup has an error.

 

Here is the offending code:

Try

Set sqlJobLookup = objCn.Execute("SELECT * FROM [Job Order Entry] WHERE JobID = " & JobNumber)

Catch

Call DisplayUserMessage("Error connecting to the Database!")

End Sub

End Catch

 

Is the Try / Catch not implemented in mastercam?

 

Thanks

 

Karl

[Roger Martin from CNC Software]

Try

Set sqlJobLookup = objCn.Execute("SELECT * FROM [Job Order Entry] WHERE JobID = " & JobNumber)

Catch

Call DisplayUserMessage("Error connecting to the Database!")

End Sub

End Catch

 

maybe? -->

 

Try

Set sqlJobLookup = objCn.Execute("SELECT * FROM [Job Order Entry] WHERE JobID = " & JobNumber)

Catch

Call DisplayUserMessage("Error connecting to the Database!")

End Catch

 

End Sub

[Karl@CP PISTONS]

Roger,

Thanks for the reply but it is still not working. It's funny that the editor will highlight as blue the try and catch so the editor "knows" about try/catch. If I remove the end sub I get this error when script is ran:

 

Microsoft VBScript compilation error

Expected 'Sub'

IActiveScriptSite:OnScriptError()

Line: End Catch

 

 

 

 

Try

Set sqlJobLookup = objCn.Execute("SELECT * FROM [Job Order Entry] WHERE JobID = " & JobNumber)

Catch

Call DisplayUserMessage("Error connecting to the Database!")

End Sub

End Catch

 

maybe? -->

 

Try

Set sqlJobLookup = objCn.Execute("SELECT * FROM [Job Order Entry] WHERE JobID = " & JobNumber)

Catch

Call DisplayUserMessage("Error connecting to the Database!")

End Catch

 

End Sub

[Roger Martin from CNC Software]

VBScript does not support Try Catch that’s a VB.NET statement.

 

This is about as close as you will get with VBS

 

On Error Resume Next

' code

' catch your errors and act accordingly

On Error Goto 0

[Karl@CP PISTONS]

Thanks Roger,

I will use the resume next instead.

 

 

VBScript does not support Try Catch that’s a VB.NET statement.

 

This is about as close as you will get with VBS

 

On Error Resume Next

' code

' catch your errors and act accordingly

On Error Goto 0