Fórum Validação em DBGrid - TADOQUERY #207805

Caras, sei q o tópico ta extenso, sendo cansativo, chato,etc. mas nesse momento se faz necessário.

Estou desde Sexta-Feira tentando fazer, e não conseguindo, com a ajuda do Programador Marco Sales (a quem agradeço a atenção) uma exibição em DBGrid.

O quadro eh o seguinte: Tenho um Form de Entradas de Produtos, referenciando duas tabelas: TbMovimentos (Grava os dados da compra) e TbEntradas (Grava os itens q estão sendo comprados). Na tabela TbMovimentos tenho um campo CodMov, existente tambem na TbEntradas. Este campo serve para fazer a indexação dos itens com seu respectivo movimento. Certo até aí???
Bom, estou usando BASE DE DADOS MS ACCESS. Para fazer esta consulta tenho um TADOQUERY ligado a TbEntradas, um DATASOURCE ligado ao TADOQUERY e o DBGRID ligado ao DATASOURCE.

Na propriedade SQL do TADOQUERY tenho:

SELECT * FROM TbEntradas

Na Procedure de Consulta eu tinha:

procedure TFrmEntradasProdutos.Mostrar_Itens (Codigo: String);
begin
Try
QryItensNF.Close;
QryItensNF.SQL.Clear ;
QryItensNF.SQL.Add (´ SELECT * FROM TbEntradas Where = ´ + QuotedStr (Codigo));
QryItensNF.Open;


Except
On e:exception Do
begin
MessageDlg(´Erro ao localizar Registro!´ + #1310 + e.message,mterror,[mbok],0);
QryItensNF.Close ;
end;
End;

procedure TFrmEntradasProdutos.BtnAdicionarClick(Sender: TObject);
begin
Mostrar_Itens (EdtCodigo.Text);
end;

Deste jeito ele buscava todos os registros da TbEntradas, bastando para isso ser digitado um valor qualquer no EdtCodigo, independente se existisse o Codigo do Movimento (CodMov).
Por Ex: Todos os registros da TbEntradas tinham no campo CodMov o Valor 1. Se digitasse 2, ele buscava todos os registros, ou seja, ele não validava a condição. Com a ajuda do outro Programador fiz alterações na Procedure de Consulta:

procedure TFrmEntradasProdutos.Mostrar_Itens;
begin
Try
QryItensNF.Close;
QryItensNF.SQL.Clear ;
QryItensNF.SQL.Add (´ SELECT * FROM TbEntradas´);
QryItensNF.Sql.Add(´Where CodMov =: CodigoPesquisado´);
QryItensNF.ParamByName(´CodigoPesquisado´).asInteger:=StrToInt (EdtCodigo.Text);
QryItensNF.Prepare;
QryItensNF.Open;


Except
On e:exception Do
begin
MessageDlg(´Erro ao localizar Registro!´ + #1310 + e.message,mterror,[mbok],0);
QryItensNF.Close ;
end;
End;

end;

Para chamar a Procedure tenho:

procedure TFrmEntradasProdutos.BtnAdicionarClick(Sender: TObject);
begin
Mostrar_Itens;
end;

Ocorre q agora não copmpila. Esse codigo que ele me enviou creio que seja para trabalhar com TQUERY, só que tenho de trabalhar com TADOQUERY pois a BD eh MS Access. O erro que da eh q ele não reconhece o procedimento ´ParamByName´ tampouco ´Prepare´. É esse o dilema. Por que ta ocorrendo isso??? Posso ta falando bobagem mas será q não tem q haver alguma inclusão na clausula Uses??? Isso eh o q ta me parecendo.

Sempre obtive ajuda imprescindivel aqui, tenho certeza q vao me ajudar de novo!!!! :)


Valeu !!!

Desculpa a extensão do tópico!!!!