Filtro em Table
23/10/2010
0
tblEstabelecimento.Filter := 'NomeFantasia Like' + QuotedStr('%'+edtPesEstabelecimento.Text+'%');
tblEstabelecimento.Filtered := True; O que acontece, quando executo o filtro dá o seguinte erro: Perguntas? O filtro está errado? Esse erro tem alguma coisa a ver com BD? Estou usando Delphi 7 e Firebird 2.0 Wanderson Ramos
Wanderson Queiroz
Post mais votado
06/04/2015
tente
tblEstabelecimento.Filtered .Close
tblEstabelecimento.Filtered := False;
tblEstabelecimento.Filter := 'NomeFantasia LIKE ' + QuotedStr( '*' + edtPesEstabelecimento.Text + '*' );
tblEstabelecimento.Filtered := True;
tblEstabelecimento.Filtered.Open
Leandro Calixto
Mais Posts
23/10/2010
Rafael Ribeiro
Espero ter colcaborado.
Rafael
23/10/2010
Wanderson Queiroz
24/10/2010
Carlos Júnior
qyConsulta.Filter := ' nome like ' + QuotedStr('*' + BDEdit3.Text + '*');
qyConsulta.Filtered := true; Espero ter ajudado. Carlos.
25/10/2010
Wanderson Queiroz
Não sei o que está acontecendo, mas continua dando o mesmo erro. Só uma observação: Não estou usando DBEdit e sim Edit. Uso também Delphi 7 e Firebird 2.0.
Obrigado assim mesmo, por sua ajuda. Entendi bem sua explicação.
Wanderson Ramos
25/10/2010
Wilson Junior
tblEstabelecimento.Filtered := False; tblEstabelecimento.Filter := 'NomeFantasia LIKE ' + QuotedStr( '%' + edtPesEstabelecimento.Text + '%' ); tblEstabelecimento.Filtered := True;
Espero ter colaborado.
29/08/2013
Joao Souza..
Bom tenho uma tabela em Paradox chamada (TbPedLocal)
Nesta tabela tenho 3 campos (Emissao, Numero, NomCli)
estou fazendo ums fitros quando faço filtro pelo Numero ou pela data de emissao Funciona certinho
mas quando tento fazer o filtro pelo Nome aproxinado do cliente nao funciona
estou fezendo desta forma
Dm.TbPedLocal.Close;
Dm.TbPedLocal.Filtered := False;
If (Rg_PesqOrca.ItemIndex=1) Then Dm.TbPedLocal.Filter := Emissao>= + QuotedStr(Mke_data_Ini.Text) + and Emissao = + QuotedStr(Mke_NumOrca.Text); (FUNCIONA CERTINHO)
If (Rg_PesqOrca.ItemIndex=3) Then Dm.TbPedLocal.Filter := NomCli LIKE + QuotedStr(Ed_NomCLie.Text + % ); (NAO FUNCIONA)
Dm.TbPedLocal.Filtered := True;
da errro
Operation Not aplication
29/08/2013
Joao Souza..
Bom tenho uma tabela em Paradox chamada (TbPedLocal)
Nesta tabela tenho 3 campos (Emissao, Numero, NomCli)
estou fazendo ums fitros quando faço filtro pelo Numero ou pela data de emissao Funciona certinho
mas quando tento fazer o filtro pelo Nome aproxinado do cliente nao funciona
estou fezendo desta forma
Dm.TbPedLocal.Close;
Dm.TbPedLocal.Filtered := False;
If (Rg_PesqOrca.ItemIndex=1) Then Dm.TbPedLocal.Filter := Emissao>= + QuotedStr(Mke_data_Ini.Text) + and Emissao = + QuotedStr(Mke_NumOrca.Text); (FUNCIONA CERTINHO)
If (Rg_PesqOrca.ItemIndex=3) Then Dm.TbPedLocal.Filter := NomCli LIKE + QuotedStr(Ed_NomCLie.Text + % ); (NAO FUNCIONA)
Dm.TbPedLocal.Filtered := True;
da errro
Operation Not aplication
29/08/2013
Joao Souza..
Bom tenho uma tabela em Paradox chamada (TbPedLocal)
Nesta tabela tenho 3 campos (Emissao, Numero, NomCli)
estou fazendo ums fitros quando faço filtro pelo Numero ou pela data de emissao Funciona certinho
mas quando tento fazer o filtro pelo Nome aproxinado do cliente nao funciona
estou fezendo desta forma
Dm.TbPedLocal.Close;
Dm.TbPedLocal.Filtered := False;
If (Rg_PesqOrca.ItemIndex=1) Then Dm.TbPedLocal.Filter := Emissao>= + QuotedStr(Mke_data_Ini.Text) + and Emissao = + QuotedStr(Mke_NumOrca.Text); (FUNCIONA CERTINHO)
If (Rg_PesqOrca.ItemIndex=3) Then Dm.TbPedLocal.Filter := NomCli LIKE + QuotedStr(Ed_NomCLie.Text + % ); (NAO FUNCIONA)
Dm.TbPedLocal.Filtered := True;
da errro
Operation Not aplication
29/08/2013
Joao Souza..
Bom tenho uma tabela em Paradox chamada (TbPedLocal)
Nesta tabela tenho 3 campos (Emissao, Numero, NomCli)
estou fazendo ums fitros quando faço filtro pelo Numero ou pela data de emissao Funciona certinho
mas quando tento fazer o filtro pelo Nome aproxinado do cliente nao funciona
estou fezendo desta forma
Dm.TbPedLocal.Close;
Dm.TbPedLocal.Filtered := False;
If (Rg_PesqOrca.ItemIndex=1) Then Dm.TbPedLocal.Filter := Emissao>= + QuotedStr(Mke_data_Ini.Text) + and Emissao = + QuotedStr(Mke_NumOrca.Text); (FUNCIONA CERTINHO)
If (Rg_PesqOrca.ItemIndex=3) Then Dm.TbPedLocal.Filter := NomCli LIKE + QuotedStr(Ed_NomCLie.Text + % ); (NAO FUNCIONA)
Dm.TbPedLocal.Filtered := True;
da errro
Operation Not aplication
03/09/2013
Lindemberg Cortez
Errado
Nome LIKE+quotedstr(...
Certo
Nome LIKE +quotedstr(...
03/09/2013
Deivison Melo
POsso finalizar o tópico?
06/04/2015
Wanderson Queiroz
Assim funcionou:
procedure TfrmEstabelecimento.edtPesEstabelecimentoKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
var Texto : String;
begin
If(Trim(edtPesEstabelecimento.Text) <> '') and (Key=VK_RETURN) Then
begin
Texto := edtPesEstabelecimento.Text+'*';
tblEstabelecimento.Filtered := False;
tblEstabelecimento.Filter := 'NomeFantasia = ' + QuotedStr(Texto);
tblEstabelecimento.Filtered := True;
frmEstabelecimento.FormShow(Sender);
end
Else
begin
If(Trim(edtPesEstabelecimento.Text) = '') and (Key=VK_RETURN) Then
tblEstabelecimento.Filtered := False;
frmEstabelecimento.FormShow(Sender);
end;
end;
Mesmo assim, muito obrigado por sua ajuda.
28/01/2020
Christian Santos
dmIFood.mtItensComplementos.Filter := Format('idsubgrupo like %s', [QuotedStr('%' + dmIFood.mtSubGrupoid.AsString + '%')]);
dmIFood.mtItensComplementos.Filtered := True;
23/07/2020
Vanessa Cruz
meuClientDataSet.Filtered := False; meuClientDataSet.Filter := ''''UPPER(NOME) LIKE (''''+ QuotedStr(trim(edtNome.Text) + ''''%'''') + '''')''''; //Busca todos os nomes que iniciem com o texto digitado. meuClientDataSet.Filtered := True;
Espero ter ajudado.
Clique aqui para fazer login e interagir na Comunidade :)