Как dataset сделать активным?

← →
mfender (2003-09-11 01:10) [0]

for n:=0 to base.DataSetCount-1 do
begin
if (base.DataSets[n] is TTable) or (base.DataSets[n] is TQuery) then
base.DataSets[n].Active:=True;
end;

по понятным причинам не работает. А как бы их включить, не используя Table1.Active:=True; Table2.Active:=True; .... TableN.Active:=True; ?

← →
jack128 (2003-09-11 01:41) [1]

а зачем проверка is Ttable и is Tquery?

TADOConnection.DataSets
property DataSets[Index: Integer]: TCustomADODataSet

имхо (base.DataSets[n] is TTable) or (base.DataSets[n] is TQuery) всегда false...

← →
mfender (2003-09-11 02:36) [2]

на всякий случай, мало ли, какие датасеты могут попасться, а мне нужно только TTable и TQuery. Но это не важно. Все равно это не работает, т.к. DataBase.DataSetCount показывает только количество активных датасетов. А мне как раз требуется их привести в активное состояние. Я решил сию задачу проще:

for n:=0 to DataModule.ComponentCount-1 do
begin
if (DataModule.Components[n] is TTable) or (DataModule.Components[n] is TQuery) then
Active:=True;
end;

← →
mfender (2003-09-11 03:18) [3]

Немного неправильно изложил. Вот так получилось:
with dm do begin for n:=0 to ComponentCount-1 do begin if (Components[n] is TTable) then TTable(FindComponent(Components[n].Name)).Active:=True; if (Components[n] is TQuery) then TQuery(FindComponent(Components[n].Name)).Active:=True; end; end;

← →
Кщд (2003-09-11 05:48) [4]

почему бы не просто TTable(Components[n])? Зачем искать то, что уже имеем? :)

← →
mfender (2003-09-11 06:14) [5]

Хочется конкретики. Убедится, что включит он именно эту TTable.

← →
Rol (2003-09-11 10:19) [6]

ну а какую ж ещё :)

Как dataset сделать активным? Найти похожие ветки