Cadastro Delphi Acess+ADOConection+ADOTable

SQL

04/03/2014

SEGUINTE SOU INICIANTE EM DELPHI

TENHO UM FORMULÁRIO SIMPLES DE CADASTRO COM FOTO TA TUDO CERTO SÓ QUERIA
ADICIONAR UM CAMPO PRA PESQUISA AS PESSOAS CADASTRADAS TIPO:
SE FOR POSSESSÍVEL PESQUISAR TBM SOMENTE COM A INICIAL DO NOME E PUXAR TODOS NOMES COM AQUELA INICIAL.
BANCO DE DADOS É O ACESS.


NO EDIT1: NOME DA PESSOA OU LETRA INICIAL BUTON: PESQUISAR
DBGRID1=RESULTADO

MAIS OU MENOS ASSIM SOU BEM INICIANTE ENTÃO SE PUDER COLOCAR UM PASSO A PASSO OU QUE DE PRA MIM FAZER AQUI BLZ!
Alex Kovaleski

Alex Kovaleski

Curtidas 0

Respostas

Paulo Rodrigues

Paulo Rodrigues

04/03/2014

OLÁ ALEX

tem um exemplo simples, use o like, e não se esqueça do "%".

 AQusoitem.SQL.Clear;
 AQusoitem.SQL.Add('select * from titem, tbase, tcontrato, ttcusto, tusoitem');
 AQusoitem.SQL.Add('where tusoitem.contrato = tcontrato.cod');
 AQusoitem.SQL.Add('and tusoitem.custo = ttcusto.cod');
 AQusoitem.SQL.Add('and titem.contrato = tcontrato .cod');
 AQusoitem.SQL.Add('and titem.item = tusoitem.item');
 AQusoitem.SQL.Add('and titem.material = tbase.material');
 AQusoitem.SQL.Add('and tusoitem.contrato = :PARAM1');
 AQusoitem.SQL.Add('and tusoitem.custo = :PARAM2');
 AQusoitem.Parameters.ParamByName('PARAM1').Value := fos.AQgrid1.Fieldbyname('tcontrato.cod').value;
 AQusoitem.Parameters.ParamByName('PARAM2').Value := fos.AQgrid1.Fieldbyname('ttcusto.cod').value;
 AQusoitem.SQL.Add('and Tbase.texto like' + quotedstr(EDIT12.Text));
 AQusoitem.SQL.Add('order by Tbase.texto');
 AQusoitem.OPEN;
GOSTEI 0
Paulo Rodrigues

Paulo Rodrigues

04/03/2014

Mais um detalhe

Pode colocar o código no evento onchange do edit e se o dbgrid estiver setado com o adoquery correspondente, ele vai se atualizando à medida em que você digita.
GOSTEI 0
POSTAR