Delphi и база данных Access

[вася радугов]

Помогите, пожалуйста, разобраться с этими вопросами:
1) Есть у меня БД в Access, в ней таблица Приход. Вывожу ее на форму с помощью DBGrid, ADOTAble, ADODataSource. В таблице есть следующие колонки: дата прихода, наименование товара, количество, цена, сумма. Как сделать, чтобы можно было смотреть приход товара на конкретный день, т.е. хочешь посмотреть например, какой товар пришел вчера. Хотел использовать компонент DatеTimePicker, выбираю дату, но в таблице выходят все даты прихода.
2)Вывожу на печать ту же таблицу Приход. Сначала выгружаю таблицу в Excel. Аналогичный вопрос, как сделать, чтобы перед выводом на печать можно было выбирать с какой по какую дату необходимо вывести данные. Вот код, который у меня получился:

procedure TForm1.N18Click(Sender: TObject);
var
XLApp,Sheet,Colum:variant;
index,i:integer;
begin
 XLApp:=CreateOleObject('excel.application');
 XLApp.Visible:=true;
 XLApp.Workbooks.add(-4167);
 XLApp.workbooks[1].worksheets[1].name:='otchet';
 Colum:=XLApp.workbooks[1].worksheets['otchet'].Columns;
 colum.columns[1].columnwidth:=30;
 colum.columns[2].columnWidth:=20;
 colum.columns[3].columnwidth:=20;
 colum.columns[4].columnwidth:=20;
 colum.columns[5].columnwidth:=20;

 colum:=XLApp.workbooks[1].worksheets['otchet'].rows;
 colum.rows[2].font.bold:=true;
 colum.rows[1].font.bold:=true;
 colum.rows[1].font.color:=clblue;
 colum.rows[1].font.size:=14;

 sheet:=XLApp.workbooks[1].worksheets['otchet'];
 sheet.cells[1,2]:='Ведомость прихода товара';
 sheet.cells [2,1]:='Наименование';
 sheet.cells [2,2]:='Количество';
 sheet.cells [2,3]:='Цена';
 sheet.cells [2,4]:='Дата прихода';
  sheet.cells [2,5]:='Сумма';
 index:=3;
 form7.ADOtable1.First;
 for i:=0 to form7.ADOtable1.RecordCount-1 do
 begin
 sheet.cells [index,1]:=form7.ADOtable1.Fields.Fields[4].AsString;
 sheet.cells [index,2]:= form7.ADOtable1.Fields.Fields[5].AsString;
 sheet.cells [index,3]:=form7.ADOtable1.Fields.Fields[6].AsString;
 sheet.cells [index,4]:=form7.ADOtable1.Fields.Fields[8].AsString;
  sheet.cells [index,5]:=form7.ADOtable1.Fields.Fields[9].AsString;
 inc(index);
 form7.ADOtable1.Next;
end;
end;

[Vanta11a]

ADOQuery + SQL запрос.
В соседней теме как раз обсуждаем.

[вася радугов]

А как запрос прицепить к DateTimePicker?

[Streletz]

Сообщение от вася радугов

А как запрос прицепить к DateTimePicker?

Может лучше наоборот DateTimePicker к запросу? Создайте запрос с параметрами типа дата и подставляйте в них значения из DateTimePicker.

[вася радугов]

Хочу сделать так. Есть два DataTimePicker, типа один "от" такой-то даты, другой "до" такой-то даты. Напротив каждого из них СheckBox. Если CheckBox.checked=true, то DataTimePicker активен. Пишу запрос так, но выходит ошибка: Unterminated String

procedure TForm7.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true  then  begin
 form7.ADOQuery1.SQL.Add('SELECT prihod.data_prihod');
 form7.ADOQuery1.SQL.Add ('FROM prihod');
 form7.ADOQuery1.SQL.Add (' GROUP BY prihod.data_prihod ');
 form7.ADOQuery1.SQL.Add ('QuotedStr(DateToStr(DateTimePicker1.Date))')';
 end;
end;

Как исправить ошибку?

[Vanta11a]

Разобраться со строками (как формируются) и синтаксисом, потому что одна кавычка в последней строке точно лишняя.
И да, вы добавляете в строку не преобразованную в string дату, а строку вида "QuotedStr(DateToStr(DateTimePicker 1.Date))"

[вася радугов]

Вы правы. Спасибо. Последнюю кавычку убрал, ошибка исчезла. Программа запустилась.Но при нажатии на CheckBox ничего не происходит.

[Streletz]

А, ADOQuery соединяется с БД после формирования запроса. Перед динамическим формирование необходимы разъединение и очистка. После его формирования, необходимо повторное соединение. Поэтому, чтобы запрос отрабатывал необходимо слегка модифицировать Ваш код. То, что я изменил, подчёркнуто.

procedure TForm7.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true  then  
 begin
 form7.ADOQuery1.Close;
 form7.ADOQuery1.SQL.Clear;
 form7.ADOQuery1.SQL.Add('SELECT prihod.data_prihod');
 form7.ADOQuery1.SQL.Add ('FROM prihod');
 form7.ADOQuery1.SQL.Add (' GROUP BY prihod.data_prihod ');
 form7.ADOQuery1.SQL.Add ('QuotedStr(DateToStr(DateTimePicker1.Date))')';
 form7.ADOQuery1.Open;
 end;
end;

К стати, ADOQuery связан с каким-нибудь DBGrid или другим компонентом из DataControls?

[вася радугов]

ADOQuery связан с DBGrid , в который я вывожу свою таблицу.

Исправил код,

if checkbox1.Checked=true  then  begin
 form7.ADOQuery1.Close;
 form7.ADOQuery1.SQL.Clear;
 form7.ADOQuery1.SQL.Add('SELECT prihod.datа_prihod');
 form7.ADOQuery1.SQL.Add ('FROM prihod');
 form7.ADOQuery1.SQL.Add (' GROUP BY prihod.datа_prihod ');
 form7.ADOQuery1.SQL.Add (' QuotedStr(DateToStr(DateTimePicker1.Date)');
 form7.ADOQuery1.Open;
 end;

но теперь когда ставишь галочку в Сheckbox выходит ошибка:

Project1.exe raised exception class EOLeException with message 'Ошибка синтаксиса (пропущен оператор) в выражении запроса prihod.data_prihod QuotedToStr (dateToStr(DataTimePicker1.Date)''. Process stopped. Use Step or Run to continue.

С чем это связано? До этого же не было ошибки?

[Streletz]

Ошибки просто не было видно, по той простой причине, что у Вас не отрабатывал запрос. Теперь, когда запрос поступает в БД, ядро СУБД, русским языком пишет об ошибке синтаксиса.
Проверяйте и исправляйте запрос. Проверьте формат строкового представления даты. Для того, чтобы Access его правильно воспринял оно должно соответствовать определённым требованиям.
В помощь: проблема с датой в Access.