Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 05.02.2013, 16:14
Mister_Li Mister_Li вне форума
Прохожий
 
Регистрация: 29.01.2013
Сообщения: 17
Репутация: 10
По умолчанию не находит параметр

Помогите пожалуйста с запросом. Ошибка : 'Параметр f не найден'
Код:
procedure TForm2.RadioButton1Click(Sender: TObject);
   begin
cxgrid1.Visible:=true;
dbchart1.Visible:=false;
  with ADOQuery1 do
   begin
   Active:=false;
     SQL.Clear;
     SQL.Add('Set dateformat dmy ');
     SQL.Add('select archive.DT,Archive.Value From archive,GZU where archive.GZUID=gzu.ID and gzu.name: f and (Archive.ID between 351 and 358) and (archive.DT between :DateNach   and :DateKon )' );
   ADOQuery1.Parameters.ParamByName('dateNach').DataType:= ftDateTime;
    ADOQuery1.Parameters.ParamByName('dateKon').DataType:= ftDateTime;
    ADOQuery1.Parameters.ParamByName('f').DataType:= ftstring;
    ADOQuery1.Parameters.ParamByName('f').value:= Combobox1.Text;
    ADOQuery1.Parameters.ParamByName('dateNach').Value:= DateTimePicker1.Date;
    ADOQuery1.Parameters.ParamByName('dateKon').Value:= DateTimePicker2.Date;
    Active:=true;
          if ADOQuery1.RecordCount = 0 then
                              begin
                                 showMessage('Замеров за данный период нет!');
      end
   end;
   end;
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:05.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025