Ajuda com Select

Delphi

12/02/2003

Gente eu tenho um programa de cadastro de cliente, uso ADO e o banco e acess.

Coloquei uma Adoquery1
coloquei a sua propriedade a seguinte no objecto inspector.

connection = datamodule1.adoconnection1 <-- este e o nome de minha conecção que esta em um datamodule1.

Datasource = datasouce1 <-- este e o nome de meu datasource1 que esta no meu form.

Depois coloquei um edit1.text e um button

no evento click do butom coloquei o seguinte..

ADOQuery1.active := false;
ADOQuery1.sql.clear;
ADOQuery1.sql.add(´select * from Cadclientes where Nome = ´´ + edit1.Text + ´´´);
ADOQuery1.active:= true;

mais quando clico no butom nada acontece alguem pode me dar uma dica de como fazer consulta pelo nome..


Uoquisala

Uoquisala

Curtidas 0

Respostas

Anonymous

Anonymous

12/02/2003

UOQUISALA,

Pesquisas por campo string (nome) devem ser acompanhadas de alguns cuidados:
- Verificar se os registros na tabela estão em caixa alta (Todas maiúsculas);
- Verificar se o tamanho do texto do edit é o mesmo do campo na tabela

Eu, quando preciso procurar por campos strings prefiro a instrução LIKE, pois me dá mais flexibilidade, por exemplo:

Exemplo1
SELECT * FROM CLIENTES WHERE ( UCASE(NM_CLI) LIKE ´+´´´´+UpperCase(Edit1.text)+´¬´+´´´´+´)´ //Traz todos os clientes que INICIEM por Edit1.text

Exemplo2
SELECT * FROM CLIENTES WHERE ( UCASE(NM_CLI) LIKE ´+´´´´+´¬´+UpperCase(Edit1.text)+´´´´+´)´ //Traz todos os clientes que TERMINEM por Edit1.text

Exemplo3
SELECT * FROM CLIENTES WHERE ( UCASE(NM_CLI) LIKE ´+´´´´+´¬´+UpperCase(Edit1.text)+´¬´+´´´´+´)´ //Traz todos os clientes que CONTENHAM Edit1.text

Espero ter ajudado...


GOSTEI 0
POSTAR