FiveTech Software tech support forums

Code: Select all  Expand view

  cWhere    := oBD:ApplyParams("WHERE esc.cemp = ? ", { "018"})
   oRS   := oBD:Query( "SELECT * FROM esocial AS esc ? ORDER BY data,hora", { cWhere } )

   oRs:status := 3
   oRs:Save()

28/03/2018 13:54:00: FWMARIACONNECTION:EXECUTE_SQL( 5369 ) CallStack() = " <- FWMARIACONNECTION:EXECUTE(5609) <- FWMARIAROWSET:RESYNC(3380) <- FWMARIAROWSET:EDITBASERECORD(4186) <- (b)SFP213(72) <- TBUTTONBMP:CLICK(179)" cSql = "SELECT * FROM esocial AS esc WHERE `esc`.`CEMP` = '018' AND `esc`.`DATA` = '2018-03-28' AND `esc`.`HORA` = '10:46WHERE esc.cemp = '018' 3' AND `esc`.`TIPO` = 'S1030' AND `esc`.`CAMPO` = '10200513' AND ( esc.cemp = '018' ) ORDER BY data,hora" uRet = ::nError = 1064 ::cError = "You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '018' 3' AND `esc`.`TIPO` = 'S1030' AND `esc`.`CAMPO` = '10200513' AND ( esc.cem' at line 1" ::cSqlInfo = ""

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local oCn, oRs, cWhere
   local cLog  := cFileSetExt( ExeName(), "log" )
   
   oCn      := FW_DemoDB()

   oCn:lLogErr := .t.

   cWhere   := oCn:ApplyParams( "WHERE state = ?", { "NY" } )
   oRs      := oCn:RowSet( "SELECT * FROM customer ? ORDER BY city", { cWhere } )

   ? oRs:age
   oRs:age  += 1
   oRs:Save()
   ? oRs:age

   oRs:Close()
   oCn:Close()

   if File( cLog )
      WinExec( "notepad.exe " + cLog )
   endif

return nil

Code: Select all  Expand view

#include "fivewin.ch"

FUNCTION Main()

   local oCn, oRs, cWhere,oBrw,oDlg,cSql
   local cLog  := cFileSetExt( ExeName(), "log" )

   oCn      := FW_DemoDB()

   oCn:lLogErr := .t.

   cWhere   := oCn:ApplyParams("WHERE esc.cemp = ? ", { "018"})
   cSql     := "SELECT * FROM esocial AS esc ? ORDER BY data,hora"
   oRs      := oCn:RowSet( cSql,  { cWhere } )

   IF oRs == nil
      ? "Failed to open rowset"
   ELSE
      ? oRs:Source, oRs:aParams[ 1 ], oRs:cResyncSQL

      DEFINE DIALOG oDlg SIZE 800,400 PIXEL TRUEPIXEL
         @ 60,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg DATASOURCE oRs AUTOCOLS AUTOSORT NOBORDER
         oBrw:CreateFromCode()

         @ 20,20 BUTTON "TEST" SIZE 100,30 PIXEL OF oDlg ;
            ACTION oRs:EditBaseRecord(NIL,.F.,{|oRec| TestSave(oRec)},oBrw)

      ACTIVATE DIALOG oDlg CENTERED

   ENDIF

   oRs:Close()
   oCn:Close()

   ? "done"

   IF File( cLog )
      WinExec( "notepad.exe " + cLog )
   ENDIF

RETURN nil

STATIC FUNCTION TestSave(oRec)

      if oRec:status == 3
         oRec:status := 2
      else
         oRec:status := 3
      endif

      MsgRun( "Saving", "Wait", { || oRec:Save() } )

RETURN .T.

 

05/03/18 14:31:41: FWMARIACONNECTION:EXECUTE_SQL( 5369 ) CallStack() = " <- FWMARIACONNECTION:EXECUTE(5609) <- FWMARIAROWSET:RESYNC(3380) <- FWMARIAROWSET:EDITBASERECORD(4186) <- (b)MAIN(54) <- TBUTTON:CLICK(179)" cSql = "SELECT * FROM esocial AS esc WHERE `esc`.`CEMP` = '018' AND `esc`.`DATA` = '2018-02-26' AND `esc`.`HORA` = '11:36WHERE esc.cemp = '018' 8' AND `esc`.`TIPO` = 'S1010' AND `esc`.`CAMPO` = '005' AND ( esc.cemp = '018' ) ORDER BY data,hora" uRet = ::nError = 1064 ::cError = "You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '018' 8' AND `esc`.`TIPO` = 'S1010' AND `esc`.`CAMPO` = '005' AND ( esc.cemp = '' at line 1" ::cSqlInfo = ""

Code: Select all  Expand view

  cWhere   := oCn:ApplyParams("WHERE esc.cemp = ? ", { "018"})
   cSql     := "SELECT * FROM esocial AS esc ? ORDER BY data,hora"
   oRs      := oCn:RowSet( cSql,  { cWhere } )
 

Code: Select all  Expand view

  cWhere   := oCn:ApplyParams("WHERE esc.cemp = ? ", { "018"})
   cSql     := "SELECT * FROM esocial AS esc ? ORDER BY data,hora"
   cSql     := oCn:ApplyParams( cSql, { cWhere } )
   oRs      := oCn:RowSet( cSql )