F�rum ListBox #385939

09/09/2010

Boa tarde a todos. Tenho um formul�rio com um ListBox, quando marco mais de um �tem gostaria de:
Tenho uma senten�a SQL que roda em tempo de execu��o, ent�o tenho que verificar os �tens que foram marcados no listbox e adicion�-las nesta senten�a SQL.
obrigadoM�rcio

Marcio Oliveira

Curtir t�pico

+ 0

Responder

Posts

09/09/2010

Eriley Barbosa

for I := 0 to CheckListBox1.Count - 1 do
if CheckListBox1.State[i] = cbChecked then ShowMessage('Fa�a algo com ' + checklistbox1.Items[i]);

Responder

Gostei + 0

09/09/2010

Marcio Oliveira

Obrigado pela ajuda, deixa eu tentar explicar melhor, ex:
No ListBox trago todos os clientes.Quando eu marcar os clientes 1 e 3, tem uma query que roda em tempo de execu��o, ex:
  query1.sql.text := 'SELECT * FROM CLIENTE';
  Ent�o tenho que pegar apenas os clientes 1 e 3.
para isso fa�o a seguinte verifica��o.
for I := 0 to CheckListBox1.Count - 1 doif CheckListBox1.State[i] = cbChecked thenbegin  query1.sql.text := query1.sql.text + 'AND COD_CLIENTE = AO QUE EST� NO checklistbox1.Items[i]);end;
ObrigadoM�rcio

for I := 0 to CheckListBox1.Count - 1 do
if CheckListBox1.State[i] = cbChecked then
ShowMessage('Fa�a algo com ' + checklistbox1.Items[i]);

Responder

Gostei + 0

09/09/2010

Eriley Barbosa

var Codigos: string; begin Codigos := ''; for I := 0 to CheckListBox1.Count - 1 do if CheckListBox1.State[i] = cbChecked then begin if codigos = '' then codigos := checklistbox1.Items[i]; else codigos := codigos + ',' + checklistbox1.Items[i]; query1.sql.text := query1.sql.text + 'AND COD_CLIENTE in (' + codigos + ')'; end;

Responder

Gostei + 0

10/09/2010

Eduardo Marcolongo

ERILEY, so uma corre��o se me permite e se vi bem (rsrsrs):
a linha:

query1.sql.text := query1.sql.text + 'AND COD_CLIENTE in (' + codigos + ')';

deveria estar fora do for, sen�o sempre vai colocar a mesma instru��o no sql.
Por exemplo:1.Passagem) sql.text = 'and cod_client in (codigo)';2.Passagem) sql.text = 'and cod_client in (codigo) and cod_client in (codigo) ';

Responder

Gostei + 0

10/09/2010

Eriley Barbosa

Sim, voc� tem raz�o.

Responder

Gostei + 0