Нужен срочно помощь по sql запросами (ADO)

[Shingis]

спасибо Аватар!
Что то не хочет(((
Аватар Я сделал так по вашему коду:

procedure TForm1.Button2Click(Sender: TObject);
var oper_date:TDateTime;
begin
  oper_date:=Trunc(DateTimePicker1.Date);
  ADOQuery1.Active:=False;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='SELECT Льготы,Пол,'+
                      '    SUM(IIF(Year(Дата_поступления)=Year(:operdate1),1,0)) AS Count1,'+
                      '    SUM(IIF(Дата_выпуска is null,1,0)) AS Count2,'+
                      '    SUM(IIF(Year(Дата_выпуска)=Year(:operdate2),1,0)) AS Count3'+
                      '  FROM DNK'+
                      '  WHERE Льготы IN ("Численность лиц, приравненных по льготам и гарантиям к участникам войны и инвалидам войны","Численность инвалидов 1 и 2 групп старше 18 лет") AND Пол IN ("Муж","Жен")'+
                      '  GROUP BY Льготы,Пол';
  ADOQuery1.Parameters.ParamByName('operdate1').Value :=oper_date;
  ADOQuery1.Parameters.ParamByName('operdate2').Value :=oper_date;
  try
    ADOQuery1.Active:=True;
  except
   MessageDlg('Не могу показать ))', mtError, [mbOK], 0);
  end;

end;

end.

operdate1 b2 указал в параметрах АДОКуери и DataType указал ftDateTime

При запуске норма компилируется но при нажатие на буттон2 дает ошибка вот таком виде:
Project1.exe raised exception class EOLeException with message "Отсутствует значение для одного или нескольких требуемых параметров" Process stoped. Use step or Run to continue

[Shingis]

спасибо Аватар!
Что то не хочет(((
Аватар Я сделал так по вашему коду:

procedure TForm1.Button2Click(Sender: TObject);
var oper_date:TDateTime;
begin
oper_date:=Trunc(DateTimePicker1.Da te);
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='SELECT Льготы,Пол,'+
' SUM(IIF(Year(Дата_поступления)=Year (perdate1),1,0)) AS Count1,'+
' SUM(IIF(Дата_выпуска is null,1,0)) AS Count2,'+
' SUM(IIF(Year(Дата_выпуска)=Year(p erdate2),1,0)) AS Count3'+
' FROM DNK'+
' WHERE Льготы IN ("Численность лиц, приравненных по льготам и гарантиям к участникам войны и инвалидам войны","Численность инвалидов 1 и 2 групп старше 18 лет") AND Пол IN ("Муж","Жен")'+
' GROUP BY Льготы,Пол';
ADOQuery1.Parameters.ParamByName('o perdate1').Value :=oper_date;
ADOQuery1.Parameters.ParamByName('o perdate2').Value :=oper_date;
try
ADOQuery1.Active:=True;
except
MessageDlg('Не могу показать ))', mtError, [mbOK], 0);
end;

end;

end.

operdate1 b2 указал в параметрах АДОКуери и DataType указал ftDateTime

При запуске норма компилируется но при нажатие на буттон2 дает ошибка вот таком виде:
Project1.exe raised exception class EOLeException with message "Отсутствует значение для одного или нескольких требуемых параметров" Process stoped. Use step or Run to continue
Shingis на форуме Добавить отзыв для Shingis Пожаловаться на это сообщение

[Аватар]

operdate1 b2 указал в параметрах АДОКуери и DataType указал ftDateTime

Убери оттуда все

[Shingis]

Не получилось, точна такая ошибка
try
ADOQuery1.Active:=True;------Ошибка сюда указывает
except
MessageDlg('Не могу показать ))', mtError, [mbOK], 0);

[Аватар]

Не получилось, точна такая ошибка

Значит не правильно сделал. Код рабочий 100%

[Shingis]

Сработал спасибо большое Аватар!
А с Count1,2,3 ни как не могу вытащить значение в другу таблицу((
Спс Вам большоеееее!

[Shingis]

А с Count1,2,3 ни как не могу вытащить значение в другу таблицу((
не могу сделать ни как. кто нибудь откликнитесь плиииз