[resolvido] Consulta Na Tabela

[Eder]

Ola..

eu tenho esta pequena consulta em cima da tabke(paradox)

Porem quando ela acha algo me mostra o proprio registro na tela....mas quando não acha não me retorna nada...

Eu gostaria que me retornasse pelo menos uma mensagem dizendo que nada foi encontrado.

o codigo que estou usando é este abaixo:

procedure TForm2.Action1Execute(Sender: TObject);

var

strnome : string; //F2 PESQUISA veiculos

begin

strnome := inputbox('xxxxxx - Pesquisa Veículos','Número da Placa: ', '');

table1.IndexFieldNames := 'placa';

table1.Cancel;

table1.FindNearest([strnome]);

table1.IndexFieldNames := '';

DbEdit2.SetFocus;

end;

se tiver alguma outra forma também agradeço.....mas teria que ser com Table.

muito Grato

[Guest --felipe --]

Ola..

eu tenho esta pequena consulta em cima da tabke(paradox)

Porem quando ela acha algo me mostra o proprio registro na tela....mas quando não acha não me retorna nada...

Eu gostaria que me retornasse pelo menos uma mensagem dizendo que nada foi encontrado.

o codigo que estou usando é este abaixo:

procedure TForm2.Action1Execute(Sender: TObject);

var

strnome : string; //F2 PESQUISA veiculos

begin

strnome := inputbox('xxxxxx - Pesquisa Veículos','Número da Placa: ', '');

table1.IndexFieldNames := 'placa';

table1.Cancel;

table1.FindNearest([strnome]);

table1.IndexFieldNames := '';

DbEdit2.SetFocus;

end;

se tiver alguma outra forma também agradeço.....mas teria que ser com Table.

muito Grato

bom não sei trabalhar com table

mas o que você poderia fazer é após a procura verificar se o valor do campo é nulo

se não for nulo você exibe a placa

se for exibe uma mensagem

algo assim:

if table1.field[0] = '' then messagedlg(Placa não encontrada!! Tente novamente!', mtInformation, [mbOk], 0);
else begin
   table1.IndexFieldNames := '';
   DbEdit2.SetFocus;
end;

abraço

[Pirambu!]

Cara dá uma olhada neste Post

[Eder]

if table1.field[0] = '' then messagedlg(Placa não encontrada!! Tente novamente!', mtInformation, [mbOk], 0);
else begin
   table1.IndexFieldNames := '';
   DbEdit2.SetFocus;
end;

R.:Felipe não deu certo!!

Cara dá uma olhada neste Post

R.: Este Post ta com problemas...não consigo acessar

:(

[Pirambu!]

proced...bitbtn1click..
var
x: string;
begin
x:='';
if inputquery('Procurar','NomeCampo',x) then
if not tabela1.Locate('NomeCampo',x,[])then
Showmessage('Campo pesquisado não Encotrada');
end;

Pronto!

[Eder]

valeu....carinha muito grato

:D