Запрос по дате через AdoQuery (Delphi DateTimePicker1)

@Granfury · Регистрация: 22.04.2015

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

Доброго времени суток!
Не могу написать запрос в AdoQuery2 для вывода тех дат которые равны DateTimePicker1

Delphi

procedure TForm1.Button2Click(Sender: TObject);
begin
AdoQuery2.Connection:=ADOConnection1;
DataSource2.DataSet:=AdoQuery2;
DBGrid1.DataSource:=DataSource2;
AdoQuery2.SQL.Add('SELECT [Дата] FROM Tab1 WHERE [Дата]=DateTimePicker1' );
AdoQuery2.Active:=True;
end;
end.

Ругается на то что: "Параметр DateTimePicker1 не имеет значение по умолчанию"

@droider · 16.05.2015, 15:43

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

Ругается на то что: "Параметр DateTimePicker1 не имеет значение по умолчанию"

Во-первых, параметр передается неправильно! Читайте про запросы с параметрами.
Во-вторых, СУБД Access? Можно обойтись без SQL, обычным фильтром

Delphi

...
 with ADOQuery2 do
 begin
Filter :='Дата=#'+DateToStr(DateTimePicker1.Date)+'#'; 
Filtered :=True;
 end;
...

@Granfury · 16.05.2015, 16:08 **[ТС]**

droider, большое спасибо!
БД, да Access
Скажи пожалуйста, использовать фильтр при большом объёме информации в БД
одинаково эффективно как и SQL запрос?
Нагрузка на программу одинакова?

JonniK · 16.07.2015, 11:24

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

Во-первых, параметр передается неправильно! Читайте про запросы с параметрами.
Во-вторых, СУБД Access? Можно обойтись без SQL, обычным фильтром

Пишу этот код вылетает ошибка: "Аргументы имют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом."

@droider · 16.07.2015, 11:29

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

Пишу этот код вылетает ошибка

значит Вы что-то делаете не так.

@northener · 16.07.2015, 11:29

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

Пишу этот код

Какой этот?

JonniK · 16.07.2015, 11:39

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

значит Вы что-то делаете не так.

вотъ

Delphi

1 2	date_dr := DateToStr(DateEditDR.Date); Filter := '[Дата рождения] = #' + QuotedStr(date_dr) +'#';

@droider · 16.07.2015, 11:43

JonniK,

Delphi

1	Filter := 'Дата рождения= #' + DateToStr(DateEditDR.Date) +'#';

JonniK · 16.07.2015, 11:47

Delphi

1	Filter := 'Дата рождения= #' + DateToStr(DateEditDR.Date) +'#';

а-а-а, не помогает(((

@droider · 16.07.2015, 11:51

JonniK, выложите проект

JonniK · 16.07.2015, 12:18

У меня база на MS SQL 2008, ее я не стала выкладывать.
А сам проект вот.

@droider · 16.07.2015, 12:22

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

база на MS SQL 2008

так с этого и стоило начинать!! Я же написал, что предыдущий вариант для Access.

JonniK · 16.07.2015, 12:35

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

так с этого и стоило начинать!! Я же написал, что предыдущий вариант для Access.

сорри) а чем отличается сортировка ms sql?

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

@droider 4914 / 2783 / 853 Регистрация: 04.10.2012 Сообщений: 10,129
	16.07.2015, 11:51	10
	JonniK, выложите проект 0

JonniK 1 / 1 / 0 Регистрация: 26.09.2012 Сообщений: 61
	16.07.2015, 12:35	13
	Сообщение от droider так с этого и стоило начинать!! Я же написал, что предыдущий вариант для Access. сорри) а чем отличается сортировка ms sql? Добавлено через 12 минут Не знаю с чем это связано, но если убрать из FormCreate строку подключения к базе, то все работает... 0

@Granfury 9 / 9 / 5 Регистрация: 22.04.2015 Сообщений: 305
	16.05.2015, 16:08 [ТС]	3
	droider, большое спасибо! БД, да Access Скажи пожалуйста, использовать фильтр при большом объёме информации в БД одинаково эффективно как и SQL запрос? Нагрузка на программу одинакова? 0

JonniK 1 / 1 / 0 Регистрация: 26.09.2012 Сообщений: 61
	16.07.2015, 11:24	4
	Сообщение от droider Во-первых, параметр передается неправильно! Читайте про запросы с параметрами. Во-вторых, СУБД Access? Можно обойтись без SQL, обычным фильтром Пишу этот код вылетает ошибка: "Аргументы имют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом." 0

@droider 4914 / 2783 / 853 Регистрация: 04.10.2012 Сообщений: 10,129
	16.07.2015, 11:29	5
	Сообщение от JonniK Пишу этот код вылетает ошибка значит Вы что-то делаете не так. 0

@northener пофигист широкого профиля 4754 / 3189 / 861 Регистрация: 15.07.2013 Сообщений: 18,460
	16.07.2015, 11:29	6
	Сообщение от JonniK Пишу этот код Какой этот? 0

@droider 4914 / 2783 / 853 Регистрация: 04.10.2012 Сообщений: 10,129
	16.07.2015, 12:22	12
	Сообщение от JonniK база на MS SQL 2008 так с этого и стоило начинать!! Я же написал, что предыдущий вариант для Access. 0

Запрос по дате через AdoQuery (Delphi DateTimePicker1)

Решение