Сортировка БД

@Mr.Sandman · Регистрация: 19.12.2011

Студворк — интернет-сервис помощи студентам

Есть бд на основе IB. Использую обычный DBGrid.

В общем суть в том, что нужно осуществить сортировку туда-сюда.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TBDForm.gListTitleClick(Column: TColumn);
begin
   if flagSort = true then begin
     with q do begin
         Close;
         SQL.Clear;
         SQL.Add('SELECT * FROM auto_list');
         SQL.Add('ORDER BY  ' + Column.FieldName  );
         Active:=false;
         Open;
         flagSort := false;
         exit;
      end;
   end;
 
   if flagSort = false then begin
       with q do begin
         Close;
         SQL.Clear;
         SQL.Add('SELECT * FROM auto_list');
         SQL.Add('ORDER BY ' + Column.FieldName  );
         Active:=false;
         Open;
         flagSort := true;
         exit;
      end;
   end;
 
end;

Сортировка получается только туда, как осуществить в обратную сторону? (во втором условии IF)

@Артём121 · 11.07.2012, 14:13

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TBDForm.gListTitleClick(Column: TColumn);
begin
   if flagSort = true then begin
     with q do begin
         Close;
         SQL.Clear;
         SQL.Add('SELECT * FROM auto_list');
         SQL.Add('ORDER BY  ' + Column.FieldName  );
         Active:=false;
         Open;
         flagSort := false;
         exit;
      end;
   end;
 
   if flagSort = false then begin
       with q do begin
         Close;
         SQL.Clear;
         SQL.Add('SELECT * FROM auto_list');
         SQL.Add('ORDER BY ' + Column.FieldName  + ' DESC');
         Active:=false;
         Open;
         flagSort := true;
         exit;
      end;
   end;
 
end;

@Mr.Sandman · 11.07.2012, 14:15 **[ТС]**

Артём121, собственно так тоже пробовал, ошибка.
Dynamic sql error.

@Артём121 · 11.07.2012, 14:19

Ошибка где, в запросе или не сортирует ?

@Mr.Sandman · 11.07.2012, 14:21 **[ТС]**

Артём121, добавляя

Сообщение от Артём121

' DESC'

получаю DYNAMIC SQL ERROR в запросе. Ну собственно после ошибки он ничего и делать не жеает

@Bit_Man · 12.07.2012, 09:06

а если так Column.Field.Origin?

Delphi
1
2
3
4
5
6
7
8
9
q.Close;        
q.SQL.Strings[1] = 'ORDER BY  ' + Column.Field.Origin; //хотя и это должно работать Column.FieldName
if (flagSort = false) then 
 begin         
    flagSort := true;
    q.SQL.Strings[1] := q.SQL.Strings[1] + ' desc';
 end
else flagSort := false;
q.Open;

если на поканает смотри Название столбца

@Mr.Sandman · 12.07.2012, 10:11 **[ТС]**

Кому может интересно, проблему решил так:

Delphi
1
SQL.Add('ORDER BY ' + QuotedStr(Column.FieldName) + 'DESC');

@Bit_Man · 12.07.2012, 10:24

Название столбца возможно на русском или зарезервированное имя (которое лучше не исп.)

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Mr.Sandman 42 / 59 / 15 Регистрация: 19.12.2011 Сообщений: 552
	11.07.2012, 14:15 [ТС]
	Артём121, собственно так тоже пробовал, ошибка. Dynamic sql error. 0

@Артём121 66 / 65 / 13 Регистрация: 15.11.2010 Сообщений: 396 Записей в блоге: 1
	11.07.2012, 14:19
	Ошибка где, в запросе или не сортирует ? 0

@Bit_Man 480 / 393 / 113 Регистрация: 24.04.2012 Сообщений: 1,632 Записей в блоге: 3
	12.07.2012, 10:24
	Название столбца возможно на русском или зарезервированное имя (которое лучше не исп.) 0