Pesquisar por part do nome

Delphi

24/11/2003

Tenho que fazer uma pesquisa no meu Banco de Dados (Delphi 6) onde o usuário irá pesquisar o produto por parte do nome! Ex: Se ele colocar parafuso no nome deverá vir uma lista de todos os parafusos. Parafuso rosca grande, parafuso rosca inversa! etc...

Alguém poderia me ajudar a fazer essaconsulta?

Fiqum com Deus!


Leonardo Bonoto

Leonardo Bonoto

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

24/11/2003

Utilize uma query e o código:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´SELECT * FROM tabela WHERE produto LIKE ´+QuotedStr(Edit1.Text+´¬´));
Query1.Open;



GOSTEI 0
Leonardo Bonoto

Leonardo Bonoto

24/11/2003

Valeu Marcelo!

Muito obrigado!

Leonardo Bonoto!


GOSTEI 0
Leonardo Bonoto

Leonardo Bonoto

24/11/2003

Marcelo ,ou quem puder...

usei o sódigo

Query1.SQL.Add(´SELECT * FROM pecas.DB WHERE Desc_peca LIKE ´+ QuotedStr(ed.Text+´¬´));

O problema é que não aparece nada no DBgrid, só aparece quando tiro o Where e uso apenas SELECT * FROM pecas.DB .

O que esta faltando eu fazer?

Abraços
Fiquem com Deus!


GOSTEI 0
Joefferson

Joefferson

24/11/2003

q banco vc ta usando?, se for access acho que tu tem q trocar o ¬ por * , se for sql server ou interbase ou mysql, parece q eh ¬ mesmo. se mesmo assim nao aparecer nada olha se nao tem nada na tabela ou se nao tem nenhum nome q comece com parafuso.
Valew!!!


GOSTEI 0
Luizfernando777

Luizfernando777

24/11/2003

você também pode fazer assim:
with SQLLista do
begin
Close;
SQL.Clear;
SQL.Add(´ Select * from Pecas ´);
SQL.Add(´ Where ( NomePeca like :vPeca ) ´);
SQL.Add(´ Order by NomePeca ´);
ParamByName(´vPeca´).Value := ´¬´ + Edit1.Text + ´¬´;
Prepare;
Open;
end;
´É a mesma coisa que o nosso colega fez´

Agora se vc estiver usando Table,
tb pode fazer o seguinte:
na propriedade OnChance do Edit COLOCAR:
Table1.FindNearest([Edit1.Text]);
mas o Indice deve ser do campo que esta sendo
pesquisado


GOSTEI 0
POSTAR