TCOMOBOX DELPHI

Delphi

22/09/2012

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

Curtidas 0

Respostas

Claudia Nogueira

Claudia Nogueira

22/09/2012

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?
GOSTEI 0
Wilton Júnior

Wilton Júnior

22/09/2012


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.
GOSTEI 0
Paulo

Paulo

22/09/2012

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
GOSTEI 0
Paulo

Paulo

22/09/2012

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.
GOSTEI 0
Paulo

Paulo

22/09/2012

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
GOSTEI 0
Claudia Nogueira

Claudia Nogueira

22/09/2012

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?
GOSTEI 0
Paulo

Paulo

22/09/2012

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.
GOSTEI 0
POSTAR