Filtrar Dados Em Dbgrid

[Guest gringo]

Como eu faço para filtrar dados de uma tabela e mostrar em um DBGrid no Delphi 7 com conexão ADO?

Eu estou fazendo o seguinte:

Num form está o DBGrid (frmConsulta) e a tabela (tbEntradas). No outro form (frmPorCodigo) tem uma edit (txtCodigo), onde o usuário digita o código do produto, e um button (btnConsultar) onde coloco o seguinte:

- 1° verifico se o produto digitado existe na tabela, se não, dá mensagem de erro, se sim, continua;

- 2° Então coloco ainda no evento click do button:

frmConsulta.tbEntradas.FieldByName('Codigo').AsString:= txtCodigo.Text;

frmConsulta.tbEntradas.Filtered:= True;

frmConsulta.ShowModal;

Na hora de executar dá erro tipo assim: a tabela não está no modo insert ou edit. Já tentei colocar isso mas não deu do mesmo jeito. Onde está o erro?

[Wilton]

Seguinte, com isto:

frmConsulta.tbEntradas.FieldByName('Codigo').AsString:= txtCodigo.Text;

Você está atribuindo a valor de txtCodigo.Text no campo Codigo de tbEntradas. Por isso está dando esse erro. porque a tabela não está em modo de edição ou inserção. Faça assim:

frmConsulta.tbEntradas.Filter:= 'Codigo='+QuotedStr(txtCodigo.Text);
frmConsulta.tbEntradas.Filtered:= True;
frmConsulta.ShowModal;