Фильтр ДатаСета

@FSMK · Регистрация: 20.10.2012

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

Ребята. Прогаю в embarcodero delphi rad studio xe3. Смысл задачи в том, что у меня sql процедура с сервера начитывает на клиент, в датасет (ds) данные, которые содержат в себе два поля разных дат. Мне нужно отсортировать ds так, чтобы разница между соответствующими датами была не более месяца. Два поля: (CarOID.DateSale и DocDate)
Примерные наброски такие:

Delphi
1
2
3
4
5
6
7
var
  Date, DateAdd : TDateTime;
...
 Date := CDA.DsFieldValue[dsMain, 'CarOID.DateSale'];
    DateAdd := IncMonth(Date, 1);
    dsMain.Filter := 'DocDate =<' +DateToStr(DateAdd) ;
    dsMain.Filtered := true;

Но эта вещь упорно не хочет работать. Кто может подсказать в чем затык?

@krapotkin · 31.01.2017, 21:51

сортировка задается в запросе в разделе ORDER BY
но по некоторым сведениям от моего хрустального шара вы говорите не о сортировке а об условии отбора данных
а условие задается в WHERE. Можно с параметром, например
where table.f1 > :adate
поиск делфи параметрические запросы
а Filter желательно забыть насовсем

@FSMK · 31.01.2017, 22:18 **[ТС]**

Для параметрических запросов нужен компонент TQuery, которого у меня нет. Или я не прав?

@krapotkin · 31.01.2017, 22:25

я не знаю какой у вас сервер
я не знаю, какими компонентами вы пользуетесь
я не знаю, почему в вашей версии делфи отсутствует TQuery
не знаю также, почему именно XE3. Начиная с XE4, например, там есть универсальная библиотека FireDac

но то, что query в каком-то из видов нужен, это не зависит ни от чего

@FSMK · 31.01.2017, 22:31 **[ТС]**

ms sql server 2003, TAdoDataSet TAdoConnection, TAdoDataSource. XE3 потому что проект давний, огромный, никто его никуда переносить не собирается.

@krapotkin · 31.01.2017, 23:12

ну вот и чудесно
http://docwiki.embarcadero.com... ADODataSet
про параметры тут тоже есть

@FSMK · 01.02.2017, 06:50 **[ТС]**

С английским не очень хорошо. Приведи пример плиз.

@krapotkin · 01.02.2017, 07:35

чай, не в 19 веке живем
засунул страничку в переводчик и читать...
на всякий случай даже проверил. понятно абсолютно всё
про параметры ссылка приводит сюда
http://docwiki.embarcadero.com... at_Runtime

Delphi
1
ds1.Parameters.ParamByName('xxx').value := 'yyy';

или более экзотическое

Delphi
1
2
ds1.Parameters.ParamValues['Name;Capital;Continent'] :=
  VarArrayOf([Edit1.Text, Edit2.Text, Edit3.Text]);

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	31.01.2017, 21:51
	сортировка задается в запросе в разделе ORDER BY но по некоторым сведениям от моего хрустального шара вы говорите не о сортировке а об условии отбора данных а условие задается в WHERE. Можно с параметром, например where table.f1 > :adate поиск делфи параметрические запросы а Filter желательно забыть насовсем 0

@FSMK 0 / 0 / 0 Регистрация: 20.10.2012 Сообщений: 23
	31.01.2017, 22:18 [ТС]
	Для параметрических запросов нужен компонент TQuery, которого у меня нет. Или я не прав? 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	31.01.2017, 22:25
	я не знаю какой у вас сервер я не знаю, какими компонентами вы пользуетесь я не знаю, почему в вашей версии делфи отсутствует TQuery не знаю также, почему именно XE3. Начиная с XE4, например, там есть универсальная библиотека FireDac но то, что query в каком-то из видов нужен, это не зависит ни от чего 0

@FSMK 0 / 0 / 0 Регистрация: 20.10.2012 Сообщений: 23
	31.01.2017, 22:31 [ТС]
	ms sql server 2003, TAdoDataSet TAdoConnection, TAdoDataSource. XE3 потому что проект давний, огромный, никто его никуда переносить не собирается. 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	31.01.2017, 23:12
	ну вот и чудесно http://docwiki.embarcadero.com... ADODataSet про параметры тут тоже есть 0

@FSMK 0 / 0 / 0 Регистрация: 20.10.2012 Сообщений: 23
	01.02.2017, 06:50 [ТС]
	С английским не очень хорошо. Приведи пример плиз. 0