topic-5346

Board index FiveWin for Harbour/xHarbour Error AdoDb with Harbour

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Error AdoDb with Harbour
Posted: Sun Dec 17, 2006 06:19 PM

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

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

Thanks in advance.

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Error AdoDb with Harbour
Posted: Sun Dec 17, 2006 08:37 PM

Biel,

You may use standard BEGIN SEQUENCE commands:

Code: Select all Collapse

     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 Collapse

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Error AdoDb with Harbour
Posted: Mon Dec 18, 2006 08:10 AM

Ok, thanks Antonio I will try.

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

FiveTech Support Forums

Continue the discussion