![]() |
|
#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; |