TMySql problem

[dutch]

Dear All,
I try to updae TMySql table but it doesn't work the data on MySql is not update. I

Code: Select all  Expand view

  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')
 

Thanks in advance for any help.
Dutch

[dutch]

Dear All,

I've got the problem now. It is ::save() or ::update(), because I check the odb1:rta_ooo is changed but it doesn't save data to MySql Server.

Have anyone face this problem?

Regards,
Dutch