O que está errado nesta consulta?!

Delphi

14/10/2003

fiz a seguinte consulta:
with Dm.Cliente do begin
close;
sql.clear;
sql.add(´select * from cliente where nome like ´+quotedstr(uppercase(edit1.text+´¬´)))
open;
end;
Funciona! Só que qdo eu clico no grid de resultados da consulta, fecha tudo. Se eu clico no Form, para fazer uma ou outra alterção, também some tudo. Durante a consulta vem o resultado da consulta, como deveria vir, porem se eu clico no Grid ou num DBEdit qualquer, a query se fecha. O mesmo acontece se usar o locate.
Neste programa uso D 6 com Paradox. O que será q tá errado? Para mim nada, porem...


Paulo

Paulo

Curtidas 0

Respostas

Paulo

Paulo

14/10/2003

Aida estou esperando respostas.


GOSTEI 0
Jeancamila

Jeancamila

14/10/2003

Para mim você deveria mudar a seguinte linha de comando:

sql.add(´select * from cliente where nome like
´+quotedstr(uppercase(edit1.text+´¬´)))


Para:

sql.add(´select * from cliente where nome like
quotedstr(uppercase(edit1.text))+quotedstr(¬)´)

Tente e me responda se deu certo ou não.

Jean


GOSTEI 0
Adilsond

Adilsond

14/10/2003

fiz a seguinte consulta:
Onde? qual evento? é chamada de que maneira ?

with Dm.Cliente do
  begin
    if Active then
       Close;
    SQL.Clear;
    SQL.Add(´select *´);
    SQL.Add(´from cliente´);
    SQL.Add(´where nome like ´ + QuotedStr(UpperCase(Edit1.Text) + ´¬´));
    Open;
  end;



GOSTEI 0
Paulo

Paulo

14/10/2003

Companheiros, fiz de tudo mas ainda continuo com o problema. Não sei mas o que fazer. Se eu fizer usando o método locate, também dá o mesmo problema. A consulta vem, mas se der um clique no DBGrid ou em qualquer DBEdit ou qualquer compo ligado ao datasource, fecha a query. A consulta está no OnExit do Edit.


GOSTEI 0
POSTAR