Запрос с использованием даты

@Programmer1993 · Регистрация: 22.05.2012

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

в Таблице эксес есть столбец с типом дата. Нужно выбрать все записи в которых дата находится в диапазоне от 01.01.2016 до 30.09.2016 пробую вот так но выдает ошибку

Delphi
1
2
3
4
5
6
7
8
9
10
11
var
dat1,dat2:string;
begin
dat1:=DateToStr(DateTimePicker3.Date);
dat2:=DateToStr(DateTimePicker4.Date);
 
form2.AdoQuery1.Active := False;
form2.AdoQuery1.Sql.Text := 'SELECT * FROM Реестр WHERE (Дата_заполнения > "'+dat1+'") and (Дата_заполнения < "'+dat2+'") ORDER BY Код;';
form2.AdoQuery1.Active := True;
 
end;

пробовал просто вывести с установленной датой, но все равно не получается

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
var
dat1,dat2:string;
begin
dat1:=DateToStr(DateTimePicker3.Date);
dat2:=DateToStr(DateTimePicker4.Date);
 
form2.AdoQuery1.Active := False;
form2.AdoQuery1.Sql.Text := 'SELECT * FROM Реестр WHERE (Дата_заполнения = "'+dat1+'") ORDER BY Код;';
form2.AdoQuery1.Active := True;
 
 
end;

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

@Grossmeister · 06.10.2016, 15:19

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

пробую вот так но выдает ошибку

Для начала распечатай получившийся SQL.Text. А вообще лучше использовать параметры для подстановки данных из формы

@Programmer1993 · 06.10.2016, 17:27 **[ТС]**

Попробую распечатпть завтра sql.text.

А на счет параметров, это как, раньше промто всегда так работал и проблем небыло.

@kwinto · 06.10.2016, 17:35

SQL
1
2
3
4
...
form2.AdoQuery1.Sql.Text := 'SELECT * FROM Реестр WHERE (Дата_заполнения = :d) ORDER BY Код;';
form2.ADOQuery1.Parameters.ParamByName('d').Value:=trunc(DateTimePicker3.Date);
...

@Programmer1993 · 06.10.2016, 17:39 **[ТС]**

Спасибо

Добавлено через 11 секунд
Попробую

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

@qwertehok · 06.10.2016, 17:43

параметром рулит драйвер и если указать что это дата, то он приведет ее к нужному виду

Добавлено через 1 минуту
ты же сейчас передаешь просто текст - типа
where mydate=06.10.2016

а аксессу нужно
where mydate=#20161006#

@xxbesoxx · 06.10.2016, 19:25

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
// Uses StrUtils
procedure TForm4.sBitBtn18Click(Sender: TObject);
begin
    With Module.RasxodQuery do
    begin
        RasxodQuery.SQL.Clear;
        RasxodQuery.SQL.Text:='select * from Таблица where Дата_расхода between #'+
        AnsiReplaceStr(FormatDateTime('MM/dd/yyyy', DateTimePicker3.Date),'.','/')
        +'# and #'+AnsiReplaceStr(FormatDateTime('MM/dd/yyyy', DateTimePicker4.Date),'.','/')+'#';
        Active:=True;
        if Module.RasxodQuery.FieldByName('Дата_расхода').AsString = '' then
        Application.MessageBox('Данных на это период не найдено','Ошибка ввода данных', MB_ICONERROR);
    end;
end;

Новые блоги и статьи Все статьи Все блоги /
Установка 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. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@Programmer1993 44 / 24 / 1 Регистрация: 22.05.2012 Сообщений: 669
	06.10.2016, 17:27 [ТС]
	Попробую распечатпть завтра sql.text. А на счет параметров, это как, раньше промто всегда так работал и проблем небыло. 0

@Programmer1993 44 / 24 / 1 Регистрация: 22.05.2012 Сообщений: 669
	06.10.2016, 17:39 [ТС]
	Спасибо Добавлено через 11 секунд Попробую Добавлено через 2 минуты А чем отличается ередача значений через параметры от того как делаю я 0

@qwertehok 5984 / 4559 / 1095 Регистрация: 29.08.2013 Сообщений: 28,197 Записей в блоге: 3
	06.10.2016, 17:43
	параметром рулит драйвер и если указать что это дата, то он приведет ее к нужному виду Добавлено через 1 минуту ты же сейчас передаешь просто текст - типа where mydate=06.10.2016 а аксессу нужно where mydate=#20161006# 0