Jump to content
Fórum Script Brasil
  • 0

[resolvido] Consulta Na Tabela


Eder
 Share

Question

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

Link to comment
Share on other sites

5 answers to this question

Recommended Posts

  • 0
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

Link to comment
Share on other sites

  • 0

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

:(

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...