Fórum Consulta com Table na medida que for digitando #478746
12/05/2014
0
Boa noite pessoal,
Alguem pode me informar o que tem de errado neste codigo?
table1.Filtered := False;
if (Edit1.Text <> '') then
begin
table1.Refresh;
table1.Filter := 'Numeros=' +QuotedStr(Edit1.text + '*');
table1.Filtered := True;
end;
tipo que no campo numeros do meu banco de dados e gravado uma sequencia de 10 numeros e quando eu começo a fazer a busca no edit ate os 2 primeiros digitos ele busca no terceiro digito que informo em diante não retorna nada.
Vinicius Campolina
Curtir tópico
+ 0Posts
13/05/2014
Wilton Júnior
query.close;
qujery.sql.clear;
query.sql.add('select * from tabela where campo like ' + quotedstr('%' + edit1.text + '%');
query.open;
dessa forma eu tenho certeza que vai funcionar e pelo que entendi vai ficar como vc quer.
Gostei + 0
13/05/2014
Vinicius Campolina
Bom mesmo mudando para query e colocando o codigo acima acontece a mesma coisa os dois primeiros digitos ele busca o restante não
Gostei + 0
13/05/2014
Ricardo
para query.sql.add('select * from tabela where campo like '+ quotedstr(edit1.text + '%');
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)