| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подскажите как заменить ADOTable на ADOQuery [D7]

ceval ©   (2004-08-25 00:52:00) 

Добрый вечер всем
Подскажите как заменить ADOTable на ADOQuery
есть строка
if DBGrid1.DataSource.DataSet.Active then
 if (Fmain.ADOTable1.TableName='ktcp') or (Fmain.ADOTable1.TableName='\old\ktcp')
    then    F_up_ktcp.showmodal
    else But_sort.Enabled;

как сделать тоже самое с ADOQuery

т.е Если в DBGride открыта таблица ktcp или old\ktcp то появляется форма .....
   
и еще на форме выбираешь как упорядочить (Упорядоченно по изделию,Упорядоченно по узлу и т.д)
   
         ..... . . .
 case RG1.ItemIndex of
       
         0:   Fmain.ADOTable1.IndexFieldNames:='oicc;oicb' ;
         1:   Fmain.ADOTable1.IndexFieldNames:='oddcc;oddcb';
          ........  . . . .......
         5:   close;
                    end;

  if RG1.ItemIndex=0 then Fmain.Label.Caption:='Упорядоченно по изделию';
   if RG1.ItemIndex=1 then  Fmain.Label.Caption:='Упорядоченно по узлу ';
                     ....  .. . . .   .  . . .
Как заменить ? Я поставил так
0: Fmain.adoQuery1.SQL.Add('select * from ktcp order by oicc,oicb')
при нажатии все исчезает и остается пустой DBGrid

---

KSergey   (2004-08-25 11:19:00) [1]

А зачем что-то менять?

---

Desperado   (2004-08-25 10:54:00) [2]

Все правильно... при изменении SQL запроса набор данных закрывается.
Самый тупой способ это седлать так:
0: begin
    Fmain.adoQuery1.Close;
    Fmain.adoQuery1.SQL.Clear;
    Fmain.adoQuery1.SQL.Add('select * from ktcp order by oicc,oicb');
    Fmain.adoQuery1.Open;
  end;

---

Наверх