[intermediário] Criando buscas no BD

[Antharaz 4]

Requisitos para conseguir entender o tutorial:

 

1º - saber como configurar adoquery/connection e datasource

 

2º - ter um BD(canco de dados) aceitável pelo delphi

 

 

 

 

INÍCIO

 

 

Coloque um button, um edit, ADOQuery, um DataSource e um ADOConnection.

 

Configure cada um deles corretamente... (nesta parte suponho que saiba como configurá-los)

 

Coloque assim:

 

procedure TForm1.Button1Click(Sender: TObject);
var
a  :string;
begin

a := 'select * from NOME_DA_TABELA Where NOME_DA_COLUNA like+ quotedstr(edit1.text+'%') + 'order by NOME_DA_COLUNA';

with ADOQuery1 do
begin
 close;
 sql.clear;
 sql.add(a);
 open;
end;

end;

 

 

Vamos supor que a tabela se chama "Clientes" e a coluna da tabela onde você vai procurar se chama "Nome" , ficaria assim:

procedure TForm1.Button1Click(Sender: TObject);
var
a  :string;
begin

a := 'select * from Clientes Where Nome like+ quotedstr(edit1.text+'%') + 'order by Nome';

with ADOQuery1 do
begin
 close;
 sql.clear;
 sql.add(a);
 open;
end;

end;

 

 

Esta busca que coloquei acima só buscaria na coluna nome que começam com o que foi digitado, se quisesse buscar nomes que contém o que foi digitado, bastava colocar um '%' antes do edit1.text, ficando assim:

 

 

procedure TForm1.Button1Click(Sender: TObject);
var
a  :string;
begin

a := 'select * from Clientes Where Nome like'+ quotedstr('%'+edit1.text+'%') + 'order by Nome';

with ADOQuery1 do
begin
 close;
 sql.clear;
 sql.add(a);
 open;
end;

end;

 

 

Para ver que realmente funcionou adicione um dbgrid, coloque a datasource correspondente para ele e faça a busca.

 

 

Para entender mais sobre comandos SQL sugiro que estude mySQL.

 

E POR FAVOR, USEM ADOQUERY PARA REALIZAREM BUSCAS AO INVÉS DE UTILIZAR O ADO TABLE, CASO CONTRÁRIO RETORNARÁ UMA BUSCA MAIS LENTA!!!

Edited February 22, 2010 by Antharaz

[Pandá s2 0]

Deu para entender bastante mas...

 

Oq é BD??

[Dark Skyllen 7]

#Pandá s2

BD = Banco de Dados

#Topico

 

Ta bem simplesinho, mas ta de fácil compreensão. Também achei uns errinhos, bobos.

Você poderia explicar como fazer com mais de um parâmetro.

 

Um erro que vi, faltou fechar uma aspas simples:

a := 'select * from Clientes Where Nome like ' + ...

Faltou essa aspas simples...

 

Abraços,

Dark Skyllen

[Antharaz 4]

@Dark Skyllen

 

Obrigado por avisar sobre o erro...

 

^^

 

Não vou fazer mais tutos porque não tem quase ninguém aqui que se interesse por delphi =x

[Dark Skyllen 7]

Isso não se aplica somente a delphi, todas as áreas de programação são mortas.

Mas parar de postar não vai ajudar! Continue postando, pois mesmo que sejam poucos, ainda tem alguns que se interessam.

[haxyy 0]

Muito bom!