FiveTech Support Forums

   oServer:= TMySQLServer():New( cHost, cUser, cPass, cPort )
odb1:=oServer:Query("select * from rmty_avl")  
    n := 0
    cTlRec := strim(odb1:reccount())
    odb1:gotop()
    do while !odb1:eof()
        if RTA->(DbSeek( dtos(odb1:rta_date)+odb1:rta_rmty ))
        if odb1:rta_ooo <> RTA->RTA_OOO
                odb1:rta_ooo := RTA->RTA_OOO    // ****** This line is not update to MySql Table
                n++
            end
            if odb1:rta_occ <> RTA->RTA_OCC
                odb1:rta_occ := RTA->RTA_OCC    // ****** This line is not update to MySql Table
                n++
            end
            odb1:save()
        end
        oDlg:cMsg := "Record Update : "+ltrim(str(odb1:recno()))+"/"+cTlRec+" Completed"
      oDlg:Refresh()
      SysRefresh()
      
        odb1:skip()
    end

    CLOSEFILE('RTA')