Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
 Аватар для Michalich
14 / 13 / 3
Регистрация: 31.08.2011
Сообщений: 531

Сортировать таблицу

27.12.2024, 16:10. Показов 1714. Ответов 12
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Сначало вывожу все строки в которых есть цифра 1

Delphi
1
2
3
4
5
6
7
with Produkt_Query do
 begin
  SQL.Clear;
SQL.Add('select * from PRODUKT where ID_RAZDEL = 1');
 
   Active:=True;
end;
Потом нужно отсортировать эти строки, но что то делаю не так

Delphi
1
2
3
4
5
6
with Produkt_Query do
 begin
  SQL.Clear;
SQL.Add('SELECT * FROM PRODUKT ORDER BY NAME_PRODUKT ' );
   Active:=True;
end;
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
27.12.2024, 16:10
Ответы с готовыми решениями:

Сортировать по годам
Как можно вывести всех детей из таблицы, которым меньше 6 лет, и для примера еще от 6 до 18.

Сортировать два поля город и фамилия
надо сортировать два поля город и фамилия .помогит пожалуйста написать код ну очень нужно проявите терпение

Сортировать по убыванию
вот мой код программы, как массив c отсортировать по убыванию? program Project2; {$APPTYPE CONSOLE} uses SysUtils; ...

12
Заблокирован
27.12.2024, 16:37
Лучший ответ Сообщение было отмечено Michalich как решение

Решение

если объединить фильтрацию и сортировку в одном запросе, результат будет лучше думаю:
Delphi
1
2
3
4
5
6
with Produkt_Query do
begin
  SQL.Clear;
  SQL.Add('SELECT * FROM PRODUKT WHERE ID_RAZDEL = 1 ORDER BY NAME_PRODUKT');
  Active := True;
end;
для обратной сортировки просто нужно черкнуть в обратном порядке...
Delphi
1
SQL.Add('SELECT * FROM PRODUKT WHERE ID_RAZDEL = 1 ORDER BY NAME_PRODUKT DESC');
1
 Аватар для Michalich
14 / 13 / 3
Регистрация: 31.08.2011
Сообщений: 531
27.12.2024, 18:33  [ТС]
Подскажите еще как сортировать по условию. Колонка ID_RAZDEL  имеет цифры, нужно вывести записи от 40 до 60
0
Заблокирован
27.12.2024, 18:47
Лучший ответ Сообщение было отмечено Michalich как решение

Решение

Delphi
1
2
3
4
5
6
with Produkt_Query do
begin
  SQL.Clear;
  SQL.Add('SELECT * FROM PRODUKT WHERE ID_RAZDEL BETWEEN 40 AND 60 ORDER BY NAME_PRODUKT');
  Active := True;
end;
если нужна в обратном порядке то...
Delphi
1
SQL.Add('SELECT * FROM PRODUKT WHERE ID_RAZDEL BETWEEN 40 AND 60 ORDER BY NAME_PRODUKT DESC');
1
 Аватар для Michalich
14 / 13 / 3
Регистрация: 31.08.2011
Сообщений: 531
27.12.2024, 19:52  [ТС]
И последний вопрос , проверить на дублирующие записи в текстовой колонке
0
Заблокирован
27.12.2024, 20:21
Лучший ответ Сообщение было отмечено Michalich как решение

Решение

Цитата Сообщение от Michalich Посмотреть сообщение
И последний вопрос , проверить на дублирующие записи в текстовой колонке
Можно решить несколькими методами, наверное так будет оптимально:
Delphi
1
2
3
4
5
6
7
8
9
with Produkt_Query do
begin
  SQL.Clear;
  SQL.Add('SELECT NAME_PRODUKT, COUNT(*) AS CountDuplicates');
  SQL.Add('FROM PRODUKT');
  SQL.Add('GROUP BY NAME_PRODUKT');
  SQL.Add('HAVING COUNT(*) > 1');
  Active := True;
end;
1
 Аватар для Michalich
14 / 13 / 3
Регистрация: 31.08.2011
Сообщений: 531
27.12.2024, 20:22  [ТС]
Огромное спасибо!
0
Заблокирован
27.12.2024, 20:37
Цитата Сообщение от Michalich Посмотреть сообщение
Огромное спасибо!
Вам тоже спасибо за оценки!
0
Модератор
 Аватар для D1973
9921 / 6457 / 2457
Регистрация: 21.01.2014
Сообщений: 27,405
Записей в блоге: 3
28.12.2024, 05:00
Цитата Сообщение от Michalich Посмотреть сообщение
Сначало вывожу все строки в которых есть цифра 1
Если задание с стартовом посте верно - тогда не верна реализация!. Сейчас Вы выводите только те записи, значение поля ID_RAZDEL которых равно 1. Понимаете разницу между понятиями равно 1 и содержит цифру 1?

Хотя... о чем я говорю-то. ТС, судя по всему, вообще не понимает разницы в понятиях цифра и число
Цитата Сообщение от Michalich Посмотреть сообщение
Колонка ID_RAZDEL  имеет цифры, нужно вывести записи от 40 до 60
1
 Аватар для Michalich
14 / 13 / 3
Регистрация: 31.08.2011
Сообщений: 531
28.12.2024, 09:01  [ТС]
Цитата Сообщение от D1973 Посмотреть сообщение
Хотя... о чем я говорю-то. ТС, судя по всему, вообще не понимает разницы в понятиях
Кты кто? Учитель? Маму свою жить учи. Перед тем как кому то грубить, узнай кому грубишь, учитель.

Добавлено через 9 минут
Цитата Сообщение от D1973 Посмотреть сообщение
Хотя... о чем я говорю-то. ТС, судя по всему, вообще не понимает разницы в понятиях
Чучело, на большее не способен

Добавлено через 38 секунд
На большее не способен
0
Модератор
 Аватар для D1973
9921 / 6457 / 2457
Регистрация: 21.01.2014
Сообщений: 27,405
Записей в блоге: 3
28.12.2024, 09:24
Цитата Сообщение от Michalich Посмотреть сообщение
Кты кто? Учитель? Маму свою жить учи.
Эк Вас бомбануло-то...
Цитата Сообщение от Michalich Посмотреть сообщение
Перед тем как кому то грубить
В отличие от Вас, грубости в моем сообщении нет - только констатация факта, основанная исключительно на Вашем сообщении. Что не так?
Тем более - это не первый случай и, точно, как тогда, вызывающий Вашу агрессию...
1
0 / 0 / 0
Регистрация: 07.09.2017
Сообщений: 24
02.01.2025, 17:06
Мне тоже резануло "содержит цифру 1".
Надо перевести в символ и по нему сортировать
0
Эксперт Pascal/Delphi
 Аватар для xxbesoxx
1135 / 616 / 129
Регистрация: 13.02.2009
Сообщений: 3,602
11.01.2025, 15:07
В таком случае почему не делать сортировка на самом GRID -е Сортировка, фильтрация и поиск. ADO
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
11.01.2025, 15:07
Помогаю со студенческими работами здесь

Сортировать строку
Нужно отсортировать едит1 по алфавиту и вывести в едит2 отсортированный вариант. Подскажите какими способами можно реализовать?

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

Как сортировать координаты?
1. На форму поместить N точек (каждая точка помещается на форму по нажатию левой кнопки мыши и имеет номер 1..N). Упорядочить точки по...

Как сортировать таблицы ?
Подскажи как сортировать Table в алфавитном порядке по разным колонкам?

Удалить дубли, но не сортировать
Попробовал удалить дубли так: var BuffEre:TStringList; begin Buffere:=TStringList.Create; Buffere.Sorted:=True; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Новые блоги и статьи
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru