Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

except для несуществующей таблице [D5, D6]


alexmc ©   (2003-09-12 09:23:00) 

Народ нужна помощ.
Есть база данных в mdb
Как по средсвом обработки исключения определить наличие таблицы.
Напр:
q1.close;
q1.sql.clear;
q1.sql.add("select * from new");
try
q1.open;

except
???? //
end;

В данном случае в базе отсуствует таблица new
и при открытии произойдет ошибка
Как его избежать и продолжить работу приложения
Заранее благодарен


alexmc   (2003-09-18 07:59:00) [1]

Народ проблема решилась Так

function tform1.check_db():boolean;
begin
result:=true;
try
q1.Close;
q1.SQL.Clear;
q1.SQL.Add("select * from new");
q1.open;
except
on EOleException do result:=false;
end;
end;


WihOut Any ...   (2003-09-18 07:59:00) [2]

If Table.Exist then


alexmc   (2003-09-18 06:54:00) [3]

Да Конечно
Просто задача сводиться к обработки исключения прогаммным способом.


Reindeer Moss Eater   (2003-09-12 09:25:00) [4]

Приложение умеет работать без таблицы new?


Наверх

Титульная страница Поиск, карта сайта Написать письмо