[Zhigalov]

Сообщение от M.A.D.M.A.N.

Код:

  with qry1.Parameters.AddParameter do
  begin
    Name := 'param1';
    Value := FormatDateTime('ddmmyy hh:mm:ss.000', DateTimePicker1.DateTime));
  end;
  qry1.SQL.Add('select ... where ... SimpleTime >= :param1...');
  qry1.ExecSQL;

Не льзя веть выбрать в пикере и дату и время одноврменно придется создовать два пикера в одном будет дата в другом время.
Так вот сделать что ли?

Код:

    Name := 'param1';
    Value := FormatDate('yymmdd', DateTimePicker1.DateTime));
    Name := 'param2';
    Value := FormatDateTime('hh:mm:ss.000', DateTimePicker2.DateTime));
 
  qry1.SQL.Add('select ... where ... SimpleTime >= :param1+:param2...');