Fórum TCOMOBOX DELPHI #424397

22/09/2012

0

Delphi

eu gostaria de fazer uma pesquisa em minha tabela de cadastro de policiais militares pelo campo Posto/Graduação usando o COMOBOx.

meus campos são:

Nome
Rg
Posto/Graduação (dados deste campo são: CORONEL PM, SOLDADO PM, CABO PM, SARGENTO PM .ETC...)

EU QUERIA QUE QUANDO EU COLOCASSE NO CORONEL PM POR EXEMPLO APARECESSE TODOS OS CORONEIS CADASTRADOS EM MINHA DBGRID

ESTOU USANDO:

ADOConnection
ADOQuery
DataSource

Por gentileza me ajudem a configurar o Comobox
Paulo

Paulo

Responder

Posts

22/09/2012

Claudia Nogueira

No onClick do ComboBox:
  ADOQuery1.Close;
  if (ComboBox1.Text = '') then
    Exit;
  ADOQuery1.SQL.Text := 'SELECT * FROM tabela WHERE campo LIKE ' + QuotedStr(ComboBox1.Text);
  ADOQuery1.Open;


Qual BD você usa?
Responder

Gostei + 0

22/09/2012

Wilton Júnior


Pode ser assim se preferir da mesma forma:
With Query1 do
begin
Close;
sql.clear;
sql.add('SELECT * FROM tabela');
if ComboBox1.Text <> '' then
sql.add('WHERE campo LIKE ' + #39 + '%' + ComboBox1.Text + '%' + #39);
Open;
end;

E dessa forma pode por seu codigo em uma procedure sem necessidade de repiti-lo diversas vezes.

Espero ter ajudado.
Deus o abençoe.
Responder

Gostei + 0

22/09/2012

Paulo

No onClick do ComboBox:
  ADOQuery1.Close;
  if (ComboBox1.Text = '') then
    Exit;
  ADOQuery1.SQL.Text := 'SELECT * FROM tabela WHERE campo LIKE ' + QuotedStr(ComboBox1.Text);
  ADOQuery1.Open;


Qual BD você usa?


access

Obrigado! vc tem me ajudo muito
Responder

Gostei + 0

22/09/2012

Paulo

No onClick do ComboBox:
  ADOQuery1.Close;
  if (ComboBox1.Text = '') then
    Exit;
  ADOQuery1.SQL.Text := 'SELECT * FROM tabela WHERE campo LIKE ' + QuotedStr(ComboBox1.Text);
  ADOQuery1.Open;


Qual BD você usa?


Não aproveitando da sua generosidade, eu gostaria que vc me ensinaSSe a visualizar por ordem alf. em minha DBGRID,
PORQUE QUANDO EU CLIKO NA COMOBOX E SELECIONO POR EXEMPLO CORONEL PM, APARECE SIM TODOS OS CORONEIS MAIS NÃO EM ORDEM ALF. E SIM ALEATORIAMENTE COMO É NA PESQUISA POR NOME E RG QUE APARECEM POR ORD ALF.

VC ENTEDEU, EU NÃO ESTOU SABENDO EXPRESSAR BEM, POIS NÃO TENHO CONHECIMENTOS TECNICOS, MAIS DEIXA EU SIMPLIFICAR (QUANDO PESQUISO NA COMO QUERO QUE VISUALIZE EM ORD ALFABETICA.
Responder

Gostei + 0

22/09/2012

Paulo

No onClick do ComboBox:
  ADOQuery1.Close;
  if (ComboBox1.Text = '') then
    Exit;
  ADOQuery1.SQL.Text := 'SELECT * FROM tabela WHERE campo LIKE ' + QuotedStr(ComboBox1.Text);
  ADOQuery1.Open;


Qual BD você usa?


Não aproveitando da sua generosidade, eu gostaria que vc me ensinaSSe a visualizar por ordem alf. em minha DBGRID,
PORQUE QUANDO EU CLIKO NA COMOBOX E SELECIONO POR EXEMPLO CORONEL PM, APARECE SIM TODOS OS CORONEIS MAIS NÃO EM ORDEM ALF. E SIM ALEATORIAMENTE COMO É NA PESQUISA POR NOME E RG QUE APARECEM POR ORD ALF.

VC ENTEDEU, EU NÃO ESTOU SABENDO EXPRESSAR BEM, POIS NÃO TENHO CONHECIMENTOS TECNICOS, MAIS DEIXA EU SIMPLIFICAR (QUANDO PESQUISO NA COMO QUERO QUE VISUALIZE EM ORD ALFABETICA.





eu gostaria que vc me ensinasse tambem excluir só uma foto do cadastro pois para excluir a foto tem que excluir todo o registro na qual pertence aquela foto
Responder

Gostei + 0

22/09/2012

Claudia Nogueira

No onClick do ComboBox:
  ADOQuery1.Close;
  if (ComboBox1.Text = '') then
    Exit;
  ADOQuery1.SQL.Text := 'SELECT * FROM tabela WHERE campo LIKE ' + QuotedStr(ComboBox1.Text);
  ADOQuery1.Open;


Qual BD você usa?


Não aproveitando da sua generosidade, eu gostaria que vc me ensinaSSe a visualizar por ordem alf. em minha DBGRID,
PORQUE QUANDO EU CLIKO NA COMOBOX E SELECIONO POR EXEMPLO CORONEL PM, APARECE SIM TODOS OS CORONEIS MAIS NÃO EM ORDEM ALF. E SIM ALEATORIAMENTE COMO É NA PESQUISA POR NOME E RG QUE APARECEM POR ORD ALF.

VC ENTEDEU, EU NÃO ESTOU SABENDO EXPRESSAR BEM, POIS NÃO TENHO CONHECIMENTOS TECNICOS, MAIS DEIXA EU SIMPLIFICAR (QUANDO PESQUISO NA COMO QUERO QUE VISUALIZE EM ORD ALFABETICA.





eu gostaria que vc me ensinasse tambem excluir só uma foto do cadastro pois para excluir a foto tem que excluir todo o registro na qual pertence aquela foto


Sobre ordenar você tem que colocar o ORDER:


  ADOQuery1.Close;
  if (ComboBox1.Text = '') then
    Exit;
  ADOQuery1.SQL.Text := 'SELECT * FROM tabela WHERE campo LIKE ' + QuotedStr(ComboBox1.Text) + ' ORDER BY nome';
  ADOQuery1.Open;


Sobre excluir somente a foto, aí preciso de mais informações.
Você guarda a foto ou o caminho da foto no banco de dados?
Se for a foto, qual o tipo do campo no BD?
Responder

Gostei + 0

22/09/2012

Paulo

No onClick do ComboBox:
  ADOQuery1.Close;
  if (ComboBox1.Text = '') then
    Exit;
  ADOQuery1.SQL.Text := 'SELECT * FROM tabela WHERE campo LIKE ' + QuotedStr(ComboBox1.Text);
  ADOQuery1.Open;


Qual BD você usa?


Não aproveitando da sua generosidade, eu gostaria que vc me ensinaSSe a visualizar por ordem alf. em minha DBGRID,
PORQUE QUANDO EU CLIKO NA COMOBOX E SELECIONO POR EXEMPLO CORONEL PM, APARECE SIM TODOS OS CORONEIS MAIS NÃO EM ORDEM ALF. E SIM ALEATORIAMENTE COMO É NA PESQUISA POR NOME E RG QUE APARECEM POR ORD ALF.

VC ENTEDEU, EU NÃO ESTOU SABENDO EXPRESSAR BEM, POIS NÃO TENHO CONHECIMENTOS TECNICOS, MAIS DEIXA EU SIMPLIFICAR (QUANDO PESQUISO NA COMO QUERO QUE VISUALIZE EM ORD ALFABETICA.





eu gostaria que vc me ensinasse tambem excluir só uma foto do cadastro pois para excluir a foto tem que excluir todo o registro na qual pertence aquela foto


Sobre ordenar você tem que colocar o ORDER:


  ADOQuery1.Close;
  if (ComboBox1.Text = '') then
    Exit;
  ADOQuery1.SQL.Text := 'SELECT * FROM tabela WHERE campo LIKE ' + QuotedStr(ComboBox1.Text) + ' ORDER BY nome';
  ADOQuery1.Open;


Sobre excluir somente a foto, aí preciso de mais informações.
Você guarda a foto ou o caminho da foto no banco de dados?
Se for a foto, qual o tipo do campo no BD?


Guardo a foto no Campo Foto(Objeto OLE) no access.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar