Как занести текущую дату в поле таблицы типа "Дата"?

[Tanzor69]

текст запроса:

Insert into storage (product_name, quantity,receiving_date,tech_type,office,provider)
values
( :product_name, :quantity, :receiving_date, :tech_type, :office, :provider)

вот весь код процедуры:

if Form9.ShowModal=mrOK then begin
  with DataModule2.ADOQueryMainAdd do begin
      Parameters.ParamByName('product_name').Value:=Form9.Edit1.Text;
      Parameters.ParamByName('quantity').Value:=Form9.Edit2.Text;
      Parameters.ParamByName('receiving_date').Value:=Form9.DateTimePicker1.Date;
      Parameters.ParamByName('tech_type').Value:=Form9.DBLookupComboBox1.KeyValue;
      Parameters.ParamByName('office').Value:=Form9.DBLookupComboBox2.KeyValue;
      Parameters.ParamByName('provider').Value:=Form9.DBLookupComboBox3.KeyValue;
      ExecSQL;
  end;
  DataModule2.ADOQuery1.Close;
  DataModule2.ADOQuery1.Open;
end;

если закомментировать именно строчку Parameters.ParamByName('receiving_d ate').Value:=Form9.DateTimePicker1. Date; то всё работает и БД записывается информация из других полей.

А если нет - то появляется сообщение " Несоответсвие типов данных ... "

[Аватар]

TDateTimePicker выдает данныех типа TDate

На самом деле этот TDate ни чем не отличается от TDateTime и возвращается дата с временем

И receiving_date - какой тип в таблице? Если символьный - ошибка обеспечена

[Serge_Bliznykov]

заходите в БД, открывайте структуру таблицы storage и смотрите тип поля receiving_date

исходя из этого и исправляйте...

[Tanzor69]

В таблице БД стоит тип у этого поля дата/время. В запросе ADOQueryMainAdd у параметра receiving_date даже поменял тип на ftDateTime. Что у него за несоответствие я не знаю. Щас попробую поставить вместо DateTimePicker1 обычный эдит, проверю так.

[Tanzor69]

Не, не в DateTimePicker'e дело. Всё равно пишет - Несоответствие типов данных в выражении условия отбора. Хоть в параметр receiving_date передавать значение типа TDate хоть String.

[Аватар]

Так работает?

var d: TDateTime;

d:=Trunc(Form9.DateTimePicker1.Date); 
Parameters.ParamByName('receiving_date').Value:=d;

И типы у параметров не трогайте

[Tanzor69]

неа, и так не работает. Всё равно не соответствие типов данных

[Serge_Bliznykov]

база в MS Accecc и проект не секретные?
Тогда запакуйте в архив и БД и исходники проекта и архив выкладывайте сюда на форум. Посмотрим, что у Вас за чудо-чудное, диво-дивное...

[Tanzor69]

кстати пока дальше работа не идет, решил пока обратное действие произвести, для дальнейшего редактирования вывел значения полей на форму, и вот эта запись отлично работает

Form9.DateTimePicker1.Date:=DataModule2.ADOQuery1.FieldByName('receiving_date').AsDateTime;

[Tanzor69]

Всё, решил сам проблему. Это конечно ппц как всё просто оказалось.
Надо было просто изменить

Parameters.ParamByName('receiving_date').Value:=Form9.DateTimePicker1.Date;

на

Parameters.ParamByName('receiving_date').Value:=Form9.DateTimePicker1.DateTime;