fazer consulta usando edit no dbgrid - delphi
27/07/2018
0
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:
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
Curtir tópico
+ 0
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.
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
Responder
Mais Posts
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)"
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.
Espero ajudar.
Responder
Clique aqui para fazer login e interagir na Comunidade :)