Проблемы с формированием SQL-запроса

[Nigadyai]

Здравствуйте, в общем пишу одну программку для работы а акцессовской БД.
в базе несколько таблиц-отделов, не связанных между собой. Пользователь с помощью комбобоксов производит выборку данных.
1) выбирает отдел, он выводится в DBGrid. Одновременно заполняю Items во втором комбобоксе (из заголовков столбцов таблицы).
2) далее нужно отфильтровать смену, при выборе смены у меня формируется следующий SQL-запрос:

procedure TAdminForm.ComboBox2Change(Sender: TObject);
begin
if Combobox2.Text='Все смены' then SMENA:='*' else
begin
SMENA:=Combobox2.Text;
    with ADOQuery1 do begin
    SQL.Clear;
    SQL.Add('SELECT');
    SQL.Add('Data, '+SMENA);
    SQL.Add('FROM '+OTDEL);
    SQL.Add('ORDER BY Data, '+SMENA);
    Open;
    Close;
    SQL.Clear;
    end;
end;
end;

OTDEL,SMENA - string есстественно
Здесь то вылетает ошибка:

Подскажите, в чем может быть ошибка? или есть какие-либо более простые способы фильтрации данных? (всё это делаю, так как нужно автоматом получать список таблиц в БД и количество смен в них)

[artemavd]

далее нужно отфильтровать смену

То есть Вам нужно расположить записи в порядке возрастания?

SQL.Add('ORDER BY Data, '+SMENA);

А зачем Вы пишите

, '+SMENA

?

P.S. Не забывайте про QuotedStr. Не знаю как Access к ней относится, но лучше заключать текстовые имена полей в кавычки.

[Stilet]

но лучше заключать текстовые имена полей в кавычки.

Это еще что за финт?
Имена полей да и в принципе обьектов в микрософтовских СУБД заключаются в [] (брекеты короче, не знаю как они правильно называются)

в чем может быть ошибка?

Ну вообще-то не рекомендуется в названии обьекта первым символом число ставить. Как минимум заключай имя поля поля в []

[Serge_Bliznykov]

1) не будет вообще ничего выбираться, если выбрать в ComboBox2 - "Все смены" (надо после else убрать begin, ну и соответствующие ему end, разумеется)

2) 2_smena - это что?! Есть такое поле в таблице Сборка дверей ?!
дайте структуру таблицы?

3) в любом случае, если в имени таблицы (или в именах полей) есть пробелы (или другие "нехорошие" символы), тогда, как абсолютно правильно отметил Stilet, надо такие наименования заключать в квадратные скобки...

    SQL.Add('SELECT');
    SQL.Add('[Data], ['+SMENA+'] ');
    SQL.Add('FROM ['+OTDEL+']');
    SQL.Add('ORDER BY [Data], ['+SMENA+']');

4) а зачем после открытия запроса тут же его закрывать и очищать!?!?!? o_O!!!

5) для отладки ОЧЕНЬ помогает выдача запроса перед тем, как его выполнить (перед Open )

например, так:
Application.MessageBox(ADOQuery1.SQL.Text,'Debug', MB_OK);

[Nigadyai]

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

То есть Вам нужно расположить записи в порядке возрастания?

То есть мне нужно, чтобы в таблице осталась только Дата и выбранная в комбобоксе смена.

Ну вообще-то не рекомендуется в названии обьекта первым символом число ставить. Как минимум заключай имя поля поля в []

Хорошо, попробую

1) не будет вообще ничего выбираться, если выбрать в ComboBox2 - "Все смены" (надо после else убрать begin, ну и соответствующие ему end, разумеется)

да это понятно , просто хочу сначала со сменами разобраться

2) 2_smena - это что?! Есть такое поле в таблице Сборка дверей ?!
дайте структуру таблицы?

Ну на пальцах, так.
Файл БД в акцесс, в нем N-количество таблиц содержится (то есть Отделы). В каждом "отделе" есть поле дата и смены.
Data | 1_smena | 2_smena | ...
таким образом, в каждой таблице разное число смен.

вот так я получаю список смен в отделе.

procedure TAdminForm.ComboBox1Change(Sender: TObject);
var i: integer;
begin
case Combobox1.ItemIndex of
{Малярка}
0:  begin
      ADOTable1.Active:=false; ADOTable1.TableName:='Malyarka'; ADOTable1.Active:=true;

    end;
{Сборка дверей}
1:  begin
      ADOTable1.Active:=false; ADOTable1.TableName:='Dveri'; ADOTable1.Active:=true;

    end;
{Сборка Цех 1}
2:  begin
      ADOTable1.Active:=false; ADOTable1.TableName:='Sborka_Cex_1'; ADOTable1.Active:=true;

    end;
{Упаковка}
3:  begin
      ADOTable1.Active:=false; ADOTable1.TableName:='Ypakovka'; ADOTable1.Active:=true;

    end;
{Цех 1 Фрезеровка и Распиловка}
4:  begin
      ADOTable1.Active:=false; ADOTable1.TableName:='Cex_1_Frez_Raspil'; ADOTable1.Active:=true;

    end;
{Шпонировка}
5:  begin
      ADOTable1.Active:=false; ADOTable1.TableName:='Shponirovka'; ADOTable1.Active:=true;
    end;
end;
    OTDEL:=ADOTable1.TableName;
    Combobox2.Enabled:=True;
    Combobox2.Clear;
    Combobox2.Items.Add('Все смены');
    for i:=1 to DBGrid1.Columns.Count - 1 do begin
    ComboBox2.Items.Add(DBGrid1.Columns.Items[i].FieldName);
    end;
    ComboBox2.Text:=ComboBox2.Items.Strings[0];
end;

[Nigadyai]

в общем, подправил sql-запрос, вывел в мему.

SELECT
[Data], [2_smena]
FROM [Sborka_Cex_1]
ORDER BY [Data], [2_smena]

ошибок не вылетает, но и реакции у DBGrid никакой, как были все смены, так и остались.

вот, если что, скриншот самой формы.
http://imagehost.spark-media.ru/i/90...D89992E0C3.jpg

[Stilet]

как были все смены, так и остались.

А ты в Акцессе этот запрос прогони - что выдаст?

[Serge_Bliznykov]

исходники проекта + тестовая БД -> архив.
архив на любой файлообменник.
сюда ссылочку на скачивание.
Тогда можно предметно поговорить.

иначе только предположения...
DBGrid с каким компонентом связан? Если вытаскивали в DesignTime поля в этот компонент - удалите все поля (они будут заполняться в run-time)...

[Nigadyai]

А ты в Акцессе этот запрос прогони - что выдаст?

я в акцессе конечно не алё, нашел там тока мастер запросов...
http://imagehost.spark-media.ru/i/39...53C0D0938C.jpg

исходники проекта + тестовая БД -> архив.
архив на любой файлообменник.
сюда ссылочку на скачивание.
Тогда можно предметно поговорить.

да не вопрос, просто у вас в правилах написано, что только куски кода можно писать, нельзя выкладывать исходники)))
http://upwap.ru/781845 [600kb] рабочая директория C:\Цех
p.s. в 2010 пишу...

[mihali4]

реакции у DBGrid никакой, как были все смены, так и остались

Может, стоит попробовать добавить в запрос WHERE SMENA= [2_smena] ?
(или что-то в этом духе. Структурка такова, что запросы в ней делать - голову ломать...)