Fórum sou iniciante e gostaria de pesquisar e selecionar produto no DBGRID #531719
15/09/2015
0
Estou criando um form para entrada de produtos, coloquei nele um dbgrid e criei um campo "nome produto" nesse campo eu busco meus produtos cadastrados.
No dbgrid já aparece todos os meus produtos, eu gostaria de filtrar os produtos, como faço ??
Estou usando um banco da dados access!!
Tiago Zappelini
Curtir tópico
+ 0Post mais votado
15/09/2015
https://www.devmedia.com.br/forum/filtro-em-tabela-paradox/531572
Fabio Cardoso
Gostei + 1
Mais Posts
15/09/2015
Allan
geralmente eu uso o seguinte
adiciono um componente Edit e no envento onchange coloco
[]
procedure TFrm.ValorCampoChange(Sender: TObject);
begin
Dm.Tab_produtos.Locate('Nome',ValorCampo.Text,[loCaseInsensitive, loPartialKey]);
end;
[]
Gostei + 1
15/09/2015
Tiago Zappelini
estou fazendo esta pesquisa em um dbgrid, pq estou buscando as informações em outra tabela,
tipo vou dar entrada em uma nota fiscal ai vou buscar o produto no meu cadastro de produto, qual clico em produto ele aparece a lista de todos os produtos cadastrados eu quero filtrar por exemplo só os que comecem com a letra A, conseguiu entender melhor?? desculpe minha ignorancia!!
Gostei + 0
15/09/2015
Raimundo Pereira
function SelectSQL(qry: TClientDataSet; Instr: String): Boolean; *
begin
Try
qry.Close;
qry.CommandText := Instr;
qry.Open;
Result := True
Except
Result := False
End; // Try
end;
Para Chamar a função
SelectSQL(ClientDataSet1, "select * from NOME_DA_SUA_TABELA where NOME_DO_CAMPO like " + QuotedStr (Edit1.Text + "%"))
Gostei + 1
15/09/2015
Tiago Zappelini
Gostei + 0
16/09/2015
Raimundo Pereira
{$R *.dfm}
//A função entra abaixo de {$R *.dfm}
//-----------------------------------------------------------------------------------------
function SelectSQL(qry:TClientDataSet; Instr: String): Boolean;
begin
Try
qry.Close;
qry.CommandText := Instr;
qry.Open;
Result := True
Except
Result := False
End; // Try
end;
-----------------------------------------------------------------------------------------------
Ao chamar a função >> Você pode adicionar no click de um button ou no event key press de algun edit
begin
SuaQuery.Close;
SelectSQL(SuaQuery, 'select * from NOME_DA_SUA_TABELA where NOME_DO_CAMPO like ' + QuotedStr (Edit1.Text + '%'));
SuaQuery.open;
end;
Testa ai .
Aguardo Retorno.
rcp@outlook.com.br
Whatz 71.93052489
Gostei + 0
16/09/2015
Ricardo Araujo
Query.Filtered := false;
Query.Filter := ' Nome_produto like ' + QuotedStr(Edit1.texte + '%');
Query.Filtered := true;
Deste jeito e o mais fácil que conheço.
espero te ajudado.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)