ObjEvent does not fire on com error

[xavierh]

when a database query returns no recors, RecordSet.MoveFirst or MoveLast will generate an error.

I am workiing with SQLCE. The Recordset.RecordCount always returns -1. So trapping the error with MoveFirst is essential if the current query returns no records.

Here is what I'm attempting:

Dim $g_eventerror = 0
Dim $oMoveFirstError
Func RunCEQuery ( $Query, $DBFile, $bReturnColumns = False )
Dim $Ret = ""
Dim $sqlCon = ObjCreate("ADODB.Connection")
Dim $oRS = ObjCreate ( "ADODB.Recordset" )
$sqlCon.Open("Provider=Microsoft.SQLSERVER.CE.OLEDB.4.0;Data Source=" & $DBFile)
$oRS.open ( $Query, $sqlCon, 3, -1)
$oMoveFirstError = ObjEvent ( "AutoIT.Error", "Errhandler" ) ; SHOULD TRAP ERROR
$oRS.MoveFirst  ; CRASH OCCURS HERE if $oRS has no records
If $g_eventerror then
  $g_eventerror = 0
  Msgbox (0,"AutoItCOM test","Error was caught: " & @error)
Endif
etc. etc.
EndFunc
 
Func Errhandler()
Msgbox(0,"SQLCETool","COM Error !"    & @CRLF  & @CRLF & _
  "err.description is: "    & @TAB & $oMoveFirstError.description   & @CRLF & _
  "err.windescription:"  & @TAB & $oMoveFirstError.windescription & @CRLF & _
  "err.number is: "      & @TAB & hex($oMoveFirstError.number,8)  & @CRLF & _
  "err.lastdllerror is: "   & @TAB & $oMoveFirstError.lastdllerror   & @CRLF & _
  "err.scriptline is: "  & @TAB & $oMoveFirstError.scriptline    & @CRLF & _
  "err.source is: "      & @TAB & $oMoveFirstError.source        & @CRLF & _
  "err.helpfile is: "      & @TAB & $oMoveFirstError.helpfile      & @CRLF & _
  "err.helpcontext is: "    & @TAB & $oMoveFirstError.helpcontext _
)
Local $err = $oMoveFirstError.number
If $err = 0 Then $err = -1
$g_eventerror = $err
EndFunc

The Errhandler() function does not fire, and the script crashes on the $oRS.MoveFirst line if the recordset is empty, with this error: ==> The requested action with this object has failed.:.

Am I missing something?

Thanks,

Xavier

Edited October 11, 2011 by xavierh

[UEZ]

Move

$oMoveFirstError = ObjEvent ( "AutoIT.Error", "Errhandler" ) ; SHOULD TRAP ERROR

to line 1 and it should work!

Reason is that the error handle isn't set before the ObjCreate()!

Br,

UEZ

[enaiman]

IMO you need to register the error handler outside any function (in the main script) because outside your RunCEQuery function, $oMoveFirstError does not exist.

[xavierh]

Thanks for taking the time to make suggestions.

UEZ, I moved the ObjEvent line up to before the ObjCreate statement, but that did not help. Besides, in the sample code that goes with the Function Reference help, the ObjEvent is after the ObjCreate, and immediately before the risky statement.

Mass Spammer, I do have a Dim $oMoveFirstError statement outside of the functions, it's the 2nd line in the code above. It does exist outside the RunCEQuery function.

So I'm still scratching my head, but that does not seem to help either.

[BrewManNH]

Mass Spammer, I do have a Dim $oMoveFirstError statement outside of the functions, it's the 2nd line in the code above. It does exist outside the RunCEQuery function.

So I'm still scratching my head, but that does not seem to help either.

Shouldn't this $oMyError.description be this $oMoveFirstError.description?

[xavierh]

MP,

you're right, it should, it's a copy paste from the Function Reference sample code, and I should have paid more attention to what it contained. I just rectified it. In my actual code I just have a msgbox statement to let me know that the ErrHandler function was actually called.

[xavierh]

of course there is the easy way of avoiding the problem, just adding the line

if $oRS.EOF And $oRS.BOF Then Return ""

just before

$oRS.MoveFirst

But still the event should fire. Possible bug?