|
#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; |
#2
|
||||
|
||||
Код:
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; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
Этот пользователь сказал Спасибо Yurk@ за это полезное сообщение: | ||
J0ker00 (23.05.2013)
|
#3
|
|||
|
|||
Спасибо но проблема все равно осталась. В dbgrid не отображаются искомые данные
|
#4
|
||||
|
||||
ну значит они (даные) не попадают под указанное условие отбора.
поиск по датам, как правило, предпочитают искать по диапазону дат Код:
+ ' WHERE Заказ_робіт.Дата = BETWEEN :d1 AND :d2'; ADOQuery1.Parameters.ParamByName('d1').Value := DateFrom; ADOQuery1.Parameters.ParamByName('d2').Value := DateTo; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|