Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.19;
Скачать: 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 вся ветка

Текущий архив: 2004.09.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.047 c
3-1093239774
DennisLNC
2004-08-23 09:42
2004.09.19
строка в число


1-1094146616
bloodman
2004-09-02 21:36
2004.09.19
Почему в длл не работает try except??


14-1093517950
BorisUK
2004-08-26 14:59
2004.09.19
Автоматическое тестирование программ


1-1094547953
Иван_1
2004-09-07 13:05
2004.09.19
Чтение Word овского файла (версии Word от 97 и выше)


6-1089817437
Vova
2004-07-14 19:03
2004.09.19
подскажите как запустит или остоновит сервис