Fórum fazer consulta usando edit no dbgrid - delphi #595783

27/07/2018

0

Delphi Lógica de programação

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

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.

Roberto Wutke

Roberto Wutke
Responder

Gostei + 1

Mais Posts

30/07/2018

Lucas Araujo

Deu Certo, Muito Obrigado..
Responder

Gostei + 0

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

Gostei + 0

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

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar