Доброго времени суток!

Сразу оговорюсь, за программирование БД взялся недавно, поэтому просьба ногами не бить

Есть такая проблемка:

БД MSAccess (*.mdb), доступ до нее из delphi через ADO.

Подскажите пожалуйста текст SQL запроса для выборки по датам (больше, меньше, равна)

вот фрагментик кода, что в нем нужно поправить:

FizFind.Active:=false;
FizFind.SQL.Clear;
FizFind.SQL.Add('Select * from table');
FizFind.sql.Add('WHERE');
if FindDate.Text<>'' then FizFind.SQL.Add('BirDate = '+FindDate.Text);
FizFind.active:=true;

сдесь FizFind - ADQQuery, FindDate - коомпонент TEdit, откуда берется значение для сравнения; BirDate - поле в таблице типа DateTime

В данном случае выскочит ошибка нессответствия типов данных, а как надо прописать, чтобы прошло сравнение?

Наверное дату в кавычки нужно заключить

Пробовал кавычки, выдает "нессответствие типов данных в выражении условия отбора" оно и понятно, в общем-то, в кавычки обычно строковые переменные заключаются, а у меня поле DateTime

Других идей нет?

Для: yuretz
пробуй выполнять запрос без "подстановки", т.е. сразу

 FizFind.SQL.Add('Select * from table where BirDate = 01/01/2001');

если формат даты соответствует (т.е. ДД/ММ/ГГГГ), то всё должно быть ОК, если нет - меняй формат на ДД-ММ-ГГГГ. А ещё попродуй дату "окружить" в диезы

 FizFind.SQL.Add('Select * from table where BirDate = #01/01/2001#');

где-то я такое встречал. Можно поискать функции явного преобразования к дате (что-то типа TO_DATE('1/1/1')).

Если ты создашь запрос с параметром и передашь туда дату как параметр все получится. Сам долго бился пока на нашел решение. Быть может есть и другой способ, но у меня получилось только так.

Дата в MS Access представляется в виде числового значения... Поэтому следует передавать не текст а число. Просто перобразуйте в число и всё будет работать.

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

BirDate имеет тип ДАТА? Если база Акцесовская, то все просто. Сначала дату надо привести в американскому стандарту. Можно воспользоваться в этом случае фунцией Format, но у меня так ничего не получилось, и писала функцию сама. Это во-первых. А во-вторых: в Access в SQL-запросах дату необходимо заключать в символы "решетка". В итоге должно получиться: #mm/dd/yyyy#

А вот базах dBase и FoxPro такая фишка не срабатывает. Так до сих пор там запрос по датам сделать не могу. Даже с помощью мастера.

Приветствую!
Решила не создавать новую тему, а воспользоваться уже существующей.
У меня примерно таже проблема, но с тем условием что БД в MSSQL.
Как организовать сравнение дат через запрос?
Дату которую нужно сравнивать с табличной вводит юзер. (это параметры InqTime0 и InqTime1)

ADOQuery1.SQL.Add('SELECT Count(DISTINCT [№_изделия]) AS Count ');
ADOQuery1.SQL.Add('FROM Изделия ');
ADOQuery1.SQL.Add(WHERE 'Время_начала_сборки BETWEEN');
ADOQuery1.SQL.Add(QuotedStr(FormatDateTime('dd/mm/yyyy',InqTime0))+' AND');
ADOQuery1.SQL.Add(QuotedStr(FormatDateTime('dd/mm/yyyy',InqTime1)));
ADOQuery1.SQL.Add(' AND Время_окончания_сборки BETWEEN');
ADOQuery1.SQL.Add(QuotedStr(FormatDateTime('dd/mm/yyyy',InqTime0))+' AND');
ADOQuery1.SQL.Add(QuotedStr(FormatDateTime('dd/mm/yyyy',InqTime1)));

Надеюсь на скорый ответ.

Margo Тут все неправльно, и главное - надо использовать параметры.

sax_ol
так и знала что будет подвох...

Параметры sql или delphi?

Э ... ну в таком выражении, тогда - delphi. Хотя это не совсем правильно, но если вам так удобнее...
Какую проблему решаете?

sax_ol
мммм...
Мне необходимо найти кол-во изделий собранных за определённый период.
В таблице есть дата начала сборки и окончания.
Пользователь вводить свои две даты и они должны сравниваться с теми что в таблице...

А какой смысл этих дат?

sax_ol
это границы того периода, за который он хочет увидеть количество собранных изделий

Ну тогда давайте "по шагам". Надо так :
Время_начала_сборки должна быть больше или равна InqTime0
и Время_окончания_сборки должна быть меньше или равна InqTime1
?

sax_ol
Да, верно.

Теперь попробуйте это положить на язык SQL.

ммм... ложила... Вот что у меня получалось

ADOQuery1.SQL.Text := 'SELECT Count(DISTINCT [№_изделия]) AS Count FROM Изделия WHERE Изделия.Время_начала_сборки >= ''%'+InqTime0+'%'' AND Изделия.Время_окончания_сборки <= ''%'+InqTime1+'%'';';

Но запись явно не верна

Пока разбираем секцию WHERE до SELECT еще дойдем ... зачем тут вставили - % ? и опять же - параметры!

sax_ol
хорошо)
эммм... параметры..

ADOQuery1.SQL.Add('Время_начала_сбоки >=');
ADOQuery1.SQL.ADD(':Q');
ADOQuery1.Parameters.ParamByName('Q').Value:= InqTime0;
ADOQuery1.SQL.Add('Время_окончания_сборки <=');
ADOQuery1.SQL.ADD(':Q1');
ADOQuery1.Parameters.ParamByName('Q1').Value:= InqTime1;

ммм...

ну вот уже лучше, только хачем такие выкрутасы с SQL.Add? просто все в 1 строку, она у вас пока не такая и большая, а параметры можно инициализировать в самом конце они от этого не пострадают

т.е. сейчас имеем
ADOQuery1.SQL.Text := 'SELECT Count(DISTINCT [№_изделия]) AS Count FROM Изделия WHERE Время_начала_сборки >= :InqTime0 AND Время_окончания_сборки <= :InqTime1';
ADOQuery1.Parameters.ParamByName('InqTime0').Value:= InqTime0;
ADOQuery1.Parameters.ParamByName('InqTime1').Value:= InqTime1;

далее надо исправить SELECT. И поэтому вопрос, кто посоветовал DISTINCT тут? зачем он тут?

sax_ol
Оно работает!
Ну наконец-то ))
Спасибо огромное))


Ну, в принципе, он не должен сильно влиять на результат. Хотя можно заменить на *.
а посоветовали преподаватели... )

Естественно, когда правильно тогда и все проще и работает.
Дело не во влиянии, а в правильности. Удачи.