несколько выбранных элементов checklistbox в sql запрос

[kate158]

Привет!
Вопрос в следующем.
Есть checklistbox,БД (ms sql,ado).
Как сделать таким образом, что выбираешь насколько элементов в чеклистбоксе и они передаются как параметры в скл запрос.
Вот пример для одного выбранного элемента

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
var
ST:STRING;
i:integer;
begin
for i:=0 to CheckListBox1.Items.Count - 1 do
 if CheckListBox1.Checked[i] then
 begin
poisk.SQL.Clear; 
poisk.SQL.Add('select *');
poisk.SQL.Add('from mytest');
poisk.SQL.Add('where 0=0');
st:='and NUM_REP='+string(CheckListBox1.Items.Strings[i]);;
poisk.SQL.Add(st);
poisk.Open;
end;

, но как сделать если их несколько?Кто поможет?

[Stilet]

for i:=0 to CheckListBox1.Items.Count - 1 do
 if CheckListBox1.Checked[i] then
 begin
poisk.SQL.Clear; 
poisk.SQL.Add('select *');
poisk.SQL.Add('from mytest');
poisk.SQL.Add('where 0=0');
 st:='';
 if CheckListBox1.Checked[i] then 
  st:=st+' and NUM_REP='+CheckListBox1.Items[i];
poisk.SQL.Add(st);
poisk.Open;
end;

Но не проверял.

[kate158]

фух.Виталик, так не работает.
наверное нужно какнить типа..

' and NUM_REP in' +(здесь множество из чекнутых элементов)

[Stilet]

Так, Катюша,
Во-первых: Думаю тебе нужно заменить AND на OR ибо сам запрос бессмысленен. Не может одно значение быть одновременно другим.
Во-вторых: Я вот прикинул примерный запрос:

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
var
ST:STRING;
i:integer;
begin
  for i:=0 to CheckListBox1.Items.Count - 1 do
 if CheckListBox1.Checked[i] then
  st:=st+' or NUM_REP='+string(CheckListBox1.Items[i]);
st:='select * from ww where 0=0 '+st;
caption:=st;
end;

Обрати внимание на код.

В-третьих: Если ничего из этого не подойдет, дай помацать свой проект. Прикрепи его в РАРе сюда, и поглядим.

[kate158]

вот

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
var
s:STRING;
i,k:integer;
 begin
 k:=0;
 poisk.SQL.Clear; 
poisk.SQL.Add('select *');
poisk.SQL.Add('from mytest');
poisk.SQL.Add('where 0=0');
for i:=0 to CheckListBox1.Items.Count - 1 do
if CheckListBox1.Checked[i] then
begin
if k=0 then
poisk.SQL.Add('AND NUM_REP='+CheckListBox1.Items[i])
ELSE
poisk.SQL.Add('OR NUM_REP='+CheckListBox1.Items[i]);
k:=1;
END;
 poisk.Open;

В ОБЩЕМ, ВОТ РЕШЕНИЕ. ПОКА БЕЗ ОШИБОК.
СПАСИБО! :-*

[Stilet]

Вот так:

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
var
s:STRING;
i,k:integer;
 begin
 k:=0;
 poisk.SQL.Clear; 
poisk.SQL.Add('select * ');
poisk.SQL.Add(' from mytest ');

s:='';
for i:=0 to CheckListBox1.Items.Count - 1 do
if CheckListBox1.Checked[i] then
begin
 if k=0 then
  s:=s+(' NUM_REP='+CheckListBox1.Items[i])
 ELSE
  s:=s+(' OR NUM_REP='+CheckListBox1.Items[i]);
k:=1;
END;
if s<>'' then
poisk.SQL.Add(' where '+s);
 poisk.Open;

Смысл в том чоб набить эти условия в переменку, а потом проверять если в ней непусто то прибавить WHERE и пустить запрос.
Впрочем предидущее where 0=0 должно обезопасить...