[feniXDd]

добрый день..

подскажите как грамотно сделать, чтоб в запрос попадала дата из DBDateTimeEditeh?

пишу так..

Код:

Adoquery1.Active;
Adoquery1.SQL.Text := 'SELECT [ID_товара]  FROM   [Склад] WHERE [Дата заказа] = ' + 'DBDAteTimeEditeh1.Text';
Adoquery1.Open;

[M.A.D.M.A.N.]

Наверное надо переводить в такой формат 20110424000000.

[Assistant]

использовать DateSeparator и ShortDateFormat, ибо MS Access хочет дату вида: #mm/dd/yyyy#: (делал на лету, может и не сработать, но пример должен быть понятен)

Код:

var
  m_date: string;
  old_DateSeparator: char;
  old_ShortDateFormat: string;
begin
  old_DateSeparator := DateSeparator;
  old_ShortDateFormat := ShortDateFormat;

  DateSeparator := '/';
  ShortDateFormat := 'mm/dd/yyyy';

  m_date := '#'+DBDAteTimeEditeh1.Text+'#';

  Adoquery1.Active;
  Adoquery1.SQL.Text := 'SELECT [ID_товара]  FROM   [Склад] WHERE [Дата заказа] = ' + #39 + m_date + #39;
  Adoquery1.Open;

  DateSeparator := old_DateSeparator;
  ShortDateFormat := old_ShortDateFormat;
end;