fazer consulta usando edit no dbgrid - delphi

27/07/2018

3

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;
Responder

Post mais votado

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.
Responder

Mais Posts

30/07/2018

Lucas Araujo

Deu Certo, Muito Obrigado..
Responder

30/07/2018

Lucas Araujo

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)"

Responder

30/07/2018

Roberto Wutke

é 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.
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar