[J0ker00]

Хотел сделать поиск по дате с помощью запроса sql.

Код:

procedure TForm8.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select  Заказ_робіт.Дата, Перелік_робіт.код_заказа, Перелік_робіт.Назва, Перелік_робіт.Вартість_за_1, '+
' Заказ_робіт.Количество_заказов, Заказ_робіт.Оплачено, [Вартість_за_1]*[Количество_заказов] AS Стоимость'+
' FROM  Заказ_робіт INNER JOIN Перелік_робіт ON Заказ_робіт.Код_заказа = Перелік_робіт.код_заказа'+
' WHERE Заказ_робіт.Дата= '+ d);
ADOQuery1.Active:=True;
end;

Проблема возникал в том что при вводе даты в формате 22.05.2013 выдает ошибку синтаксиса, а при вводе даты в формате 22/05/2013 в dbgrid не отображаются нужные данные. Переменную ввожу с едита.

[Yurk@]

Код:

procedure TForm8.BitBtn1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'SELECT  Заказ_робіт.Дата, Перелік_робіт.код_заказа, Перелік_робіт.Назва, Перелік_робіт.Вартість_за_1, '
    + ' Заказ_робіт.Количество_заказов, Заказ_робіт.Оплачено, [Вартість_за_1]*[Количество_заказов] AS Стоимость'
    + ' FROM  Заказ_робіт'
    + ' INNER JOIN Перелік_робіт ON Заказ_робіт.Код_заказа = Перелік_робіт.код_заказа'
    + ' WHERE Заказ_робіт.Дата = :d';
  ADOQuery1.Parameters.ParamByName('d').Value := d;
  ADOQuery1.Open;
end;

[J0ker00]

Спасибо но проблема все равно осталась. В dbgrid не отображаются искомые данные

[Yurk@]

ну значит они (даные) не попадают под указанное условие отбора.
поиск по датам, как правило, предпочитают искать по диапазону дат

Код:

    + ' WHERE Заказ_робіт.Дата = BETWEEN :d1 AND :d2';
  ADOQuery1.Parameters.ParamByName('d1').Value := DateFrom;
  ADOQuery1.Parameters.ParamByName('d2').Value := DateTo;