Поиск по дате. в чем ошибка??

[missy]

Помогите, работу нужно сдавать. Никак поиск не могу доделать. По-разному пробовала. Пояснение все строки работают кроме, относящейся к DateTimePicker1. Показывает Invalid use of keyword. Token Date=? Line number 4. Что здесь не так?
procedure TForm6.Button2Click(Sender: TObject);
begin
DataSource1.DataSet:=Query1;

try

with Query1 do
begin
close;
sql.Clear;
sql.Add('Select *');
sql.Add('From adm');
sql.Add('Where adm.Fam_istez=:Fam_istez1 or Fam_otvet=:Fam_otvet1 or Fam_sud=:Fam_sud1');
sql.Add( 'or Ul=:Ul1 or Solution=:Solution1 or Date=:Date1');
ParamByName('Fam_istez1').AsString: =Edit1.Text;
ParamByName('Fam_otvet1').AsString: =Edit2.Text;
ParamByName('Fam_sud1').AsString:=C omboBox1.Text;
ParamByName('Ul1').AsString:=ComboB ox2.Text;
ParamByName('Solution1').AsString:= ComboBox3.Text;
ParamByName('Date1').AsDateTime:=Da teTimePicker1.Date;
open;
end;


except
on error: EDatabaseError do begin
MessageDlg('Ïðè âûïîëíåíèè çàïðîñà ïðîèçîøëà îøèáêà:'+#13+#13+
error.Message ,mtError,[mbOK],0);
end;
end;
end;

[konkurent]

ребят вы форум сначала почитайте может и полезное найдёте

[missy]

Сообщение от konkurent

ребят вы форум сначала почитайте может и полезное найдёте

Целые сутки искала не спала, пробовала разные варианты из форума. ВТОРАЯ БД в моей жизни и то, теперь я знаю в чем ошибка. Легко советовать читать у других, а самому предложить помощь? .... уже не нужна. Спасибо, KONKURENT за доброту

[Pitbull]

пропустила "prepare"
......
query1.prepare;
......
query1.params[5].asdatetime:=DateTimePicker1.dateTi me;
Query1.exec;

или по имени, как ты написала. И по-моему, "asdatetime" не обязательно писать....

[missy]

от 'prepare' не зависит. У меня все работает уже. Просто "
Описание ошибки или проблемы, ее вызывающей: В запросе встретилось ключевое слово там, где его не должно быть. Чаще всего эта ошибка возникает из-за того, что имя поля в таблице совпадает с зарезервированным словом (наиболее распространённый пример - поле с именем Date). Самое лучшее - это переименовать поля таблицы так, чтобы их имена не совпадали с зарезервированными словами. Если это по какой-то причине невозможно, надо сформировать запрос так, чтобы было понятно, что эти слова - именно имена. Как именно это сделать, зависит от используемой СУБД. Например, для Access и MS SQL Server нужно заключить эти имена в квадратные скобки, для некоторых других СУБД - в двойные кавычки."Просто переименовала! А запрос-то мой все-таки правильный.

[jalol]

попробуйте в место
ParamByName('Date1').AsDateTime:=Da teTimePicker1.D ate;
ParamByName('Date1').AsVariant:=Dat eTimePicker1.D ate;

[hoza_syl]

Попробуй заменить строку

ParamByName('Date1').AsDateTime:=Da teTimePicker1.D ate;

на
ParamByName('Date1').AsDateTime:=Da teTimePicker1.DateTime;