Сортировка Paradox

@First · Регистрация: 09.06.2011

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

общем есть таблица парадокс в ней есть такие столбци fio, imy, otch, address, rojd, kurs, spec теперь вопрос как можно сделать сортировку по этим столбцам по выбору, тоесть по одному из них по какому мне к примеру захотелось - помогите плз

@First · 27.07.2011, 08:42 **[ТС]**

вот по воттакому выбору сортировка должна быть, как такое сделать можно

@SAMZ · 27.07.2011, 09:37

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

как можно сделать сортировку по этим столбцам по выбору

Зависит от того, какими объектами(компонентами) пользуетесь для доступа к данным и для отображения. Коль скоро у Вас парадокс, то сильно подозреваю, что используеть TTable и DBGrid сооьветственно. Если это так, то по полям, по которым надо сортировать записи, средствами паралокса создаете индексы. В приложении по определенному событию (выбор поля сортировки) в свойствах TTable подключаете нужный индекс. Это можно делать на открытой таблице.
Если паче чаяния вы пользуетк TQuery, то изменяете в запросе кляузу ORDER BY и переоткрываете запрос.
ЗЫ. И на хрена вам парадокс дался!!!

@harmless · 27.07.2011, 09:41

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

И на хрена вам парадокс дался!!!

Учат так в учебных заведения думается.

@First · 27.07.2011, 09:54 **[ТС]**

Да использую TTable, а с paradox'ом уже достали, есть ADO хорошая вещь

@MsGuns · 27.07.2011, 11:00

Используйте ADO для работы с парадоксом, там сортировка делается "штатным" средством (TCustomDataSet.Sort)

@First · 27.07.2011, 11:01 **[ТС]**

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

Используйте ADO для работы с парадоксом, там сортировка делается "штатным" средством (TCustomDataSet.Sort)

Примернро как это может выглядеть

@MsGuns · 27.07.2011, 11:27

Это выглядит как закладка "ADO" на палитре компонент

@First · 27.07.2011, 11:28 **[ТС]**

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

Это выглядит как закладка "ADO" на палитре компонент

я понимаю что и где она находится а кодом

@MsGuns · 27.07.2011, 11:37

Вам нужны:
1) TADOConnection - для соединения с БД (что-то вроде бидешной TDataBase), как составить строку соединения см. здесь http://www.connectionstrings.com/
2) TADODataSet - для выборки на клиент данный для отображения
3) TADOCommand - для посылки корректирующих запросов к БД

Главное: Основным "бабаем" для парадоксистов/дибэйщиков при переходе с "родного" (и глючного насквозь) BDE на клиент-серверные технологии, является SQL. Он видится им как
"Чудище обло, озорно, огромно, стозевно и лаяй" (с) На самом деле это не так. сиквель является одним из самых простых интуитивно понятных и, самое главное, популярным языком ! Его надо не бояться, с ним надо подружиться. И тогда этот стоглавый цербер станет для вас верным "Полканом" на долгие счастливые годы

))

@First · 27.07.2011, 11:50 **[ТС]**

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

Вам нужны:
1) TADOConnection - для соединения с БД (что-то вроде бидешной TDataBase), как составить строку соединения см. здесь http://www.connectionstrings.com/
2) TADODataSet - для выборки на клиент данный для отображения
3) TADOCommand - для посылки корректирующих запросов к БД

Главное: Основным "бабаем" для парадоксистов/дибэйщиков при переходе с "родного" (и глючного насквозь) BDE на клиент-серверные технологии, является SQL. Он видится им как
"Чудище обло, озорно, огромно, стозевно и лаяй" (с) На самом деле это не так. сиквель является одним из самых простых интуитивно понятных и, самое главное, популярным языком ! Его надо не бояться, с ним надо подружиться. И тогда этот стоглавый цербер станет для вас верным "Полканом" на долгие счастливые годы

))

ОГРОМНОЕ СПАСИБО!!!

@MsGuns · 27.07.2011, 12:17

Просьба в [6] заменить TCustomDataSet на TCustomADODataSet, а то можно людей ввести в заблуждение, а это нехошо

(тем более разница принципиальнейшая)

@First · 27.07.2011, 12:34 **[ТС]**

есть еще вопрос

SELECT BASESTUDY.BASEID,
BASESTUDY.FIO,
BASESTUDY.IMY,
BASESTUDY.OTCH,
BASESTUDY.ADDRESS,
BASESTUDY.ROJD,
BASESTUDY.KURS,
BASESTUDY.SPEC
FROM BASESTUDY.DB
INNER JOIN BASESTUDY ON KURSSTUDY.KURSid=BASESTUDY.BASEID

пишет что Invalid field name KURSid что это может значить

@Antervis · 27.07.2011, 13:28

он пишет, что у тебя нет поля с именем "KURSid"
и хотелось бы всё-таки понять, что именно ты пытался сделать этим запросом.

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

@First · 27.07.2011, 13:31 **[ТС]**

У меня есть таблица и мне надо производить сортировку в ней, в той таблице есть это, а вот что то не катит, может что Вы посоветуете, и ADO не пользоваться сказали(((

Добавлено через 55 секунд

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

он пишет, что у тебя нет поля с именем "KURSid"
и хотелось бы всё-таки понять, что именно ты пытался сделать этим запросом.

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

это как то может повлиять на работу программы?

а что я точно хотел:
у меня есть несколько RadioButton и по нажатию одного из них по определенным условиям должен сортироваться список
определенные условия - это поля

@MsGuns · 27.07.2011, 13:40

Наверное, так будет ?

SELECT BASESTUDY.BASEID,
BASESTUDY.FIO,
BASESTUDY.IMY,
BASESTUDY.OTCH,
BASESTUDY.ADDRESS,
BASESTUDY.ROJD,
BASESTUDY.KURS,
BASESTUDY.SPEC
FROM BASESTUDY.DB
INNER JOIN KURSSTUDY ON KURSSTUDY.KURSid=BASESTUDY.BASEID

Delphi
1
и ADO не пользоваться сказали(((

Так и сказали ? Тогда мои поздравления: Ваш преподаватель - неуч и дурак !
Неуч - потому что очевидно, что кроме Архангельского и Курочки Рябы никаких иных книжек отродясь в руки не брал и потому кроме TTable и TQuery (ну это уже для кандидатской, не меньше !) ничего не знает
Дурак - потому что готовит специалистов со знаниями, которым невозможно будет найти применения на практике (разве что в какой-нить собес за 3 тыс.рублей возьмут эникейщиком). А также потому что учиться новым технологиям напрочь не желает.

@First · 27.07.2011, 14:13 **[ТС]**

Так и сказали ? Тогда мои поздравления: Ваш преподаватель - неуч и дурак !
Неуч - потому что очевидно, что кроме Архангельского и Курочки Рябы никаких иных книжек отродясь в руки не брал и потому кроме TTable и TQuery (ну это уже для кандидатской, не меньше !) ничего не знает
Дурак - потому что готовит специалистов со знаниями, которым невозможно будет найти применения на практике (разве что в какой-нить собес за 3 тыс.рублей возьмут эникейщиком). А также потому что учиться новым технологиям напрочь не желает.[/QUOTE]

дак в том то и дело, я ADO сам учил, и с ним бы проблем вообще не было а тут ЭТО!!!

Добавлено через 6 минут

Добавлено через 3 минуты
теперь пишет что Invalid field name baseid а в таблице есть и она указана в запросе ((((((

Добавлено через 19 минут
с этим разобрался а что то вот сам запрос не работает

DATAMODULE7.ScientistView.SQL.Clear;
DATAMODULE7.ScientistView.SQL.Add('SELEC T BASESTUDY.BASEID,BASESTUDY.FIO,BASESTUDY .IMY, BASESTUDY.OTCH,BASESTUDY.ADDRESS,BASESTU DY.ROJD, BASESTUDY.KURS, BASESTUDY.SPEC, FROM BASESTUDY'+'INNER JOIN KURSSTUDY ON KURSSTUDY.KURSid=BASESTUDY.BASEID');
DATAMODULE7.ScientistView.Close;
DATAMODULE7.ScientistView.SQL.Add('ORDER BY BASESTUDY.FIO ');
DATAMODULE7.ScientistView.Open;

может я чсто не так делаю опять((((

@MsGuns · 27.07.2011, 14:46

Вы сшили текст запросов без пробелов - получилась белиберда
Сделайте так:

Delphi
1
2
3
4
5
6
with DATAMODULE7.ScientistView do
   begin
    if Active then Close;
    SQL.Text := <Весь запрос полностью без разрывов>;
    Open;
   end;

@SAMZ · 27.07.2011, 14:59

Сделайте как посоветовал MsGuns или в DATAMODULE7.ScientistView.SQL.Add не используйте контеканацию. Добавляйте "короткими" строками

@First · 27.07.2011, 15:29 **[ТС]**

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

Сделайте как посоветовал MsGuns или в DATAMODULE7.ScientistView.SQL.Add не используйте контеканацию. Добавляйте "короткими" строками

хорошо спасибо сейчас попробую

Добавлено через 3 минуты
так будет правильно

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.sRadioButton1Click(Sender: TObject);
begin
with DATAMODULE7.ScientistView do
   begin
    if Active then Close;
    SQL.Text := 'SELECT BASESTUDY.BASEID, BASESTUDY.FIO, BASESTUDY.IMY, BASESTUDY.OTCH, BASESTUDY.ADDRESS, BASESTUDY.ROJD, BASESTUDY.KURS, BASESTUDY.SPEC FROM BASESTUDY INNER JOIN KURSSTUDY ON KURSSTUDY.KURSid=BASESTUDY.BASEID';
    Open;
   end;
end;

что то не сортируется((

Добавлено через 25 минут
все работает сортировка)))) ура

но появилась другая проблема теперь пишет при удалении что таблица только для чтения((((

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3

	Сортировка Paradox 27.07.2011, 08:25. Показов 4635. Ответов 20 Метки нет (Все метки) общем есть таблица парадокс в ней есть такие столбци fio, imy, otch, address, rojd, kurs, spec теперь вопрос как можно сделать сортировку по этим столбцам по выбору, тоесть по одному из них по какому мне к примеру захотелось - помогите плз 0

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3
	27.07.2011, 08:42 [ТС]
	вот по воттакому выбору сортировка должна быть, как такое сделать можно Миниатюры 0

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3
	27.07.2011, 09:54 [ТС]
	Да использую TTable, а с paradox'ом уже достали, есть ADO хорошая вещь 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	27.07.2011, 11:00
	Используйте ADO для работы с парадоксом, там сортировка делается "штатным" средством (TCustomDataSet.Sort) 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	27.07.2011, 11:27
	Это выглядит как закладка "ADO" на палитре компонент 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	27.07.2011, 11:37
	Вам нужны: 1) TADOConnection - для соединения с БД (что-то вроде бидешной TDataBase), как составить строку соединения см. здесь http://www.connectionstrings.com/ 2) TADODataSet - для выборки на клиент данный для отображения 3) TADOCommand - для посылки корректирующих запросов к БД Главное: Основным "бабаем" для парадоксистов/дибэйщиков при переходе с "родного" (и глючного насквозь) BDE на клиент-серверные технологии, является SQL. Он видится им как "Чудище обло, озорно, огромно, стозевно и лаяй" (с) На самом деле это не так. сиквель является одним из самых простых интуитивно понятных и, самое главное, популярным языком ! Его надо не бояться, с ним надо подружиться. И тогда этот стоглавый цербер станет для вас верным "Полканом" на долгие счастливые годы )) 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	27.07.2011, 12:17
	Просьба в [6] заменить TCustomDataSet на TCustomADODataSet, а то можно людей ввести в заблуждение, а это нехошо (тем более разница принципиальнейшая) 0

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3
	27.07.2011, 12:34 [ТС]
	есть еще вопрос SELECT BASESTUDY.BASEID, BASESTUDY.FIO, BASESTUDY.IMY, BASESTUDY.OTCH, BASESTUDY.ADDRESS, BASESTUDY.ROJD, BASESTUDY.KURS, BASESTUDY.SPEC FROM BASESTUDY.DB INNER JOIN BASESTUDY ON KURSSTUDY.KURSid=BASESTUDY.BASEID пишет что Invalid field name KURSid что это может значить 0

@Antervis 19 / 19 / 0 Регистрация: 22.07.2011 Сообщений: 68
	27.07.2011, 13:28
	он пишет, что у тебя нет поля с именем "KURSid" и хотелось бы всё-таки понять, что именно ты пытался сделать этим запросом. п.с. думаю, красивее будет, если писать названия полей, таблиц, баз и переменных в нижнем регистре. 0

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3
	27.07.2011, 14:13 [ТС]
	Так и сказали ? Тогда мои поздравления: Ваш преподаватель - неуч и дурак ! Неуч - потому что очевидно, что кроме Архангельского и Курочки Рябы никаких иных книжек отродясь в руки не брал и потому кроме TTable и TQuery (ну это уже для кандидатской, не меньше !) ничего не знает Дурак - потому что готовит специалистов со знаниями, которым невозможно будет найти применения на практике (разве что в какой-нить собес за 3 тыс.рублей возьмут эникейщиком). А также потому что учиться новым технологиям напрочь не желает.[/QUOTE] дак в том то и дело, я ADO сам учил, и с ним бы проблем вообще не было а тут ЭТО!!! Добавлено через 6 минут Добавлено через 3 минуты теперь пишет что Invalid field name baseid а в таблице есть и она указана в запросе (((((( Добавлено через 19 минут с этим разобрался а что то вот сам запрос не работает DATAMODULE7.ScientistView.SQL.Clear; DATAMODULE7.ScientistView.SQL.Add('SELEC T BASESTUDY.BASEID,BASESTUDY.FIO,BASESTUDY .IMY, BASESTUDY.OTCH,BASESTUDY.ADDRESS,BASESTU DY.ROJD, BASESTUDY.KURS, BASESTUDY.SPEC, FROM BASESTUDY'+'INNER JOIN KURSSTUDY ON KURSSTUDY.KURSid=BASESTUDY.BASEID'); DATAMODULE7.ScientistView.Close; DATAMODULE7.ScientistView.SQL.Add('ORDER BY BASESTUDY.FIO '); DATAMODULE7.ScientistView.Open; может я чсто не так делаю опять(((( 0

@SAMZ 1263 / 706 / 62 Регистрация: 21.12.2009 Сообщений: 2,256
	27.07.2011, 14:59
	Сделайте как посоветовал MsGuns или в DATAMODULE7.ScientistView.SQL.Add не используйте контеканацию. Добавляйте "короткими" строками 0