Solved

Question on Err.Raise

Posted on 2001-09-07
10
184 Views
Last Modified: 2012-08-14
Attached are two test files: One is COM dll file; One is client exe file. I made a simple dll method "Test" call from client with empty SSN value passing. Why can't the client handle the Err.Raise (not be hit if put a breakpoint at "MsgBox Err.Description" at client)?

'******************************
' comTest - Class1.cls
'******************************
Public Function Test(ByVal SSN As String) As String
    On Error GoTo errh
    If Len(SSN) = 0 Then
        Err.Raise vbError + 1, , "Please input SSN" ' create run time error
        Exit Function
    End If
    Test = "Successful"
    Exit Function
errh:
    Test = Err.Description
End Function


'********************************
'  clientTest - Form1
'********************************
Private Sub cmdTest_Click()
    Dim oTest As Object
    On Error GoTo errh
    Set oTest = CreateObject("comTest.Class1")
    MsgBox oTest.Test(txtSSN)
    Exit Sub
errh:
    MsgBox Err.Description  ' set breakpoint here
End Sub
0
Comment
Question by:DevelHelper
  • 3
  • 3
  • 2
  • +2
10 Comments
 
LVL 3

Expert Comment

by:DennisL
ID: 6465159
Remove the On Error goto from the Test function.
Your Com control is handling the error, but you want the client to handle it right?

When you're raising the error in Test, it goes to Test=Err.description and the client never even knows an error occured.
0
 

Author Comment

by:DevelHelper
ID: 6465180
Thank you for your help. But this just a simple code. Actually, there are two different errors should be handled. One error is from database connection; another is from VB code. "On Error GOTO errh" is used to handle error from VB code.
0
 
LVL 3

Expert Comment

by:peteyhiggins
ID: 6465201
Handle the error in the dll and then either raise an error or fire an event in that error handler.  That'll pass that error back to the client and you can process it there.  You'll have to use the with events keyword in your dll declaration to use the event method, though
0
Use Case: Protecting a Hybrid Cloud Infrastructure

Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.

 

Author Comment

by:DevelHelper
ID: 6465211
Could you please tell how to make change on the code?
0
 
LVL 3

Expert Comment

by:peteyhiggins
ID: 6465356
In your dll, put:

Public Event ErrorEvent(iMsg as Long, sMsg as String)

In your error handler, put this:

errh:

RaiseEvent ErrorEvent(err.Number, err.Description)

In your form put:

dim WithEvents oTest as comTest.Class1

set oTest = new comTest.Class1

and add the method

private sub oTest_ErrorEvent(iMsg as Long, sMsg as String)

.... do whatever here

end sub
0
 

Expert Comment

by:rcjn
ID: 6465560
You wrote:

"Err.Raise vbError + 1, , "Please input SSN" "

For COM, it needs to be VBObjectError + 1.

0
 
LVL 15

Expert Comment

by:ameba
ID: 6465932
It is simple: BEFORE *each* Err.Raise statement add one line:
    On Error GoTo 0
    Err.Raise ...

The Err.Raise will also work correctly without that line, if you don't have error handler in your function.
But, it is good idea to ignore that fact and to add "On Error GoTo 0" statements - this will allow later changes to error handling in your function.
0
 
LVL 15

Expert Comment

by:ameba
ID: 6465951
- you can also remove "Exit Function" - it is never executed, since Err.Raise exits function and returns code execution to the caller.

Public Function Test(ByVal SSN As String) As String
   On Error GoTo errh

   If Len(SSN) = 0 Then
       On Error GoTo 0  ' turn off error handling
       Err.Raise vbError + 1, , "Please input SSN" ' create run time error
   End If
   Test = "Successful"
   Exit Function

errh:
   Test = Err.Description
End Function
0
 

Author Comment

by:DevelHelper
ID: 6470799
Thanks! everyone.

Finally, I find it works correctly if I register the com dll in my computer, and then run the client project. But I don't know why it can't works correctly if run the com within VB project group.
0
 
LVL 15

Accepted Solution

by:
ameba earned 20 total points
ID: 6470887
You use this code:
   Dim oTest As Object
   Set oTest = CreateObject("comTest.Class1")

CreateObject is checking/ using only *registered* components.  When you run VB project in IDE, VB will generate temporary registration key "ProjectName.ClassName" which is not something CreateObject will recognize.

To use such 'temporary' component in VB group, add reference to VB DLL project, and use this code:
   Dim oTest As comTest.Class1
   Set oTest = New comTest.Class1
0

Featured Post

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
VB 6.0 printer how to align 6 62
VBA error replacing data 6 39
Error when passing an argument to a vb6 that contains  '/' 7 37
Protecting vb6 & .Net code Obfuscation 18 121
Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question