Ошибка при активации ADOQuery

[sasha_14-88]

при нажатии activ>true вылазиет табличка (ADOQuery1:Field'Температура'not found.) уже все перепробывал.. в чем может быть проблемма.. делаю поиск, на форме 2 ADOQuery1 в нем SQL: "SELECT AVG(baza_d.baza_temper) AS[Avg_baza_temper]
FROM baza_d" во втором SQL:"SELECT * from baza_d
WHERE (baza_temper> :temper)" еще есть компонент DataSource1 и естественно DBGrid, ну и 1 лейбел для вывода, сам вопрос по поиску звучит так "нужно определить среднюю температуру и выполнить поиск дней,когда температура была выше средней" на кнопку написал код:

procedure TForm9.Button1Click(Sender: TObject);

begin
ADOQuery2.Close;
ADOQuery2.Parameters.ParamValues['baza_temper']:=ADOQuery1baza_temper.Value;
ADOQuery2.Open;
end;

procedure TForm9.FormShow(Sender: TObject);
begin
ADOQuery1.Close;
 ADOQuery1.Open;
 Label1.Caption:='Средняя температура = '+ADOQuery1baza_temper.AsString;

 end;

end.

в чем ошибка?? буду признателен!

[Stilet]

уже все перепробывал

Ну да ) Сказки рассказывать...
Сказано же Поле "Температура" не найдена. Соответственно ты запрос составил не правильно.

[sasha_14-88]

Сообщение от Stilet

Ну да ) Сказки рассказывать...
Сказано же Поле "Температура" не найдена. Соответственно ты запрос составил не правильно.

я не силен в SQL запросах, вот и прошу помощи...

[Аватар]

При чем здесь не силен. Это элементарная невнимательность, нужно искать где эта 'Температура' в коде или dfm есть. Возможно ADOQuery не с того юнита используется

[sasha_14-88]

Сообщение от Аватар

При чем здесь не силен. Это элементарная невнимательность, нужно искать где эта 'Температура' в коде или dfm есть

в том то и дело, что все написано без ошибок орфографических..

[Serge_Bliznykov]

я не силен в SQL запросах, вот и прошу помощи...

прежде всего, проверьте, точно ли в ADOQuery1 именно такой запрос, как Вы нам показали. (можно точку останова поставить. можно в Button1Click вначале сделать ShowMessage(ADOQuery2.SQL.Text), можно текст запроса вывести куда-нибудь в Memo..
После того, как убедились, что там нет ничего лишнего (см. слово "Температура" в запросе)

Тогда перейдите в редактор полей ADOQuery1 (в режиме дизайнера формы двойной щелчок по ADOQuery1 на форме). Там УДАЛИТЕ все поля.

запустите проект. Проверьте работу.

Если что - выложите сюда архив с исходниками проекта, посмотрим вместе, что Вы там намутили...

[sasha_14-88]

Сообщение от Serge_Bliznykov

прежде всего, проверьте, точно ли в ADOQuery1 именно такой запрос, как Вы нам показали. (можно точку останова поставить. можно в Button1Click вначале сделать ShowMessage(ADOQuery2.SQL.Text), можно текст запроса вывести куда-нибудь в Memo..
После того, как убедились, что там нет ничего лишнего (см. слово "Температура" в запросе)

Тогда перейдите в редактор полей ADOQuery1 (в режиме дизайнера формы двойной щелчок по ADOQuery1 на форме). Там УДАЛИТЕ все поля.

запустите проект. Проверьте работу.

Если что - выложите сюда архив с исходниками проекта, посмотрим вместе, что Вы там намутили...

вот ссылка на сам архив с программой- http://lidars.rusfolder.net/files/42386559 девятая форма это этот горе-поиск...

[Serge_Bliznykov]

девятая форма это этот горе-поиск

А Вы зря не сделали, то, что я Вам СРАЗУ сказал!

Тогда перейдите в редактор полей ADOQuery1 (в режиме дизайнера формы двойной щелчок по ADOQuery1 на форме). Там УДАЛИТЕ все поля.

там у Вас одно поле, удалите его, полегчает....

p.s. а вообще, я бы переименовал ADOQuery1 на форме 9
и код исправил на такой:

type
  TForm9 = class(TForm)
    ADOQueryAvgTemp: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Label1: TLabel;
    ADOQuery2: TADOQuery;
    ADOQuery2baza_nomer: TAutoIncField;
    ADOQuery2baza_data: TDateTimeField;
    ADOQuery2baza_temper: TIntegerField;
    ADOQuery2baza_vid_osad: TWideStringField;
    ADOQuery2baza_kol_osad: TIntegerField;
    ADOQuery2baza_davlenie: TIntegerField;
    ADOQuery2baza_napr_vetra: TWideStringField;
    ADOQuery2baza_skor_vetra: TIntegerField;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
     avg_baza_temper : Double;
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);

begin
  ADOQuery2.Close;
  ADOQuery2.Parameters.ParamValues['temper']:= trunc(avg_baza_temper);
  ADOQuery2.Open;
end;

procedure TForm9.FormShow(Sender: TObject);
begin
 ADOQueryAvgTemp.Close;
 ADOQueryAvgTemp.Open;
 avg_baza_temper := ADOQueryAvgTemp.FieldByName('Avg_baza_temper').AsFloat;
 Label1.Caption:= 'Средняя температура = '+ FloatToStr(avg_baza_temper);
 ADOQueryAvgTemp.Close;
end;

end.

Обратите внимание, в поля формы добавлено свойство avg_baza_temper : Double;

Ну и я исправил (попутно) ещё парочку косяков...

[sasha_14-88]

Сообщение от Serge_Bliznykov

А Вы зря не сделали, то, что я Вам СРАЗУ сказал!


там у Вас одно поле, удалите его, полегчает....

p.s. а вообще, я бы переименовал ADOQuery1 на форме 9
и код исправил на такой:

type
  TForm9 = class(TForm)
    ADOQueryAvgTemp: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Label1: TLabel;
    ADOQuery2: TADOQuery;
    ADOQuery2baza_nomer: TAutoIncField;
    ADOQuery2baza_data: TDateTimeField;
    ADOQuery2baza_temper: TIntegerField;
    ADOQuery2baza_vid_osad: TWideStringField;
    ADOQuery2baza_kol_osad: TIntegerField;
    ADOQuery2baza_davlenie: TIntegerField;
    ADOQuery2baza_napr_vetra: TWideStringField;
    ADOQuery2baza_skor_vetra: TIntegerField;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
     avg_baza_temper : Double;
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);

begin
  ADOQuery2.Close;
  ADOQuery2.Parameters.ParamValues['temper']:= trunc(avg_baza_temper);
  ADOQuery2.Open;
end;

procedure TForm9.FormShow(Sender: TObject);
begin
 ADOQueryAvgTemp.Close;
 ADOQueryAvgTemp.Open;
 avg_baza_temper := ADOQueryAvgTemp.FieldByName('Avg_baza_temper').AsFloat;
 Label1.Caption:= 'Средняя температура = '+ FloatToStr(avg_baza_temper);
 ADOQueryAvgTemp.Close;
end;

end.

Обратите внимание, в поля формы добавлено свойство avg_baza_temper : Double;

Ну и я исправил (попутно) ещё парочку косяков...

Большое спасибо! побольше бы отзывчивых людей!)