Поиск записей в DBGrid по дате (Datetimepicker, SqlDataSet)

@sander989 · Регистрация: 27.06.2011

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

Здравствуйте, Всех с Новым Годом!
не могу организовать запрос по поиску записей по дате. Использую компоненты Datetimepicker,

Возможен ли такой вариант записи если используеться SqlDateSet? конкретно этот вариант у меня не работает.

Delphi

DM.SQLDataSet1.Close;
      DM.SQLDataSet1.CommandText:='select * from postavka_p where Data = :p1';
      DM.SQLDataSet1.ParamByName('p1').AsDate:=DateTimePicker2.Date;
      DM.SQLDataSet1.ExecSQL;

или можно как нибудь так сделать? только как? если использую Datetimepicker

Delphi

1 2	DM.ClientDataSet1.IndexFieldNames:='Data'; DM.ClientDataSet1.FindNearest([??????]);

Скандербег · 01.01.2014, 20:28

У DateTimePicker есть одно коварное свойство: мы считаем, что его Data - это дата, но на самом деле она содержит и время.
Сравнение одной даты, где нет времени с другой, но которая идет со временем не работает в поиске.
Для решения проблемы нужно исключить время из даты:

Delphi

1
2
3

uses DateUtils;
  ... 
  DM.SQLDataSet1.ParamByName('p1').AsDate := DateOf(DateTimePicker2.Date);

@sander989 · 01.01.2014, 21:52 **[ТС]**

выдает ошибку.
не понимает он, что такое DateOf

Добавлено через 8 минут
теперь понимает , я в Uses DateUtils не прописал, ошибки не выдает , но и не ищет.

Скандербег · 01.01.2014, 22:27

Может даты такой нет в таблице БД...
Или что-то неверно сделано...
Как понять без материала?

@sander989 · 01.01.2014, 22:38 **[ТС]**

Delphi

1	DM.Clientdataset1.FieldValues['data']:= Datetimepicker1.time ;

это строчка заполнения поля дата, может я был не прав что выбрал свойство Time

Скандербег · 01.01.2014, 22:50

А при чем здесь Time, если и в первом посте обозначено свойство Date и после речь шла именно о дате?
Вообще-то, какого типа поле в таблице базы данных, в котором происходит поиск?

@sander989 · 01.01.2014, 22:52 **[ТС]**

Сообщение от Скандербег

Может даты такой нет в таблице БД...
Или что-то неверно сделано...
Как понять без материала?

Delphi

procedure TForm3.BitBtn8Click(Sender: TObject);
begin
if (RadioButton2.Checked=True) then
    begin
      DM.SQLDataSet1.Close;
      DM.SQLDataSet1.CommandText:='select * from postavka_p where Data = :p1';
      DM.SQLDataSet1.ParamByName('p1').AsDate:=DateOf(DateTimePicker2.Date);
      DM.SQLDataSet1.ExecSQL;
    end;
en

может быть что в коде неправильно?

Скандербег · 01.01.2014, 22:57

Ну да. Метод ExecSQL применяется для модифицирующих запросов, а для селективных (SELECT) нужно использовать метод Open (DM.SQLDataSet1.Open).

@sander989 · 01.01.2014, 22:58 **[ТС]**

Сообщение от Скандербег

А при чем здесь Time, если и в первом посте обозначено свойство Date и после речь шла именно о дате?

так вот я и спрашиваю что когда я заполнял данные о дате то я использовал свойство Time

Delphi

DM.ClientDataSet1.Insert;
      DM.Clientdataset1.FieldValues['kod_postavshika']:=DBLookupComboBox1.Text;
      DM.Clientdataset1.FieldValues['kod_p']:= DBLookupComboBox2.Text;
      DM.Clientdataset1.FieldValues['colich']:= edit3.Text;
      DM.Clientdataset1.FieldValues['data']:= Datetimepicker1.Time;
      DM.clientdataset1.Post;
      DM.clientdataset1.ApplyUpdates(0);

а при поиске я использую Datetimepicker2.date.может быть в этом ошибка?

Сообщение от Скандербег

Вообще-то, какого типа поле в таблице базы данных, в котором происходит поиск?

Date

Скандербег · 01.01.2014, 23:02

Вот и непонятно, почему запись идет свойства Time, а поиск по значению свойства Date...
Надо что-то одно использовать.
А что за база то используется, что приходится применять ClientDataSet?

Не по теме:

Удивительно еще и то, что почему-то поиск происходит через SQL запрос, а запись данных по старинному методу Post. Не принципиально, но все же легкое недоумение остается.

@sander989 · 01.01.2014, 23:30 **[ТС]**

Сообщение от Скандербег

Вот и непонятно, почему запись идет свойства Time, а поиск по значению свойства Date...
Надо что-то одно использовать.

Сейчас буду исправлять.

Добавлено через 26 минут
всё исправил, перепробовал всё, всё равно не ищет. можно как нибудь по другому организовать поиск, не через запрос?

Скандербег · 01.01.2014, 23:46

Чтобы ответить надо знать что вообще за база, как организованы таблицы БД и доступ к данным.
Без проекта что-либо достойное предложить сложно.
Правда, код поиска, прямо сказать, ни к чему не приводит. Ну, запросили данные, ну открыли, а что дальше?
Может это вообще не поиск, а установка фильтра? Тогда ничего плохого в таком "поиске" не просматривается.

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

можно как нибудь по другому организовать поиск, не через запрос?

Если речь идет именно о поиске, а не об установке фильтра, то можно применять метод Locate.

@sander989 · 02.01.2014, 00:16 **[ТС]**

Сообщение от Скандербег

Чтобы ответить надо знать что вообще за база, как организованы таблицы БД и доступ к данным.

SQL

CREATE TABLE sklad.postavka_p (
  kod_postavshika INT(11) DEFAULT NULL,
  kod_p INT(11) DEFAULT NULL,
  colich INT(11) DEFAULT NULL,
  DATA DATE DEFAULT NULL,
  CONSTRAINT FK_postavka_p_packages_Kod_p FOREIGN KEY (kod_p)
  REFERENCES sklad.packages (Kod_p) ON DELETE RESTRICT ON UPDATE RESTRICT,
  CONSTRAINT FK_postavka_p_postavshik_kod_postavshika FOREIGN KEY (kod_postavshika)
  REFERENCES sklad.postavshik (kod_postavshika) ON DELETE RESTRICT ON UPDATE RESTRICT
)
ENGINE = INNODB
AVG_ROW_LENGTH = 910
CHARACTER SET cp1251
COLLATE cp1251_general_ci;

Может быть это как то поможет Вам? чтобы помочь мне.

также я осуществляю поиск в той же таблице по полю kod_p, здесь все работает.

Delphi

procedure TForm3.Edit1Change(Sender: TObject);
 
begin
if  RadioButton1.Checked then
   begin
    DM.ClientDataSet1.IndexFieldNames:='kod_p';
    DM.ClientDataSet1.FindNearest([Edit1.Text]);
end;

Скандербег · 02.01.2014, 00:24

Не настораживает, что имя поля DATA "подсвечено" как зарезервированное?
Так и не сказано что за СУБД. Скрипт создания таблицы типичен для многих СУБД.
А вот можно ли поле называть DATA зависит от конкретной СУБД.

@sander989 · 02.01.2014, 00:26 **[ТС]**

Mysql

Скандербег · 02.01.2014, 00:32

Mysql не моя СУБД. И пока не появиться гуру по ней мы будем только гадать чего сделано в поиске не так.
Но независимо от типа БД во всех Dataset'ах (ClientDataset не исключение) есть метод для поиска, называемый Locate. Можно попытать его.

@sander989 · 02.01.2014, 00:52 **[ТС]**

Сообщение от Скандербег

Mysql не моя СУБД. И пока не появиться гуру по ней мы будем только гадать чего сделано в поиске не так.
Но независимо от типа БД во всех Dataset'ах (ClientDataset не исключение) есть метод для поиска, называемый Locate. Можно попытать его

Спасибо большое за столь огромное время которое Вы мне уделили.
буду пытать Locate.
P.S. поле дата переименовал в поле data_p обновил всё, но искать так и не хочет((

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

Сообщение от Скандербег

Если речь идет именно о поиске, а не об установке фильтра, то можно применять метод Locate.

по сути мне всё равно чем пользоваться(поиск,фильтрация) главное результат, чтобы из кучи записей он перемещал курсор на те записи которые соответствуют дате которую я указываю.

Скандербег · 02.01.2014, 01:06

Да, понятно. Но без проекта все равно сложно определить причину проблемы.

@sander989 0 / 0 / 0 Регистрация: 27.06.2011 Сообщений: 21
	02.01.2014, 00:26 [ТС]	15
	Mysql 0

@sander989 0 / 0 / 0 Регистрация: 27.06.2011 Сообщений: 21
	02.01.2014, 00:52 [ТС]	17
	Сообщение от Скандербег Mysql не моя СУБД. И пока не появиться гуру по ней мы будем только гадать чего сделано в поиске не так. Но независимо от типа БД во всех Dataset'ах (ClientDataset не исключение) есть метод для поиска, называемый Locate. Можно попытать его Спасибо большое за столь огромное время которое Вы мне уделили. буду пытать Locate. P.S. поле дата переименовал в поле data_p обновил всё, но искать так и не хочет(( Добавлено через 10 минут Сообщение от Скандербег Если речь идет именно о поиске, а не об установке фильтра, то можно применять метод Locate. по сути мне всё равно чем пользоваться(поиск,фильтрация) главное результат, чтобы из кучи записей он перемещал курсор на те записи которые соответствуют дате которую я указываю. 0

Скандербег 1075 / 988 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	02.01.2014, 01:06	18
	Да, понятно. Но без проекта все равно сложно определить причину проблемы. 0

Новые блоги и статьи
Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .	Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .
Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .

@sander989 0 / 0 / 0 Регистрация: 27.06.2011 Сообщений: 21
	01.01.2014, 21:52 [ТС]	3
	выдает ошибку. не понимает он, что такое DateOf Добавлено через 8 минут теперь понимает , я в Uses DateUtils не прописал, ошибки не выдает , но и не ищет. 0

Скандербег 1075 / 988 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	01.01.2014, 22:27	4
	Может даты такой нет в таблице БД... Или что-то неверно сделано... Как понять без материала? 0

Скандербег 1075 / 988 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	01.01.2014, 22:50	6
	А при чем здесь Time, если и в первом посте обозначено свойство Date и после речь шла именно о дате? Вообще-то, какого типа поле в таблице базы данных, в котором происходит поиск? 0

Скандербег 1075 / 988 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	01.01.2014, 22:57	8
	Ну да. Метод ExecSQL применяется для модифицирующих запросов, а для селективных (SELECT) нужно использовать метод Open (DM.SQLDataSet1.Open). 1

Скандербег 1075 / 988 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	01.01.2014, 23:02	10
	Вот и непонятно, почему запись идет свойства Time, а поиск по значению свойства Date... Надо что-то одно использовать. А что за база то используется, что приходится применять ClientDataSet? Не по теме: Удивительно еще и то, что почему-то поиск происходит через SQL запрос, а запись данных по старинному методу Post. Не принципиально, но все же легкое недоумение остается. 0

@sander989 0 / 0 / 0 Регистрация: 27.06.2011 Сообщений: 21
	01.01.2014, 23:30 [ТС]	11
	Сообщение от Скандербег Вот и непонятно, почему запись идет свойства Time, а поиск по значению свойства Date... Надо что-то одно использовать. Сейчас буду исправлять. Добавлено через 26 минут всё исправил, перепробовал всё, всё равно не ищет. можно как нибудь по другому организовать поиск, не через запрос? 0

Скандербег 1075 / 988 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	01.01.2014, 23:46	12
	Чтобы ответить надо знать что вообще за база, как организованы таблицы БД и доступ к данным. Без проекта что-либо достойное предложить сложно. Правда, код поиска, прямо сказать, ни к чему не приводит. Ну, запросили данные, ну открыли, а что дальше? Может это вообще не поиск, а установка фильтра? Тогда ничего плохого в таком "поиске" не просматривается. Добавлено через 9 минут можно как нибудь по другому организовать поиск, не через запрос? Если речь идет именно о поиске, а не об установке фильтра, то можно применять метод Locate. 0

Скандербег 1075 / 988 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	02.01.2014, 00:24	14
	Не настораживает, что имя поля DATA "подсвечено" как зарезервированное? Так и не сказано что за СУБД. Скрипт создания таблицы типичен для многих СУБД. А вот можно ли поле называть DATA зависит от конкретной СУБД. 0

Скандербег 1075 / 988 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	02.01.2014, 00:32	16
	Mysql не моя СУБД. И пока не появиться гуру по ней мы будем только гадать чего сделано в поиске не так. Но независимо от типа БД во всех Dataset'ах (ClientDataset не исключение) есть метод для поиска, называемый Locate. Можно попытать его. 0