Consulta Não Funciona (Resolvido)

[rjcerri]

if edit1.Text <> '' then

begin

DataModulederma.ZQueryPadrao.SQL.Clear;

DataModulederma.ZQueryPadrao.SQL.Add('select * from padrão where codigo starting:cod order by codigo');

DataModulederma.ZQueryPadrao.ParamByName('cod').AsInteger:=strtoint(edit1.Text);

DataModulederma.ZQueryPadrao.Filtered:=true;

DataModulederma.ZQueryPadrao.Open;

end;

estou usando assim no evento onchange, fui fazer um teste com dois usuarios, gravei um produto e depois fui na tela de consulta na minha maquina, aparece mas na outra maquina ele não aparece, o outro usuario tem que sair totalmente do sistema e quando entra novamente o produto aparece na consulta, estou usando o componente Zeos, todas as minhas telas de consulta esta assim.

[Progr'amador]

Olá rjcerri,

tenta da um close antes do clear, assim:

DataModulederma.ZQueryPadrao.Close;

DataModulederma.ZQueryPadrao.SQL.Clear;

etc,

etc,

etc...

Abs. Progr'amador.

[rjcerri]

Obrigado pela dica, mas eu não estava Setando as transações como ReadCommited, agora esta funcionando.