sou iniciante e gostaria de pesquisar e selecionar produto no DBGRID

Da uma olhada nesse tópico abaixo, vc vai fazer a mesma coisa que esta descrito la porem com o componente de acesso a dados do access. Caso você esteja usado bde para conexão e so fazer como esta descrito la no post que eu fiz.

https://www.devmedia.com.br/forum/filtro-em-tabela-paradox/531572

olá.. então..não sei se entendi bem... mas...

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;
[]

Allan,

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!!

Tiago de Oliveira Zappelini.


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

desculpe a minha ignorancia, mas esse comando eu coloco em qual lugar ???

implementation

{$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

você pode usar assim,

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.