Как сформировать запрос

[RDS2008]

Привет всем! У меня задача тут неразрешимая, мож кто подкинет идейку

Есть БД Access, в ней 10 таблиц с одинаковой структурой. На форме лежит CheckListBox с 10 строками (названия таблиц, но в удобоваримом виде, т.е. по русски). Что нужно: допустим пользователь выбирает одну или несколько таблиц (отмечает галочками в CheckListBox) и по нажатию кнопки формируем запрос по некоторому параметру (не важно какому) из тех и только из тех таблиц которые отмечены флажками. Я застрял на том что если пользователь выбрал 1 таблицу (поставил один флажок) то запрос будет один, а если выбрано сразу 7 таблиц - то запрос соответственно другой...подскажите какой нить вариант решения плиз...хоть намек никак не заборю

[ГОСЕАН]

а что должно выполняться? вычисление , отбор? сводный расчет?

[mihali4]

А что у вас за затруднения?
Пусть так:

tmp:='select * from ';
for i:=0 to CheckListBox1.Items.Count-1 do
begin
if CheckListBox1.Checked[i] then
begin
if tmp<>'select * from ' then
tmp:=tmp+', '+QuotedStr(имя [i]-й таблицы) else
tmp:=tmp+QuotedStr(имя [i]-й таблицы);
end;
end;
tmp:=tmp+' where ...';
//тут ваши условия (могут формироваться и ранее, с учетом выбранных таблиц)
Query.SQL.Text:=tmp;
Query.Open;

[RDS2008]

Сообщение от ГОСЕАН

а что должно выполняться? вычисление , отбор? сводный расчет?

Да нет, просто надо выводить содержимое отмеченных таблиц на печать, всего делов Но для того чтобы вывести данные в отчет нужен запрос...

[RDS2008]

Сообщение от mihali4

А что у вас за затруднения?
Пусть так:

tmp:='select * from ';
for i:=0 to CheckListBox1.Items.Count-1 do
begin
if CheckListBox1.Checked[i] then
begin
if tmp<>'select * from ' then
tmp:=tmp+', '+QuotedStr(имя [i]-й таблицы) else
tmp:=tmp+QuotedStr(имя [i]-й таблицы);
end;
end;
tmp:=tmp+' where ...';
//тут ваши условия (могут формироваться и ранее, с учетом выбранных таблиц
Query.SQL.Text:=tmp;
Query.Open;

так так, уже ближе
вот это немного не понятно >> QuotedStr(имя [i]-й таблицы)
В CheckListBox1 не хранятся имена таблиц так как в БД, т.е. в CheckListBox1 например первая строка "Марка телефона" а в БД соответствующая таблица называется Mark_Phone

[mihali4]

вот это немного не понятно

А вы совершите насилие над собой и заставьте себя заглянуть в хэлп...
Возможно, вы привыкли потреблять все разжеванным, но у нас и самостоятельно думать нужно...

В CheckListBox1 не хранятся имена таблиц так как в БД

Не дураки сидят...
Опять-таки - этот момент уж сами, пожалуйста...

[RDS2008]

Сообщение от mihali4

А вы совершите насилие над собой и заставьте себя заглянуть в хэлп...
Возможно, вы привыкли потреблять все разжеванным, но у нас и самостоятельно думать нужно...

Не дураки сидят...
Опять-таки - этот момент уж сами, пожалуйста...

Спасибо. Про QuotedStr я имел ввиду зачем здесь ее применять, ведь эта функция заключает строку в кавычки. Я прекрасно знаю что это за функция и хелпы читаю. Кавычки здесь не нужны.

Вообщем то я разобрался как сделать простой запрос, без where:

tmp:='select * from ';
for i:=0 to CheckListBox1.Items.Count-1 do
begin
if CheckListBox1.Checked[i] then
begin
if tmp<>'select * from ' then begin
tmp:=tmp+', '+TableArray[i];
end
else begin
tmp:=tmp+TableArray[i];
end;
end;
end;

Закатал все имена таблиц в массив TableArray, все нормально. Тока вот с where не получается пока. Если ее вставить после цикла то не получается обозначить таблицу (или несколько таблиц опять таки):
tmp:=tmp+' where '+TableArray[i] + '.ID=11';
т.к. значения для TableArray[i] мы получаем в зависимости от значения i. Потому как выставить условие надо для каждой таблицы

Значит надо впихнуть это в цикл, но куда?
Пока думаю. Есть мнения? Можно без разжевывания

[RDS2008]

Если сделать еще один цикл:

for i:=0 to CheckListBox1.Items.Count-1 do
begin
if CheckListBox1.Checked[i] then
begin
tmp:=tmp+ ' where ' +TableArray[i] + '.ID=11';
end;

то все получается с Where, но если талиц >1 то where пишется несколько раз:

'SELECT * FROM Table_1, Table_2 WHERE Table_1.ID=11 WHERE Table_2.ID=11'

Как бы убрать вторую и последующие where ...условие какое то надо придумать, думаю

[mihali4]

Советую все же обратить внимание на

if tmp<>'select * from ' then
tmp:=tmp+', '+QuotedStr(имя [i]-й таблицы) else
tmp:=tmp+QuotedStr(имя [i]-й таблицы);

Тогда и последние вопросы снимутся...

[Domovoy]

  tmp:=copy(tmp,1,PosEx('WHERE',tmp,PosEX('WHERE',tmp)+6)-1);

Вот таким вот не хитрым способом ты избывишся от 2,3,4...where