Сортировка данных в таблице

[Siluet]

Здаствуйте. Пишу программу. Нужна помощь. Есть данные в БД с разными датами, необходимо вывести данные с указанным диапозоном дат..
программа прилагается

код писать не пытался т.к. понятия не имею как делать

[atihiy2010]

Надо добавить компонент Query и связать его с таблицой.

а в кнопке написать что то типа:

procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.SQL.Clear;

 Query1.SQL.Add('select * from summa where Data_Posledn BETWEEN DateTimePicker1.Date AND DateTimePicker2.Date');
  Query1.Open;
end;

Поковыряйся в коде, должно получится...

[Siluet]

BETWEEN DateTimePicker1.Date AND DateTimePicker2.Date

он на эту строчку ругается

[Serge_Bliznykov]

вообще-то, это называется не сортировка, а ВЫБОРКА данных.

посмотрите тут, с использованием параметрического запроса:
http://www.programmersforum.ru/showp...83&postcount=3

[atihiy2010]

Задача стала и мне интересной. Попробывал я с вашими параметрами, а он ругается Invalid use key:Token:Table

begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * from Table summa ');
Query1.SQL.Add('where Data_posledn between :pDate1 and :PDate2 ');
Query1.ParamByName('pDate1').Value := DateTimePicker1.Date;
Query1.ParamByName('pDate2').Value := DateTimePicker2.Date;
Query1.ExecSQL;
end;

А если забрать слово Table то ругается на Type mismatch in expression.

[Serge_Bliznykov]

а попробуйте такой код (напрример, на кнопке "Извлечь" ):

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select * from summa.db ');
  Query1.SQL.Add('where Data_posledn between :pDate1 and :pDate2 ');
  Query1.ParamByName('pDate1').DataType := ftDateTime;
  Query1.ParamByName('pDate2').DataType := ftDateTime;
  Query1.ParamByName('pDate1').Value := DateTimePicker1.Date;
  Query1.ParamByName('pDate2').Value := DateTimePicker2.Date;
  Query1.Open;

  DataSource1.DataSet := Query1;

  {а эта строчка по сути к делу не относится, просто ширину первого столбца в гриде
   принудительно задаёт - для красоты, тк сказать..}
   DBGrid1.Columns.Items[0].Width := 350;

end;

[atihiy2010]

Так ошибки нету, но и ничего не происходит. Дык скачай пример кинутый автором и попробуй. Там еще скорее всего связка елементов не та. Там есть Table1,DBGrid,DataSource. И я лично добавлял Query1 и связал его с Datasource1. А Datasource1 связан с Table1.

[Serge_Bliznykov]

Так ошибки нету, но и ничего не происходит. Дык скачай пример кинутый автором и попробуй.

дык, скачал. Попробовал. Работает. Выложить проект + exe ?!

(неужели Вы думаете, что строчка с изменением ширины 1-й колонки в DBGrid1 появилась просто так? Это в результате работы добавил. чтобы компактнее результаты поиска отображались)!


ДОБАВЛЕНО
возникла одна мысль... А Вы Query1 на форму поместили? А какого типа?
Дело в том, что я воспользовался TQuery
(хотя BDE - это sucks, отстой, зло и must die!!! но раз автор пользуется TTable - то это его выбор!! )

[atihiy2010]

Да действительно, все заработало. Разобрался где ошибался. Видимо связка компонентов была у меня неправильная. Просто надо было сразу переключить DataSet в Query1. А его самого не трогать даже... ВИНОВАТ)))
Чето автор молчит, небось завели мы его в далекие дебри)

[Siluet]

никуда не завели) Я на учебе был
киньте пож-ста переделанную прогу..