Скачать: CL | DM;

Подскажите как заменить ADOTable на ADOQuery   Найти похожие ветки 

← →
ceval   (2004-08-25 00:52) [0]

Добрый вечер всем
Подскажите как заменить 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

---

← →
Desperado ©   (2004-08-25 10:54) [1]

Все правильно... при изменении 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;

---

← →
KSergey ©   (2004-08-25 11:19) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c