![]() |
|
|
#1
|
|||
|
|||
|
Хотел сделать поиск по дате с помощью запроса 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; |