ActiveDelphi

[topanoti]

bom dia...
Preciso fazer um select usando uma query, mas os parametros para o filtro tem q ser os items de um ListBox.
A query tem q ficar assim:

select * from c000025
WHERE codmarca IN ('000001', '000006','000004');

O Codigo que estou usando é esse:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
comandoSQL: String;
begin
comandoSQL:='';
for i := 0 to listbox1.items.count -1 do
begin
if comandoSQL = '' then
begin
// comandoSQL:= 'select * from c000025 where codmarca in ('+QuotedStr(listbox1.items.Strings[i])+')';
comandoSQL:= 'select * from c000025 where codmarca in('+QuotedStr(listbox1.items.Strings[i]);//+',';

//ShowMessage(comandoSQL)
end
else
begin
// comandoSQL:= comandoSQL+' codmarca ('+QuotedStr(listbox1.items.Strings[i])+',)';
comandoSQL:= comandoSQL+','+QuotedStr(listbox1.items.Strings[i]);//+',';

//ShowMessage(comandoSQL);
end;

end;
comandoSQL:= comandoSQL+ ')';
ShowMessage(comandoSQL);
zqry1.close;
zqry1.SQL.Clear;
zqry1.sql.add(comandoSQL);
zqry1.Open;
end;

Debugando o codigo, no shoumessage a query monta certinho, porem nao filtra.

Sera que alguem pode me dar uma força?
Obrigado!!!

[AndersonWorkInfo]

Eu vou te ajudar, mas preciso saber qual o BD você usa, qual é o campo para filtrar e qual o tipo do campo no caso se for integer é de um jeito se for varchar é de outro então coloca ai pra mim, e vou colocar a sua resposta no meu blog porque é muito comum essa pergunta.

[topanoti]

[AndersonWorkInfo]

Amigão,

A sua resposta está no meu blog, já que é uma pergunta comum coloquei lá, veja se ajuda.

http://andersonworkinfo.wordpress.com/2014/01/29/trabalhando-com-checklistbox-delphi/

Espero ter ajudado.

Abraço.

[topanoti]

[AndersonWorkInfo]

Se resolveu não esquece de colocar no Tópico [RESOLVIDO] para facilitar de saber se ainda precisa de ajuda ou não.

[topanoti]

[AndersonWorkInfo]

AQUI DENTRO NÃO PARCEIRO... NO TITULO DO SEU POST VOCÊ COLOCA ASSIM

QUERY [RESOLVIDO]

OK?

ABRAÇO
_________________
COLOQUE SEMPRE [RESOLVIDO] NO SEU TÓPICO