Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как обойти все объекты в DataModule [D7, ACCESS2002]

sergg © (2004-04-20 22:52:00)
Уважаемые мастера подскажите пожалуйста,
как можно обойти в DataModule, скажем все ADOTable и задать им свойство Active:=true
а ADOConnection свойство Connected:=true?
А то писать длинный список всех таблиц не удобно.

Курдль (2004-04-21 11:45:00) [1]

> Вы мне неоценимо помогли.:)))

Сарказм & ирония? :)))
Ну, давайте я Вам помогу. Вот мой совет - никогда не делайте открытия Датасетов без надобности. Или у Вас есть такая надобность? Тогда опишите свою проблему - мы все подумаем. А то Вы бросили темку и что? Ждали, что утречком откроете сайт - а там "на блюдечке с каёмочкой..."?

sergg (2004-04-21 11:42:00) [2]
Спасибо вам уважемые.;)
Вы мне неоценимо помогли.:)))

Алхимик (2004-04-21 00:54:00) [3]

> [5] Anatoly Podgoretsky © (21.04.04 00:41)
> А нервный пользователь может расколашматить монитор

Это HardWare проблема... :)

Anatoly Podgoretsky (2004-04-21 00:41:00) [4]
А нервный пользователь может расколашматить монитор

kaif (2004-04-21 00:30:00) [5]
Да...

Рекомендую еще вот так написать:

Screen.Cursor := crHourGlass;
try
with DataModule do
for i := 0 to ComponentCount - 1 do
if Components[i] is TAdoTable then
with Components[i] as TAdoTable do
Active := true;
finally
Screen.Cursor := crDefault;
end;

Чтобы юзер не нервничал.

Алхимик (2004-04-21 00:19:00) [6]
Что то вроде
for i := o to DataModule.ComponentCount-1 do
if (DataModule.Components[i] is TAdoTable) then
(DataModule.Components[i] as TAdoTable).Active := true;

Нехорошо правда...

sniknik (2004-04-20 23:52:00) [7]
> ADOTable
???
и насколько длинен список? и сколько у тебя памяти в машине?

Курдль (2004-04-20 23:37:00) [8]
Я не могу себе представить в страшном сен, зачем это понадобилось?

Наверх

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