FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour MySql Nativa Transacciones. At. Mr. Rao
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: MySql Nativa Transacciones. At. Mr. Rao

Posted: Fri Sep 17, 2021 06:49 PM
After seeing this post, I am considering introducing two switches:
DATA lRaiseErrorDML INIT .f.
DATA lRaiseErrorALL INIT .f.

I can change the name of the variables to lThrowError, etc. if you all suggest

If programmer sets :lRaiseErrorDML := .t., then the Execute() method will raise a runtime error for failure of DML statements only ( DML: INSERT/UPDATE/DELETE ) and will be silent for errors with other SQL queries.


If programmer sets :lRaiseErrorALL := .t., then the Execute() method will raise a runtime error for failure in execution of any query.

Then we can write:
Code (fw): Select all Collapse
oCn:BeginTransaction()
oCn:lRaseErrorDML := .t.

TRY
    oCn:Insert(...)
    ....
CATCH
    lSaved := .f.
    oCn:RollBack()
END
oCn:lRaiseErrorDML := .f.
if lSaved
   oCn:CommitTransaction()
endif

Welcome any suggestions, before I finish the changes
Regards



G. N. Rao.

Hyderabad, India
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: MySql Nativa Transacciones. At. Mr. Rao

Posted: Sat Sep 18, 2021 04:17 AM

DATA lRaiseErrorDML INIT .f.
DATA lRaiseErrorALL INIT .f.

Ok rao.

But, transaction in mysql is only for insert, update and delete statements?

Umm. Alter table.., etc. Is not supported in transaction?
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Ariel
Posts: 389
Joined: Wed Nov 29, 2006 01:51 PM

Re: MySql Nativa Transacciones. At. Mr. Rao

Posted: Sat Sep 18, 2021 10:44 AM

Mr. Rao,

A mi modesto parecer deberia funcionar como el :execute()

TRY
oServer:Begintrasaction()
oServer:Execute( "INSERT INTO ... ")
oServer:Execute( "INSERT INTO ... ")
oServer:Execute( "INSERT INTO ... ")
oServer:Execute( "INSERT INTO ... ")
CATCH oErr
oServer:RollBack()
FINALLY
oServer:CommitTransaction()

END

De esta forma SI funciona el break automaticamente por el error.
Saludos.

nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: MySql Nativa Transacciones. At. Mr. Rao

Posted: Sat Sep 18, 2021 10:51 AM

But, transaction in mysql is only for insert, update and delete statements?

Yes.
Only for DML statements, i.e., INSERT, UPDATE and DELETE statements


Umm. Alter table.., etc. Is not supported in transaction?

Yes. Not supported.

One more important point to remember is that if at all we use any DDL statement inside a transaction, the transaction gets committed and then this DDL statement is executed. So we need to be careful not to use any statements not compatible inside a transaction.
Regards



G. N. Rao.

Hyderabad, India
Ariel
Posts: 389
Joined: Wed Nov 29, 2006 01:51 PM

Re: MySql Nativa Transacciones. At. Mr. Rao

Posted: Sat Sep 18, 2021 11:05 AM

Mr. Rao,

a mi modesto entender deberia funcionar como cuando usamos :Execute()

       TRY
           ::oServer:BeginTransaction()
           ::oServer:Execute( "INSERT INTO ... ")
           ::oServer:Execute( "INSERT INTO ... ")
           ::oServer:Execute( "INSERT INTO ... ")
           ::oServer:Execute( "INSERT INTO ... ")
           ::oServer:Execute( "INSERT INTO ... ")

        CATCH oErr
              ::oServer:RollBack()

        FINALLY
           ::oServer:CommitTransaction()

        END

De esta manera salta solo por el catch
Saludos.

carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: MySql Nativa Transacciones. At. Mr. Rao

Posted: Sat Sep 18, 2021 03:00 PM
from help of xharbour

FINALLY
The finally section is guaranteed to be executed, no matter if an error was handled or not.


in you example
Code (fw): Select all Collapse
FINALLY
::oServer:CommitTransaction()

END


The commit would be executed even when there is an error?
Anyway, I don't know if harbor supports that instruction.


salu2
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: MySql Nativa Transacciones. At. Mr. Rao

Posted: Sat Sep 18, 2021 03:10 PM
Anyway, I don't know if harbor supports that instruction.


Harbour does not support "TRY/CATCH" syntax at all. It supports BEGIN SEQUENCE/END SEQUENCE only.
xHarbour supports both.

fivewin.ch translates TRY/CATCH to BEGIN/END SEQUENCE for Harbour users. FINALLY also is translated.

Your observation about FINALLY is right.
Regards



G. N. Rao.

Hyderabad, India
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: MySql Nativa Transacciones. At. Mr. Rao

Posted: Sat Sep 18, 2021 03:11 PM
yes, work with xhb.hbc

Code (fw): Select all Collapse
// The example demonstrates program flow for a TRY..CATCH sequence

#ifdef __HARBOUR__  //from fivewin.ch
   #ifndef __XHARBOUR__
   #xcommand TRY  => BEGIN SEQUENCE WITH {| oErr | Break( oErr ) }
   #xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->
   #xcommand FINALLY => ALWAYS
   #xtranslate Throw( <oErr> ) => ( Eval( ErrorBlock(), <oErr> ), Break( <oErr> ) )
   #endif
#endif

   PROCEDURE Main()
      LOCAL oErr

      TRY
        ? "Trying"
        oErr := ErrorNew()
        oErr:Args          := { date(), time(), pi() }
        oErr:CanDefault    := FALSE
        oErr:CanRetry      := FALSE
        oErr:CanSubstitute := FALSE
        oErr:GenCode       := EG_SYNTAX
        oErr:Severity      := ES_ERROR
        oErr:SubSystem     := "MYTEST"
        oErr:SubCode       := 1001
        oErr:Operation     := "Prueba de error"
        oErr:Description   := "Descripcion de la prueba de error"    
        Throw( oErr )
      CATCH oErr
        ? "Caught:", oErr:SubCode, oErr:Operation, oErr:Description 
        ? "Throwing to outer, should be deferred"
        //Throw( oErr )
      FINALLY
         ? "Finalized"
      END
      
      ? "Oops, should have Re-Thrown, after the FINALLY."
   RETURN
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: MySql Nativa Transacciones. At. Mr. Rao

Posted: Sat Sep 18, 2021 03:58 PM
Hace años que uso tmysql con estos cambios, y me ha funcionado bien, me gusta mucho la implementación de mysql en fwh pero veo que tengo que hacer muchos cambios :-)


FWH Insert method supports your Insert2 method syntax also.

oCn:Insert( cTable, { { "fld1", "val1" }, ... { "fldN", "valN" } } )
also works.

Soon we are going to implement lThrowError like functionality.

May I know what do you advise to make migration easlier?
Regards



G. N. Rao.

Hyderabad, India
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: MySql Nativa Transacciones. At. Mr. Rao

Posted: Sat Sep 18, 2021 05:10 PM

The only thing about transactions, the other thing is easy, someone else?

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: MySql Nativa Transacciones. At. Mr. Rao

Posted: Sun Sep 19, 2021 10:22 AM
Will be available in the next release.
Applies to execution of DML statements "INSERT,UPDATE,REPLACE,DELETE" directly using oCn:Execute() and to methods:
method Insert(...)
method Upsert(...)
method Update()

Implemented new
DATA lThrowError AS LOGICAL INIT .f.

Recommended usage:
Code (fw): Select all Collapse
  local lError := .f.
  oCn:BeginTransaction()
  oCn:lThrowError := .t.
  TRY
     oCn:Insert(....)
     oCn:Update(...)
     oCn:Execute( "INSERT ... " )
     ...
   CATCH
     lError := .t.
   END
   oCn:lThrowError := .f.
   if lError
      oCn:RollBack()
   else
      oCn:CommitTransaction()
   endif
Regards



G. N. Rao.

Hyderabad, India
Marcelo Roggeri
Posts: 344
Joined: Sat Jul 22, 2006 09:04 PM

Re: MySql Nativa Transacciones. At. Mr. Rao

Posted: Sun Sep 26, 2021 02:08 PM

Mr Rao, buenísimo muchas gracias es bueno saberlo
Funciona de las dos maneras.
Solo utilizo Harbour
Saludos

FWH - Harbour - BCC7 - PellesC

Continue the discussion

Static archive · New replies & topics via GitHub Discussions