Erro Pesquisa Dados no BD

[Fernando Souza]

Boa Noite!

Estou construindo meu primeiro Projeto sozinho e estou tendo várias dificuldades, e como sempres vocês estão me ajudando muito, então estou aki mais uma vez. Tenho um form, no qual chamo um outro com um DBGrid atravez de um botão. Criei uma rotina da seguinte forma:

procedure TfrmPesqPreco.bbtnPesqPrecoClick(Sender: TObject);
var
vNomeProd: String;
begin
vNomeProd:= InputBox('Pesquisa do Produto!','Digite Um Nome à ser Pesquisado','');
  If (vNomeProd='') then
    Begin
      ShowMessage('Digite um Nome à Ser Procurado');
    Exit;
  End;
  dm.tbPreco.IndexFieldNames:= 'Nome';
  dm.tbPreco.FindNearest([vNomeProd]);
  frmGradeListaPreco.Show;
end;

end.

Mas qd compilo da o seguinte erro(está na imagem seguinte)

http://www.imageuploading.com/ims/pic.php?...7W&i=111356

E olha já refiz as duas chaves (primária e secundária), mas não funcionou!

Fenando Souza

[marlonCampos]

O Link não Funciona.

[Eder Moraes]

{vNomeProd:= InputBox('Pesquisa do Produto!','Digite Um Nome à ser Pesquisado','');
  If (vNomeProd='') then
    Begin
      ShowMessage('Digite um Nome à Ser Procurado');
    Exit;
  End;}

//faça o seguinte:

procedure TForm1.Button1Click(Sender: TObject);
var aux : String;
begin
  aux := ''; //voce pode colocar um valor padrão
  if not InputQuery('Consulta...','Informe o nome:',aux) and (aux <> '') then exit;
  if dm.tbPreco.locate('campo',aux,[]) then //procura pelo nome exato
  {
    dm.tbPreco.locate('campo',aux,[loPartialKey,loCaseSensitive]);  
    procura por qualquer palavra iniciando por aux em maiuscula ou minuscula
    o FindNearest e o FindKey são usados para localizar registros indexados se você está usando o bde com o 
    paradox desista, mude seu projeto para firebird, interbase ou mysql. Isso é apenas um conselho.
  }
    frmGradeListaPreco.Show
  else 
    showmessage('Nome não encontrado');
end;

Editado Março 15, 2009 por Eder Moraes