Ado Error Not Catched

[A. martinod]

Hello,

I am adding records to a table in an access database :

$objconn.execute( $strsql)

if @error=-1 then continueloop

Data are coming from a .csv file so I cannot predict what is in it.

Sometimes I may have duplicate keys.

In that case the error for duplicate key is not catched and I do not know how to handle this....

Thanks in advance for your help,

AL

[JerryD]

Not sure if this is what you need, but when working with COM objects, you must define an error handler. In the BETA help file, go to Contents --> Function Reference --> Obj/COM Reference, and scroll down to the section named "COM Error Handling" and see the sample code:

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc"); Install a custom error handler 

; Performing a deliberate failure here (object does not exist)
$oIE = ObjCreate("InternetExplorer.Application")
$oIE.visible = 1
$oIE.bogus 
if @error then Msgbox(0,"","the previous line got an error.")

Exit 


; This is my custom error handler 
Func MyErrFunc() 
   $HexNumber=hex($oMyError.number,8) 
   Msgbox(0,"","We intercepted a COM Error !" & @CRLF & _
                "Number is: " & $HexNumber & @CRLF & _
                "Windescription is: " & $oMyError.windescription ) 

   SetError(1); something to check for when this function returns 
Endfunc

This will prevent the script from crashing and exiting when it encounters a COM error. Took someone else pointing it out to me here, so just returning the favor.

J

[A. martinod]

Not sure if this is what you need, but when working with COM objects, you must define an error handler. In the BETA help file, go to Contents --> Function Reference --> Obj/COM Reference, and scroll down to the section named "COM Error Handling" and see the sample code:

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc"); Install a custom error handler 

; Performing a deliberate failure here (object does not exist)
$oIE = ObjCreate("InternetExplorer.Application")
$oIE.visible = 1
$oIE.bogus 
if @error then Msgbox(0,"","the previous line got an error.")

Exit 
; This is my custom error handler 
Func MyErrFunc() 
   $HexNumber=hex($oMyError.number,8) 
   Msgbox(0,"","We intercepted a COM Error !" & @CRLF & _
                "Number is: " & $HexNumber & @CRLF & _
                "Windescription is: " & $oMyError.windescription ) 

   SetError(1); something to check for when this function returns 
Endfunc

This will prevent the script from crashing and exiting when it encounters a COM error. Took someone else pointing it out to me here, so just returning the favor.

J

[A. martinod]

Thank you,

The code you sent me did the job perfectly.

Regards,

A. MArtinod