23.07.2011, 15:42
|
|
Sir Richard Abramson
|
|
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
|
|
Код:
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;
|