Fórum Delphi e Access #197885
29/11/2003
0
Estou querendo desenvolver um sistema utilizando o banco access e ADO só que não consigo fazer uma busca utilizando ADO.
Ex: Tenho um combobox onde tem Nome, Endereço, Bairro Cidade etc.
Ai eu quero fazer a busca por Nome, ai seleciono no combobox Nome e no edit1 digito o nome do cliente.
Se alguem puder me ajudar ficarei grato.
Ou se alguem souber onde encontrar um programa deste tipo com o código fonte vai me ajudar muito.
Desde já agradeço.
Meu email: jackell_alves@hotmail.com
Vitoreduardo
Curtir tópico
+ 0Posts
29/11/2003
Aroldo Zanela
No evento OnChage do TEdit você deve adicionar o código necessário para efetuar a busca. Por exemplo:
with CustTable do Locate(´Company;Contact;Phone´, VarArrayOf([´Sight Diver´, ´P´, ´408-431-1000´]), [loPartialKey]);
Gostei + 0
29/11/2003
Davidbezerra
Exemplo:
AdoQuery1.Locate(´NomeCliente´,Trim(Edit1.Text),[loCaseInsensitive,loPartialKey]);
sendo que:
Order By NomeCliente
quando quero filtrar (ter como resultado apenas o que satisfizer a consulta):
Exemplo:
Where NomeCliente BETWEEN :vNomeCli AND :vNomeCli;
Parameters.ParamByName(´vNomeCli´).Value := Trim(Edit1.Text);
esses codigos acima tem que ser montado na intrucao sql.
inte.
Gostei + 0
29/11/2003
Vitoreduardo
No evento OnChage do TEdit você deve adicionar o código necessário para efetuar a busca. Por exemplo:
with CustTable do Locate(´Company;Contact;Phone´, VarArrayOf([´Sight Diver´, ´P´, ´408-431-1000´]), [loPartialKey]);
Valeu este código resoveu meu problema.
Obrigado
Gostei + 0
29/11/2003
Vitoreduardo
Obrigado pelo código funcionou perfeitamente.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)