Как обработать исключение?

[XPAiN]

Связка Delphi + ADO + Access. База находится на сетевом диске. Когда пропадает свет, компьютеры остаются на упсах, а вот сеть падает, приложенеи начинает ругаться что "Ядро базы данных Jet не может найти входящий запрос". Как я понимаю оно обрабатывается в TADOConnection. Он располагается на DataModule. Как к примеру заставить приложение вывести Messagebox и закрыться?
И вопрос на эту же тему. Люди пытаются подключится а сети по прежнему нет, начинают валится Acess Violation. Обрабатывается как я понимаю так же?

[Stilet]

Люди пытаются подключится а сети по прежнему нет, начинают валится Acess Violation

Try...Except...end;

[D-mon]

Там де ты коннектишься к базе поставь Try ... except ... end; вот те и обрабртка ислючения... Проверяй в except если TADOConnection.Connect=false то закрывай программу.

[XPAiN]

Проблема в том что таблицы сразу открыты в программе. Т.е. стоит Active:=true. И их не одна штука, чтобы их открывать програмно.Сразу подразумевается что база лежит в том месте где должна.

[D-mon]

ну это глупо что все они открыты ещё до запуска... Поэтому и ничего не выйдет у тя... Как по мне... Переделывать надо... А иначе никак.

И небось используешь ТТэйбл. Лутше всего использовать в таких случаях ТКвэри...

[XPAiN]

Глупо. Но писать начинал не я. А там таблиц уже штук 40. и Ttable и TQuery

[Stilet]

А там таблиц уже штук 40

Что мешает их открывать в цикле?

[XPAiN]

хм.. Поясните пожалуйста подробней. Как можно обратится к таблице через номер и как?

[Stilet]

Я правильно понимаю что для каждой таблице создан отдельный компонент?
Тогда примерно так:

var i:integer;
begin
for i:=0 to Form1.ComponentCount-1 do begin
   if Form1.Components[i].ClassName='TADOTable' then
   /// Тут мы чет с ним делаем.
end;

Усек смысл?

Вообще-то правильно сказали при таких раскладах не мешало бы переделать, ато 40 компонентов в контейнере это убиться и не жить...

[XPAiN]

ага Спасибо