consulta no sqlquery

Delphi

22/04/2005

ola fiz a sequinte consulta:
DataModule1.sqlqcliente.Close;
DataModule1.sqlqcliente.SQL.Clear;
DataModule1.sqlqcliente.SQL.Add(´select NOME,´);
DataModule1.sqlqcliente.SQL.Add(´TELEFONE, E_MAIL from cliente´);
DataModule1.sqlqcliente.SQL.Add(´where NOME like ´´+edit1.Text+´¬´´);
DataModule1.sqlqcliente.Open;

so que não dá certo .
tem algo erra

agradeço pela ajuda

rafael


Radolpho

Radolpho

Curtidas 0

Respostas

Mysys

Mysys

22/04/2005

aparentemente esta correta ..

qual a mensagem de erro..??


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

22/04/2005

Colega,

Tente o seguinte:

DataModule1.sqlqcliente.SQL.Add(´where NOME like ´+QuotedStr(edit1.Text+´¬´));



GOSTEI 0
Radolpho

Radolpho

22/04/2005

ola

fiz o que você disse, não deu erro só que não mostrou os dados da tabela
mostrou todos

valeu


GOSTEI 0
Radolpho

Radolpho

22/04/2005

ola de novo

eu coloquei esse codigo

DataModule1.sqlqcliente.Close;
DataModule1.sqlqcliente.SQL.Clear;
DataModule1.sqlqcliente.SQL.Add(´select NOME,´);
DataModule1.sqlqcliente.SQL.Add(´TELEFONE, E_MAIL from cliente´);
DataModule1.sqlqcliente.SQL.Add(´where NOME like ´´+edit1.Text+´¬´´);
DataModule1.sqlqcliente.Open;

so que não dá certo, dá a seguinte menssagem:

´Column Unknown ´conteudo do edit1.text´¬´

oque é isso , me ajudem por favor , não consigo descubrir o erro

valeu


GOSTEI 0
Christian_adriano

Christian_adriano

22/04/2005

Olá colega ´radolpho´,

Tente o seguinte:


 with DataModule1.sqlqcliente do begin
   Close; 
   SQL.Clear; 
   SQL.Add(´select NOME,´); 
   SQL.Add(´TELEFONE, E_MAIL from CLIENTE´); 
   SQL.Add(´where upper(NOME) LIKE upper(:Valor)´); 
   ParamByName(´Valor´).asString := edit1.Text + ´¬´;
   Open; 
 end;


t+

Christian.


GOSTEI 0
Radolpho

Radolpho

22/04/2005

valeu pela ajuda christian_adriano

funcionou direitinho o programa

obrigado.


GOSTEI 0
POSTAR