(Resolvido) Erro no MySQL

[Bettega]

Estou utilizando Delphi X6  / MySql 5  /  Zeos 7.2.6

Tenho esta rotina em um programa, e está funcionando perfeitamente.

zTable.Filter   := 'CODBANC = ''' + mBanco + ''' ';
zTable.Filtered := True ;
zTable.IndexFieldNames := 'PREVPARA, D_C, ID' ;
zTable.Open ;

mSaldo := 0 ;

zTable.First ;
while not zTable.eof do begin

  mSaldo := mSaldo + zTable.FieldByName ( 'VALORC' ).AsFloat -
                     zTable.FieldByName ( 'VALORD' ).AsFloat ;
  zTable.Edit ;
  zTable.FieldByName ( 'SALDO'  ).AsFloat := mSaldo ;
  zTable.ApplyUpdates ;

  zTable.Next ;

end;
zTable.Filtered := False ;
zTable.Close ;

Quando coloquei a mesma rotina em outro programa, recebo a seguinte mensagem:

0 record(s) updated. Only one record should have been updated.

Já tentei de tudo, mas não consigo resolver.

No Portal Zeos Lib, tem o seguinte:

For Zeos 7.2 please add the following line to your TZConnection.
Properties:
CLIENT_FOUND_ROWS=1
This will enable the CLIENT_FOUND_ROWS option which will change
the behaviour of MySQL according to the documentation in the link
https://dev.mysql.com/doc/refman/8.0/en/mysql-affected-rows.htm.

Não sei como fazer isto.

Obrigado.

 

[Jhonas]

Estou utilizando Delphi X6  / MySql 5  /  Zeos 7.2.6

Amigo se não estou enganado, para o delphi X6 voce deve usar a versão do Zeos 6.6

Se ainda assim não funcionar, baixe uma versão mais antiga do Zeos

abraço

[Bettega]

Jhonas, obrigado por sua resposta.

Consegui contornar o problema, verificando se os dados foram atualizados, e só então fazer o applyupdate. Se o problema persistir em outras rotinas vou tentar fazer o downgrade do Zeos.

Obrigado novamente.