В базе есть поле Date типа Date.
Как произвести отбор по этим датам допустим с 09.10.2002 по 09.11.2002

пример кода:

Код

procedure TForm1.Button1Click(Sender: TObject); begin with Table1 do begin IndexFieldNames:= 'date'; setrangestart; Table1date.AsDateTime:=11.11; //FieldByName(date).AsDateTime; SetRangeEnd; Table1date.AsDateTime:=11.12; ApplyRange; end; end;

результат параметры можно задовать вида хх.хх и даже при этом ни какого результата только куча ошибок!!!

А не проще ли использовать простейший SQL запрос?
Если же надо TTable то отфильтруй значения через TTable.Filter (хотя фильтровку не рекомендую).

Или я чего-то непонимаю?

Или используй метод SetRange (он объединяет в себе все три метода SetRangeStart, SetRangeEnd и ApplyRange)

Хотя я тебе не рекомендую  осуществлять фильтрация по индескным полям...


И еще одна заметка, фильтрация методами ApplyRange/SetRange должна производиться только по ключевым полям. Хотя у тебя это и предусмотрено, но возможно здесь у тебя какая-то загвозтка.

Цитата(Pegas @ 03.11.2002, 08:11)

А не проще ли использовать простейший SQL запрос?

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

Код

Query1.sql.text:='Select * From TableName Where (Date>:D1) and (Date<:D2)'; Query1.params.parsSql(Query1.sql.text, true); Query1.params.parambyname('d1').value:=Stringtodatetime('09.10.2002'); Query1.params.parambyname('d2').value:=Stringtodatetime('09.11.2002'); Query1.active:=true;

Далее работаешь с Query1 так как если бы это была таблица.
Код писал на вскидку так что могут быть мелкие опечатки

В твоём коде ошибка здесь:

Table1date.AsDateTime:=11.11;

Компилятор интерпретирует 11.11 как "11 целых 11 сотых". Тип TDateTime - это тип real, где целая часть количество дней прошедших с 1 января 1899 года, а дробная часть - это время...

Сенькью веримач  

Вот простой SQL код:
SELECT Date
from TableName
where beetwen '01/01/2002' and '31/01/2002'
И ненадо мучится TQuery, запусти SQLBuilder

Цитата(Cashey @ 13.11.2002, 10:31)

SELECT Date from TableName where beetwen '01/01/2002' and '31/01/2002'

В этом коде 2 ошибки, точнее неточности, которые могут стать потенциальными ошибками, именно по этому я и привёл код с параметрами. Итак:

1) Не все SQL сервера понимают строки как нечто в одинарных кавычках, некоторые требуют двойных кавычек, некоторые сервера могут быть настроены на одинарные ил двойные кавычки. Если дату передавать как параметер, то конечную кверю будет строить сам сервер, и он поставит те кавычки, которые нужны.

2) Где гарантия что формат даты одинаковый на компьютере с программой и компьютере с базой данных? У меня может стоять на клиенте русская винда с русскими настройками и '2/9/2002' будет интерпретироваться как "2 сентября", а на компьютере с базой данных стоит регионарный стандарт для Америки и эта же дата будет означать "9 февраля". (Про разделители полей даты я уже молчу). В этом случае так же параметры работают корректнее - серверу передаётся дата, а он делает кверю в соответствии со своими регионарными стандартами.

В случае работы с Oracle ему без разницы... в нем, чтобы записать дату требуется следующее (по другому он не воспринимает):

Код

dm.qOperation.Close;  dm.qOperation.SQL.Clear;  dm.qOperation.SQL.Add('INSERT INTO Shema.MyTable (ID_My, NameB, DateB)');  dm.qOperation.SQL.Add('VALUES (Shema.SEC_ID_My.NEXTVAL,'+''''+e1.Text+''', TO_DATE('''+(Date+''', ''DD.MM.YYYY HH24:MI:SS''))');  dm.qOperation.Execute;

блин, ошибка.....

в предыдущем коде ошибка, вот правильный:

Код

VAR Date_my: String; ......  Date_My := DateToStr(Date)+' '+TimeToStr(Time); dm.qOperation.Close; dm.qOperation.SQL.Clear; dm.qOperation.SQL.Add('INSERT INTO Shema.MyTable (ID_My, NameB, DateB)'); dm.qOperation.SQL.Add('VALUES (Shema.SEC_ID_My.NEXTVAL,'+''''+e1.Text+''', TO_DATE('''+Date_my+''', ''DD.MM.YYYY HH24:MI:SS''))'); dm.qOperation.Execute;

Там клавиша Edit есть для таких случаев - отредактируй ответ, а потом остальные сотри, а то между 3мя ответами уже не теряется где-то правильный...

уже выкрутился.....