fazer consulta usando edit no dbgrid - delphi

Delphi

Lógica de programação

27/07/2018

Boa tarde Galera, estou com um problema em um projeto, queria saber como faz consulta múltiplas com edit no dbgrid, eu consegui fazer consultar com um edit de cada vez, gostaria de saber como faz pra consultar os dois edit ao mesmo tempo, sendo que eles combine as informações.

a consulta esta assim:

 with ClientDataSet1 do
begin
    Filtered := False;
    Filter :=Label_busca1.Caption + 'Like' + UpperCase(QuotedStr(Edit_busca1.Text + '%'));
    Filtered := True;
    Open;
 end;
Lucas Araujo

Lucas Araujo

Curtidas 0

Melhor post

Roberto Wutke

Roberto Wutke

27/07/2018

só passar o valor do segundo edit após o seu uppercase, como se fosse uma continuação de um select, ficaria assim
with ClientDataSet1 do
begin
Filtered := False;
Filter :=Label_busca1.Caption + 'Like' + UpperCase(QuotedStr(Edit_busca1.Text + '%')) + ' AND ' + Label_busca2.Caption + 'Like' + UpperCase(QuotedStr(Edit_busca2.Text + '%')) ;
Filtered := True;
Open;
end;

E assim por diante.

Espero ter ajudado.
GOSTEI 1

Mais Respostas

Lucas Araujo

Lucas Araujo

27/07/2018

Deu Certo, Muito Obrigado..
GOSTEI 0
Lucas Araujo

Lucas Araujo

27/07/2018

Mais como fazer pra consultar sendo um campo Inteiro e outro string?
da a mensagem de erro "Could not convert variant of type (unicodeString) into type (integer)"

GOSTEI 0
Roberto Wutke

Roberto Wutke

27/07/2018

é só utilizar o editQueTemNumero.Text sem usar o Quotedstr, ai ele vai passar o valor sem aspas na variável e vai funcionar normalmente. Para testar, pega o SGDB e vai executando os filtros que queira, assim vc vai saber se precisa do QuotedStr ou não.

Espero ajudar.
GOSTEI 0
POSTAR