Criar Uma Busca... (Resolvido)

[nightmare]

Estou querendo criar um agenda telefônica com nome e telefone somento (bem simples), criei um botão buscar e abre um novo form, como faço para esse form fazer um busca no banco de dados através de um edit e um botão buscar????

banco de dados access, conexão ADO e delphi 7

[Progr'amador]

Ola,

você pode usar o comando locate, tipo assim:

ADOQuery1.Locate('Nome_do_campo',Edit1.text,[LoPartialKey]);

Abs. Progr'amador.

[nightmare]

Mas se eu quiser selecionar o campo da tabela através de um DBComboBox, como faço????????

o nome dos campos são:

Nome

Rua

Número

Complemento

RG

CPF

[Progr'amador]

bom usando o combobox, ficaria tipo assim:

if ComboBox1.text = 'Nome' then
   ADOQuery1.Locate('Nome',Edit1.text,[LoPartialKey])
else if ComboBox1.text = 'Rua' then
   ADOQuery1.Locate('Rua',Edit1.text,[LoPartialKey])
else if ComboBox1.text = 'Numero' then
   ADOQuery1.Locate('Numero',Edit1.text,[LoCaseInsensitive])
else if ComboBox1.text = 'Complemento' then
   ADOQuery1.Locate('Complemento',Edit1.text,[LoPartialKey])
else if ComboBox1.text = 'RG' then
   ADOQuery1.Locate('RG',Edit1.text,[LoCaseInsensitive])
else if ComboBox1.text = 'CPF' then
   ADOQuery1.Locate('CPF',Edit1.text,[LoCaseInsensitive]);

pode usar assim tambem:

ADOQuery1.Locate('Nome_Campo',Edit1.text,[]);

Abs. Progr'amador

[Alessandro]

Coloque dois objetos no Form: ADOQuery1 e DataSource1

* Na query, linke o ADOConnection na propriedade Connection.

* No dataSource, like a Query.

No evento onClick do botão coloque o seguinte código :

ADOQuery1.close;
ADOQuery1.SQL.Add('SELECT * FROM Tabela WHERE Nome =:buscaNome LIKE ' + #39 + '%' + Edit1.Text + '%' + #39);
ADO.Query1.SQL.Open;

<!----------------------------ou usando parametros------------------------->

ADOQuery1.close;
ADOQuery1.SQL.Add('SELECT * FROM Tabela WHERE Codigo =:buscaCodigo'); 
ADO.Query1.Parameters.ParamByName('buscaCodigo').Value := #39+'%'+Edit1.Text+'%'+#39;
ADO.Query1.SQL.Open;

Farô

[nightmare]

valeu programador e alessandro, problema resolvido

[Progr'amador]

Coloque dois objetos no Form: ADOQuery1 e DataSource1

* Na query, linke o ADOConnection na propriedade Connection.

* No dataSource, like a Query.

No evento onClick do botão coloque o seguinte código :

ADOQuery1.close;
ADOQuery1.SQL.Add('SELECT * FROM Tabela WHERE Nome =:buscaNome LIKE ' + #39 + '%' + Edit1.Text + '%' + #39);
ADO.Query1.SQL.Open;

<!----------------------------ou usando parametros------------------------->

ADOQuery1.close;
ADOQuery1.SQL.Add('SELECT * FROM Tabela WHERE Codigo =:buscaCodigo'); 
ADO.Query1.Parameters.ParamByName('buscaCodigo').Value := #39+'%'+Edit1.Text+'%'+#39;
ADO.Query1.SQL.Open;

Farô 

Ola Alessandro, acho que tem alguns errinhos no seu código , na verdade se for usando select seria assim:

ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Tabela WHERE Nome ' + #39 + '%' + Edit1.Text + '%' + #39);
ADO.Query1.SQL.Open;

usando parametros

ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Tabela WHERE Codigo = :buscaCodigo');
ADO.Query1.Parameters.ParamByName('buscaCodigo').Value := Edit1.Text;
ADO.Query1.SQL.Open;

Fechando...

Abs. Progr'amador.

[nightmare]

Kara, só uso esse forum por causa da capacidade das pessoas, aki nesse tópico por exemplo o alessandro e principalmente o programador apavoraram...

valeu galera............