Error AdoDb with Harbour

[Biel EA6DD]

How I can do this, but with harbour code not xHarbour.

Code: Select all  Expand view  RUN

       TRY
          ::oRs:AddNew()
       CATCH oError
          lResult := .F.
          MsgStop(oError:Operation,"Ado RecordSet")
       END


Thanks in advance.

[Antonio Linares]

Biel,

You may use standard BEGIN SEQUENCE commands:

Code: Select all  Expand view  RUN

     BEGIN SEQUENCE
        <statements>...
     [BREAK [<exp>]]
        <statements>...
     [RECOVER [USING <idVar>]]
        <statements>...
     END [SEQUENCE]


There is a sample of use at Clipper norton guides. Here is another one:

Code: Select all  Expand view  RUN

   bError = ErrorBlock( { | o | Break( o ) } )
   BEGIN SEQUENCE
      &cPP
   RECOVER USING oError
      ShowError( oError )
   END SEQUENCE   
   ErrorBlock( bError )


[Biel EA6DD]

Ok, thanks Antonio I will try.