DELPHI 2007, MYSQL 5.1.36 E ZEOS 7.0.0-dev

Delphi

06/07/2010

Boa noite pessoal

Não sei se estou colocando o post no local correto, caso esteje errado peço desculpas.

Estou passando por um problema, que não consegui resolver, gostaria de algumas opniões, bem é o seguinte.

Tenho no D2007 o componente Zeos 7.0.0 e o MYSQL 5.1.36, o que esta acontecendo é o seguinte:

Coloquei um grid, lendo de uma tabela cliente, e acima do grid coloquei um combo, onde apresenta alguns dados a serem filtrados nesta tabela cliente, e um botão para ativar o filtro escolhido pelo usuario, e coloquei o seguinte código neste botão:


procedure TfrmCadProtestos.Button1Click(Sender: TObject);
begin
  MainDM.qryProtestoNotificacao.Close;

  MainDM.qryProtestoNotificacao.SQL.Text := cQueryProtesto;

  if dbCliente.Values[dbCliente.ItemIndex] <> '0' then
  begin
    MainDM.qryProtestoNotificacao.SQL.Add('where id_cliente = :cliente' );
    MainDM.qryProtestoNotificacao.ParamByName('cliente').AsInteger:= StrtoInt(
                                                                              dbCliente.Values[dbCliente.ItemIndex] );

  end;

  MainDM.qryProtestoNotificacao.Open;

end;

Acontece que o grid não é atualizado, permanecendo com os mesmos dados, nada funcionou, andei fazendo umas pesquisas e seguindo algumas orientações dos colegas, como as seguinte:

No Componente ZConnection:
       ReadOnly = false
       TransactIsolationLeval = tiReadCommitted


No Compoente TZQuery:
       UpDateMode = umUpdateAll

E infelizmente não resolveu.

O que posso estar fazendo de errado?
Como corrigir este procedimento ?

Muito Obrigado pela ajuda.

Moisés Rotiman
  

Moises Rotiman

Moises Rotiman

Curtidas 0
POSTAR