Запросы к базам данных. Delphi

@Hugoboss33 · Регистрация: 25.09.2013

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

Задача:
Создать однотабличный запрос для просмотра всех сведений о договорах, дата которых находится в заданном временном интервале. В запросе применить условие BETWEEN. Интервал дат считывать с Edit-ов.

Код:

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
d1, d2:TDate;
begin
d1:=StrToDate(Edit2.Text);
d2:=StrToDate(Edit3.Text);
 
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Договоры WHERE Дата BETWEEN "d1" AND "d2" ');
ADOQuery1.Active:=True;

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

Подскажите как правильно сделать.

@FIL · 07.11.2014, 18:37

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

Подскажите как правильно сделать

Правильно - сделать через параметры.

@KMSNasgool · 08.11.2014, 05:36

1) Каждый SQL запрос оканчивается знаком ';'
2) ты в запросе передаешь не значение переменных d1 и d2, а строки равные "d1" и "d2"

FIL сказал тебе истину, через параметры передавать - это правильно. Но если тебе по каким-то причинам так делать нельзя или неохота, то пробуй сделать так:

Delphi

1	ADOQuery1.SQL.Add('SELECT * FROM Договоры WHERE Дата BETWEEN ' + DateToStr(d1) + ' AND ' + DateToStr(d2) + ';');

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

Delphi

1	ADOQuery1.Active:=True;

а вот где ты запускаешь выполнение запроса не вижу.

И еще! Если это работа с MS SQL или с MS Access то у тебя остается ТОЛЬКО вариант с параметрами:

Delphi

ADOQuery1.Active:=True;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Договоры WHERE Дата BETWEEN :pD1 AND :pD2;');
ADOQuery1.Parameters.ParamByName('pD1').Value := d1;
ADOQuery1.Parameters.ParamByName('pD2').Value := d2;
ADOQuery1.ExecSQL;

По другому работать с датами не будет.

@Hugoboss33 · 08.11.2014, 16:33 **[ТС]**

Спасибо большое

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	07.11.2014, 18:37	2
	Сообщение от Hugoboss33 Подскажите как правильно сделать Правильно - сделать через параметры. 1

@Hugoboss33 0 / 0 / 0 Регистрация: 25.09.2013 Сообщений: 38
	08.11.2014, 16:33 [ТС]	4
	Спасибо большое 0

Запросы к базам данных. Delphi

Решение