Проблема при работе с датами sql server в delphi

[Fellot]

Доброго времени суток всем!!! Помогите, пожалуйства, с проблемкой! Результат запроса не возвращается в DBEdit. Данная проблема возникает только при работе с датами, при работе с целыми числами все "ок"!

procedure TForm14_ADD.DBLookupComboBox4CloseUp(Sender: TObject);
var a:string;
begin
  ADOQuery2.Active:=False;
  ADOQuery2.Connection:=Form2_ot4etBSO.ADOConnection1;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('SELECT data_prib');
  ADOQuery2.SQL.Add('FROM raspisanie');
  a:=formatdatetime('yyyy-mm-dd hh:mm:ss',DBLookupComboBox4.KeyValue);
  ADOQuery2.SQL.Add('WHERE data_otpr ='+''''+a+'''');
  ADOQuery2.Active:=True;
  ADoQuery2.ExecSQL;

[vovk]

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

Доброго времени суток всем!!! Помогите, пожалуйства, с проблемкой! Результат запроса не возвращается в DBEdit. Данная проблема возникает только при работе с датами, при работе с целыми числами все "ок"!

procedure TForm14_ADD.DBLookupComboBox4CloseUp(Sender: TObject);
var a:string;
begin
  ADOQuery2.Active:=False;
  ADOQuery2.Connection:=Form2_ot4etBSO.ADOConnection1;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('SELECT data_prib');
  ADOQuery2.SQL.Add('FROM raspisanie');
  a:=formatdatetime('yyyy-mm-dd hh:mm:ss',DBLookupComboBox4.KeyValue);
  ADOQuery2.SQL.Add('WHERE data_otpr ='+''''+a+'''');
  ADOQuery2.Active:=True;
  ADoQuery2.ExecSQL;

не знаю как там у вас DBLookupComboBox4.KeyValue
а не легче просто взять данные из датасета, и пользоватся параметрами?

  ADOQuery2.SQL.Add('WHERE data_otpr =:date_);
 ADOQuery1.Parameters.ParamByName('date_').Value:=(тут TDateTime);

и зачем

ADoQuery2.ExecSQL

?

[Fellot]

честно не знаю как легче ) уму разуму никто не учил...как получается так и делаю ) спасибо за урок, сейчас попробую сделать!

[Fellot]

vovk, можешь поподробней написать, что-то у меня ничего не выходит?!!