Подскажите как заменить 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;

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

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