Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 04.06.2014, 14:49
Kis Kis вне форума
Новичок
 
Регистрация: 02.09.2011
Сообщения: 76
Репутация: 11
По умолчанию SQL запрос

Всем добра! Подскажите пожалуйста, что в моем запросе не так

Код:
procedure Tvidbilprodform.DateTimePicker1Change(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from m6 where tabn=:tabn and datap=:dat2 or datap=:dat');
adoquery1.Parameters.ParamByName('dat').Value:=datetostr(datetimepicker1.Date);
adoquery1.Parameters.ParamByName('dat2').Value:=datetostr(datetimepicker1.Date+1);
adoquery1.Parameters.ParamByName('tabn').Value:=label2.Caption;;
adoquery1.Active:=true;
end;

Требуется чтобы выводил данные на опр. tabn номер за два дня. Другими словами в таблице данные которые забил человек (tabn) за свою смену (смена с 20:00 до 8:00, поэтому за два дня).

данные в базе. по одной записи в день.

29.05.2014 1111(tabn)
30.05.2014 2222

при выборе 30 числа и tabn 1111 выдает запись 30.05.2014 2222. при выборе 29 выдает 29.05.2014 1111
Ответить с цитированием
  #2  
Старый 04.06.2014, 15:08
Аватар для Freeman
Freeman Freeman вне форума
Местный
 
Регистрация: 05.10.2012
Адрес: Санкт-Петербург
Сообщения: 576
Версия Delphi: 6
Репутация: выкл
По умолчанию

Присваивать значение параметра даты через DateToStr -- за гранью добра и зла.
__________________
Не стоит путать форумы с богадельнями. © Bargest
Ответить с цитированием
  #3  
Старый 04.06.2014, 15:14
Kis Kis вне форума
Новичок
 
Регистрация: 02.09.2011
Сообщения: 76
Репутация: 11
По умолчанию

ну я тот еще "чокнутый профессор" а по теме, проблема вроде решена

adoquery1.SQL.Add('select * from m6 where tabn=:tabn and (datap=:dat or datap=:dat2)');

сейчас данных добавлю и проверю чтобы убедиться
Ответить с цитированием
  #4  
Старый 04.06.2014, 15:36
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от Kis
...проблема вроде решена...
Вроде так должно быть в запросе, двоеточия здесь не нужны
Код:
adoquery1.SQL.Add('select * from m6 where tabn=tabn and (datap=dat or datap=dat2)');
Ответить с цитированием
  #5  
Старый 04.06.2014, 23:47
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Код:
(datap=dat or datap=dat2)
Стремно вы как-то задаете период. Обычно его задают так:
Код:
(datap between :dat and :dat2)
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #6  
Старый 05.06.2014, 05:07
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,034
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Алеган, с двоеточием - это параметр.
Страдалец, у него по определению последовательно идущие даты.
ТС, а зачем вообще вводить вторую дату. Можно просто вводить только первую, а вторую рассчитывать. Тогда будет всего одна запись на человека-смену, что сильно облегчит логику...
Ответить с цитированием
  #7  
Старый 05.06.2014, 11:15
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Потому и говорю, что стремно, а так бы сказал что неправильно. Но дело даже не в этом. Чистой даты , как таковой нет. Есть Дата и Время, где время как-бы скрыто. И при таком раскладе вполне возможна ситуация, когда у двух сравниваемых переменных Даты будут одинаковы, а вот время может слегка расходится. Для периода это не страшно, а вот тут сравнение уже не прокатит.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:04.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter