Сложная сортировка товаров с учетом вложенности категорий

[Zohei]

сейчас - msaccess.
Сразу сообщать не стал, потому что стоит вопрос о переносе базы на другую субд, из-за ее глючности..

3 таблицы выбрал потому что такая структура бд в интернет магазине, откуда все данные сливаются.

[Korben5E]

раз переносишь базу - бери ту, где можно делать Хранимые Процедуры и выбирать из них данные, в ХП можешь реализовать все что твоей душе угодно

судя по всему вашу базу надо перерабатывать....

[Аватар]

Для фиксированного (не более чем) небольшого числа уровней можно попробовать и без хранимой процедуры. Не отлаживал. varchar(30) предпологаемый тип category_name

SELECT P.product_name,
    CASE WHEN C1.Parent_Id=0 THEN C1.category_name
         WHEN C2.Parent_Id=0 THEN C2.category_name
         WHEN C3.Parent_Id=0 THEN C3.category_name
         ELSE C4.category_name END AS Name1,
    CASE WHEN C1.Parent_Id=0 THEN CAST(NULL AS varchar(30))
         WHEN C2.Parent_Id=0 THEN C1.category_name
         WHEN C3.Parent_Id=0 THEN C2.category_name
         ELSE C3.category_name END AS Name2,
    CASE WHEN C1.Parent_Id=0 THEN CAST(NULL AS varchar(30))
         WHEN C2.Parent_Id=0 THEN CAST(NULL AS varchar(30))
         WHEN C3.Parent_Id=0 THEN C1.category_name
         ELSE C2.category_name END AS Name3,
    CASE WHEN C1.Parent_Id=0 THEN CAST(NULL AS varchar(30))
         WHEN C2.Parent_Id=0 THEN CAST(NULL AS varchar(30))
         WHEN C3.Parent_Id=0 THEN CAST(NULL AS varchar(30))
         ELSE C1.category_name END AS Name4
  FROM Products P,Product_Category PC
    LEFT JOIN Categories C1 ON C1.category_id=PC.category_id
    LEFT JOIN Categories C2 ON C2.category_id=C1.parent_id
    LEFT JOIN Categories C3 ON C3.category_id=C2.parent_id
    LEFT JOIN Categories C4 ON C4.category_id=C3.parent_id
  WHERE PC.product_id=P.product_id
  ORDER BY 2,3,4,5,P.product_name

ADD В ACCESS проблема с CASE, можно попробовать с IIF

[Прик]

Проблема здесь очевидна.
При любом предложенном варианте запроса, сортируется окончательный результат.
Это и приводит к тому что сортировка происходит "не взирая" на вложенность.

В Аксессе, вроде бы нет ХП и поэтому сделать желаемую ТС сортировку на сервере невозможно. Т.е., придется сортировать на клиенте отдельно по каждому вложению.

Перейдя на MS SQL Server или Firebird можно сделать такую сортировку, но тоже не так и просто. В силу той же причины - сортировать нужно промежуточные результаты.

--------------- послесловие --------------
P.S. Если не мудрить, а сформировать TreeView с вложенными категориями и продукцией, то нужная сортировка произойдет автоматически.

[Zohei]

Большое спасибо всем за советы, мне они очень помогли

Аватар, С первой же секунды уперся в стену..
msaccess почему-то отказался делать сортировку по псевдонимам

Прик
Учитывая что ваша сортировка по убыванию, в последних двух строках август должен идти после сентября, но идея в общем-то ясна :

P.S. Если не мудрить, а сформировать TreeView с вложенными категориями и продукцией, то нужная сортировка произойдет автоматоматически.

? подробнее пожалуйста)
Дерево есть. Клиент как раз захотел добавить пункт меню "Все категории", по нажатию на который, товары в таблице повторили структуру меню

[Прик]

Здесь я несколько не прав.

[Zohei]

путаница в терминах...
под меню подразумевается TreeView

[Прик]

При формировании пунктов TreeView применяется тот же механизм отделения одного вложенного уровня от другого. И конечно, через рекурсивный вызов.
Вот, например, как сделано в одном из проектов (для Firebird):

procedure TForm3.FormCreate(Sender: TObject);
var
  TN : TTreeNode;

  procedure FillNode(aTN : TTreeNode; IDN : Integer);
  var
    TN : TTreeNode;
    qr: TIBQuery;
  begin
    qr := TIBQuery.Create(Self);
    qr.Database := DM.IBDatabase1;
    try
      qr.SQL.Text := 'select * from catalog where IDParent = '+IntToStr(IDN);
      qr.Open;
      while not qr.Eof do begin
        TN := Tree.Items.AddChildObject(aTN, qr.FieldValues['Name'],
                               TObject(qr.FieldByName('ID').AsInteger));
        FillNode(TN, qr.FieldValues['ID']);
        qr.Next;
      end;
    finally
      qr.Close;
      qr.Free;
    end;
  end;

begin
  DM.qrTree.SQL.Text := 'select * from catalog where IDParent = 0';
  DM.qrTree.Open;
  while not DM.qrTree.Eof do begin
    TN := Tree.Items.AddObject(nil, DM.qrTree.FieldValues['Name'],
                          TObject(DM.qrTree.FieldByName('ID').AsInteger));
    FillNode(TN, DM.qrTree.FieldValues['ID']);
    DM.qrTree.Next;
  end;
  DM.qrTree.Transaction.Commit;
  DM.qrTree.Close;
end;

[Zohei]

удалено...

[Прик]

Самое простое: после загрузки в TreeView (пример см. пост 18) "дернуть" свойство SortType. Отсортируется как надо.

begin
  Tree.SortType := stNone;
  ...
  Tree.SortType := stText;
end;