desenvolver botao localizar

[pips 0]

ola a tds por ai.....

tou a tentar desenvolver o botao localizar usando BD access....tentei usar o codigo k uso c o paradox:

var

vnome: string;

begin

vnome:= InputBox('digite', 'Nome', '');

if (vnome= '') then

begin

ShowMessage('digite um nome');

exit;

end;

dm.ADOTabforn.IndexFieldNames:= 'nome';

DM.ADOTabforn.findnearst([vnome]);

f_forn.show;

 

o programa nao executa, da uma msg do tipo adotable nao identifica(ou coisa do genero) "findnearst" comando....

gostaria de saber se ha alguma maneira de s desenvolver o botao localizar com exibição da BD no DBGrid tal e kal como acontece com o Paradox? se sim kal a melhor maneira?

 

brigado

[kelcv2008 0]

para resolver basta usar o locate. Veja como fica:

 

 

var

vnome: string;

begin

vnome:= InputBox('digite', 'Nome', '');

if (vnome= '') then

begin

ShowMessage('digite um nome');

exit;

end;

DM.ADOTabforn.Locate('nomedocampo', vnome,[lopartialkey, locaseinsensitive]);

f_forn.show;

 

 

usando o codigo

DM.ADOTabforn.Locate('nomedocampo', vnome,[lopartialkey, locaseinsensitive]);

ele faz uma parcial

para fazer uma busca exata basta fazer:

DM.ADOTabforn.Locate('nomedocampo', vnome,[]);