Sign in to follow this  
Guest Cássia Maia

Consulta A Tabela

Recommended Posts

olha cássia existem várias formas de você fazer isto, a mais simples de todas é o locate que é uma função do próprio table, é assim:

var proc:string; //variavel de pesquisa

proc:=inputbox('Localizar','Nome:', '');//abre um dialogo para o usuario digitar alguma coisa pra pesquisa, para usar esle comando você tem que adicionar a "uses" da "unit" a variável "Dialogs"

if not table.locate('nome_do_campo_a_ser_pesquisado', o_que_você_ta_pesquisando, [lopartialkey, locaseinsensitive] then showmessage ('Registro nõa encontrado');

lopartialkey: serve para você procurar por registros que começem com o que você digitou;

locaseinsensitive: não diferencia letras maiusculas de minusculas(se você não colocar este comando ele vai diferenciar);

ou você pode utilizar sql, mais se você tem conhecimentos básicos ainda eu recomento utilizar o codigo acima que é bem mais fácil de ser utilizado e é funcional, caso você queira realmente saber como faz em sql posta aí que eu te faço um exemplo

espero ter sido claro;

Share this post


Link to post
Share on other sites

por SQL é ótimo! hehe

Veja: Vamos utilizar o componente Query (ele e quem manipula a linguagem SQL) no D6 está na paleta BDE e deve ser usado com o DataSource que está na paleta DataAccess.

Coloque estes dois componentes no form e altere as propriedades:

Para a Query:

DataBaseName --> Local da tabela

Name: QryPesquisar

coloque um edit, um DBDrid ligado ao datasource que por sua vez esta ligado a query.

no evento: OnChange do edit você implementa o código:

With QryPesquisar do
begin
Close;
sql.add('Select * from TABELA where CAMPO ='+  edit1.text);
Open;
if IsEmpty then
ShowMessage('Sua pesquisa não obteve resultados');
end;
se você for pesuisar em um campo do tipo inteiro(integer) você deverá fazer a conversão de tipo:
With QryPesquisar do
begin
Close;
sql.add('Select * from TABELA where CODIGO ='+  StrToInt(edit1.text));
Open;
if IsEmpty then
ShowMessage('Sua pesquisa não obteve resultados');
end;

com SQL você pode fazer zilhoes de pesquisar no seu banco de dados, procura algo na net sobre a linguagem SQL.

ate mais, VAGNER

Share this post


Link to post
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
Reply to this topic...

×   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.

Sign in to follow this