Update

Mostrare 4 formas de actualizar una tabla, activando y descactivando los errores internos de dolphin y ver la repercucion en este proceso

I'll show 4 ways to do Update, setting ON/Off dolphin's internal errors

To turn ON/OFF internal error in tdolp.mak change USE_INTERNAL YES/NO

Download with Internal Error ON
Download with Internal Error OFF

1) Method Update
Util para parametrizar la actualizacion, dejando a Dolphin crear la sentencia / Useful to custom Update and let Dolphin build sentence

   aColumns = { "Married", "Age", "salary", "Notes" }

   aValues = { .f., 40, 10, oQry:Notes }
   cWhere = "notes='" + oQry:Notes + "'"


   oServer:Update( "clientes", aColumns, aValues, cWhere )

Internal Error ON

Internal Error OFF

2) Build Sentence

Util para parametrizar la actualizacion, constuyendo la sentencia  / Useful to custom Update  build sentence your self

            cQry = "UPDATE clientes SET "

            FOR EACH cField IN aColumns

#ifdef __XHARBOUR__

               n = HB_EnumIndex()

#else                      

               n = cField:__EnumIndex() 

#endif 

               cValue   = ClipValue2SQL( aValues[ n ] )

               cQry += cField + " = " + cValue + ","

            NEXT             

            //Delete last comma 

            cQry = SubStr( cQry, 1, Len( cQry ) - 1 ) 

            cQry += " WHERE " + cWhere

            oServer:SqlQuery( cQry )       

            EXIT 

Internal Error ON

Internal Error OFF

3) Method Save
Util para guardar la edicion de un registro especifico / Useful to save record in edition mode 

            oQry:married = .T.
            oQry:age = 30
            oQry:salary = 20
            oQry:Save()

Internal Error ON

Internal Error OFF

4) Sentence UPDATE
Crear la sentencia Update / Build Update sentence

            cQry = "update clientes set "

            cQry += "married = 0,"

            cQry += "age = 40,"

            cQry += "salary = 10"

            cQry += " where " + cWhere

            oServer:SqlQuery( cQry )

Internal Error ON

Internal Error OFF