Ir para conteúdo
Fórum Script Brasil
  • 0

[resolvido] Consulta Na Tabela


Eder

Pergunta

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 para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...