Выборка данных по дате из БД Access. Delphi 7.0

[tresheron]

Здравствуйте нужна помощь по созданию запроса на выборку данных по текущей дате из базы данных, у меня ошибка при нажатии на кнопку запроса пишет "Несоответствие типов данных в выражении условия отбора" вот код запроса:

procedure TForm1.Button10Click(Sender: TObject);
begin
   try
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT * FROM AUTO WHERE dt=''30.04.2011''');
    ADOQuery1.Active:=True;
   except
    on e:Exception do
   end;
end;

вместо двойных апострофов пробовал кавычки, //, ##, #39#39 ниче не помогает ошибка остается, может у кого есть исходник программы с выборкой данных по дате в бд Access, заранее спасибо!


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[tresheron]

С запросом на текущую дату разобрался:

procedure TForm1.Button11Click(Sender: TObject);
begin
   try
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT * FROM AUTO WHERE dt = :D');
    ADOQuery1.Parameters.ParamByName('D').Value := Date;            ADOQuery1.Open;
   except
    on e:Exception do
   end;
end;

Подскажите а как что бы в запрос подставлялась дата заданная с клавиатуры?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Подскажите а как что бы в запрос подставлялась дата заданная с клавиатуры?

смотря что Вы называете "заданная с клавиатуры"...

если по правильному - то киньте на форму TDateTimePicker
и в коде:

    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT * FROM AUTO WHERE dt = :D');
    ADOQuery1.Parameters.ParamByName('D').Value := Trunc(DateTimePicker1.DateTime);
    ADOQuery1.Open;
end;

или, если неправильно, т.е. дата в строчке, тогда банально StrToDate()

ADOQuery1.Parameters.ParamByName('D').Value := StrToDate(Edit1.Text)

[tresheron]

ага получилось, вот так работает тоже:

ADOQuery1.Parameters.ParamByName('A').Value := Edit1.Text;

Не подскажете как запретить редактирование таблицы нажатием кнопки думал чето типа этого:

DBGrid1.Options(dgEditing)=false;

но это не работает, подскажите как правильно сделать?

[Serge_Bliznykov]

как запретить редактирование таблицы нажатием кнопки

не проверял, думаю, что так:
запретить:

DBGrid1.Options := DBGrid1.Options - [dgEditing];

разрешить:

DBGrid1.Options := DBGrid1.Options + [dgEditing];

[tresheron]

Да все работает, огромное спасибо!