Работа с датой

@Hellydeya · Регистрация: 02.02.2010

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

У меня есть dfb с полем "BIRTHDAY" я хочу выбрать людей из таблицы младше например конкретной даты:

делал так

C++
1
2
3
4
5
6
7
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADODataSet1->Close();
ADODataSet1->CommandType = cmdText;
ADODataSet1->CommandText = "SELECT * from tt where BIRTHDAY < '01/01/1973'";
ADODataSet1->Open();
}

не работает

пишет "Несоответствие типов данных в выражении условия отбора"

oxotnik · 08.02.2010, 16:55

используй параметры, ибо чревато:

"Был я айтишником в одном турагентстве. Как-то, шерстя базу данных, я нашёл информацию о ценах в отелях на ближайшие три года. Спрашиваю у генерального директора, как это так: то ли у нас ясновидец в штате появился, то ли отели по три года не меняют цены в условиях инфляции? Босс ответил, что данные туда попали по ошибке, и их надо удалить.

Всего один короткий запрос. Всего две забытые кавычки:

delete from prices where price_date>unix_timestamp(2009-12-31)

Сервер радостно подсчитал: 2009 – 12 – 31 = 1968. Как и было заказано, база данных грохнула цены на все даты позже 1968 секунд от начала юникс-эпохи (то есть после 0 часов 32 минут 42 секунд 1 января 1970 года). На тот момент не существовало не только самой фирмы, но даже и самого гендиректора.

В итоге все отели лишились всех цен. Вытаскивать в авральном режиме из бэкапов несколько сотен тысяч строк вручную было ой как весело..." (c) by ITHappens

@Hellydeya · 08.02.2010, 17:25 **[ТС]**

методом научного тыка у мну получилось

#2000-01-01#

Добавлено через 20 минут
А вот теперь у мну проблемма:

Хочу получать дату из DateTimePicker

написал так:

C++
1
2
3
4
5
AnsiString D = StrToDate(DateTimePicker1->Date.DateString());
ADODataSet1->Close();
ADODataSet1->CommandType = cmdText;
ADODataSet1->CommandText = "SELECT * from tt where birthday < #" +D +"#";
ADODataSet1->Open();

Формат в DateTimePicker'е поставил: yyyy-MM-dd и в окошке выбора даты он мне её правильно пишет , но в переменную D выдаёт в формате dd.MM.yyyy , как быть?!?

oxotnik · 08.02.2010, 17:29

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

как быть?!?

нет бы прислушался...

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

используй параметры, ибо чревато:

мыши плакали, кололись, но продолжали жрать кактус.

@Hellydeya · 08.02.2010, 17:32 **[ТС]**

я не понимаю что значит используй параметры... напиши пожалуйста как

oxotnik · 08.02.2010, 17:49

не скажу за всю Одессу (ADODataSet1), т.к. справки под рукой нет, а для TADOQuery делается примерно так:

C++
1
2
3
4
5
6
7
8
9
10
11
ADOQuery1->SQL->Text = "SELECT .... FROM Table WHERE Field1 < :Param1";
// двоеточие перед Param1 означает что это переменная-параметр
ADOQuery1->Parametrs->ParamByName("Param1")->Value = StrToDate("01.01.2100");
ADOQuery1->Active = True; // или ADOQuery1->Open();
 
// Для изменения записи:
ADOQuery1->SQL->Text = "UPDATE Table SET Field1 = :Param1 WHERE KeyField = :Param2";
// двоеточие перед Param1 означает что это переменная-параметр
ADOQuery1->Parametrs->ParamByName("Param1")->Value = StrToDate("01.01.2100");
ADOQuery1->Parametrs->ParamByName("Param2")->Value = 10; 
ADOQuery1->ExecSQL(); // ADOQuery1->Open(); тут не прокатит

@NewZ · 12.08.2011, 21:34

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

нет бы прислушался...

мыши плакали, кололись, но продолжали жрать кактус.

А как использовать параметры, если у меня есть такой запрос:

SQL
1
SELECT * FROM MyTable;

А потом пользователю понадобилось отсортировать по дате:

SQL
1
SELECT * FROM MyTable WHERE MyDate = #2011-08-22#

Те. в первом случае нет WHERE, а во втором уже есть ?????
Получается без изменения SQL запроса не обойтись ???? или можно как-то ????

@Sasha · 12.08.2011, 23:10

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

А как использовать параметры, если у меня есть такой запрос:

SQL
1
SELECT * FROM MyTable;

А потом пользователю понадобилось отсортировать по дате:

SQL
1
SELECT * FROM MyTable WHERE MyDate = #2011-08-22#

Те. в первом случае нет WHERE, а во втором уже есть ?????
Получается без изменения SQL запроса не обойтись ???? или можно как-то ????

Так, а ты занеси текст запроса в переменную, а потом возвратись к ней

@NewZ · 12.08.2011, 23:13

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

Так, а ты занеси текст запроса в переменную, а потом возвратись к ней

Не понял ???? В какую переменную и зачем мне к ней возвратиться ????

@Sasha · 12.08.2011, 23:16

После обновления строки тебе необходимо будет опять открыть список так вот перед обновлением строки тебе вот эту строку

C++
1
SELECT * FROM MyTable;

надо запомнить.
А потом когда обновишь вернёшься к этому запросу (т.е к этой строке)

@NewZ · 12.08.2011, 23:23

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

После обновления строки тебе необходимо будет опять открыть список так вот перед обновлением строки тебе вот эту строку

C++
1
SELECT * FROM MyTable;

надо запомнить.
А потом когда обновишь вернёшься к этому запросу (т.е к этой строке)

Да нет. Вы не поняли. Я совсем не это имел ввиду.
Если я буду делать так:

SQL
1
SELECT * FROM MyTable WHERE MyDate = :Param_1

то что будет в случае когда фильтрация не нужна ????
Я в программе просто не присваиваю значение Param_1 и запрос выглядит так:

SQL
1
SELECT * FROM MyTable WHERE MyDate = '';

Стремно получаетсЯ однако !!!

@Sasha · 12.08.2011, 23:28

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

Добавлено через 45 секунд
Кстати, а как ты узнаешь что сортировка не нужна

@NewZ · 12.08.2011, 23:49

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

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

Добавлено через 45 секунд
Кстати, а как ты узнаешь что сортировка не нужна

Причем здесь события ???? Мы говорим о разных вещах.

Я узнаю, что сортировка нужна, если пользователь щелкнул мышкой по TCheckBox "Сортировать",
а если снял кыржик - сортировка не нужна.
Соотв. 2 разных SQL запроса: один

SQL
1
SELECT * FROM MyTable WHERE MyDate = :Param_1

и в коде я пишу:

Delphi
1
MyTable.Parameters.ParamByName('Param_1').AsDate := Date()

и запрос будет выглядеть так:

SQL
1
SELECT * FROM MyTable WHERE MyDate = '13-08-2011'

а во втором случае я ничего не присваиваю параметру и тогда запрос будет выглядеть так:

SQL
1
SELECT * FROM MyTable WHERE MyDate = ''

И вместо отмены сортировки я получу что ? правильно - пустой DataSet.
Стемно получается с параметрами !!!

@Sasha · 12.08.2011, 23:54

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

а во втором случае я ничего не присваиваю параметру и тогда запрос будет выглядеть так:
Код SQL1 SELECT * FROM MyTable WHERE MyDate = ''

А во втором слоучае можно сделать так

C++
1
SELECT * FROM MyTable

И не надо присваивать пустой параметр

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

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

MyTable.Parameters.ParamByName('Param_1' ).AsDate := Date()

Кстати это Delphi, а ты находишься в разделе C++Builder. Так что тебе не сюда, а вот сюда https://www.cyberforum.ru/delphi-database/

@NewZ · 13.08.2011, 00:07

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

А во втором слоучае можно сделать так

C++
1
SELECT * FROM MyTable

И не надо присваивать пустой параметр

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

Кстати это Delphi, а ты находишься в разделе C++Builder. Так что тебе не сюда, а вот сюда https://www.cyberforum.ru/delphi-database/

А во втором случае, да и в первом прийдется предзагружать SQL запрос.
Те. 2 запроса: один с параметрами, другой без. Так получается ??? Не удобно как-то.

А насчет Дельфи или Билдера - без разницы, пишу на обоих.
Пример привел на Дельфи просто, вот и все.

@Sasha · 13.08.2011, 13:01

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

Те. 2 запроса: один с параметрами, другой без. Так получается ??? Не удобно как-то.

Не обязательно правильный ответ является удобным

@MsGuns · 13.08.2011, 16:57

Сделать идин универсальный запрос, работающий с where (причем условий в общем случае может быть несколько) или без него, не удастся. Запрос придется МОДИФИЦИРОВАТЬ кодом, т.е. собирать его из двух частей: селекта и where (вообще-то есть и еще и третья часть - order by).
Вы правы, это достаточно морочливо, тем более что по-хорошему последние условия выборки (+ порядок сортировки), заданные пользователем, хорошо бы сохранять в пользовательских настройках и при повторном запуске "поднимать". Но можно сделать универсальный код и применять его затем в проектах.

Да и вообще.. хороший, удобный пользовательский интерфейс, сделанный с "душой", достаточно "морочливый" с т.зр. программинга. Это только в книжках некоторых злых авторов врут, что писать "базовые" программы - раз плюнуть. Не верье - это пишут люди либо жадные и злые, либо элементарно не знающие предмета.

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

@Hellydeya 3 / 3 / 0 Регистрация: 02.02.2010 Сообщений: 29
	08.02.2010, 17:32 [ТС]
	я не понимаю что значит используй параметры... напиши пожалуйста как 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	12.08.2011, 23:28
	Делай 2 разных события одно просто открывает таблицу. Другое сортирует его. иначе я не вижу отсюда выхода Добавлено через 45 секунд Кстати, а как ты узнаешь что сортировка не нужна 1

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	13.08.2011, 16:57
	Сделать идин универсальный запрос, работающий с where (причем условий в общем случае может быть несколько) или без него, не удастся. Запрос придется МОДИФИЦИРОВАТЬ кодом, т.е. собирать его из двух частей: селекта и where (вообще-то есть и еще и третья часть - order by). Вы правы, это достаточно морочливо, тем более что по-хорошему последние условия выборки (+ порядок сортировки), заданные пользователем, хорошо бы сохранять в пользовательских настройках и при повторном запуске "поднимать". Но можно сделать универсальный код и применять его затем в проектах. Да и вообще.. хороший, удобный пользовательский интерфейс, сделанный с "душой", достаточно "морочливый" с т.зр. программинга. Это только в книжках некоторых злых авторов врут, что писать "базовые" программы - раз плюнуть. Не верье - это пишут люди либо жадные и злые, либо элементарно не знающие предмета. 1