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

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

тсключение EDBEngineError [D7]

Страницы:   < 1 2 3 4 5 >

defen ©   (2009-10-21 15:16:00) 

Здравствуйте. Недавно поднимал тему о исключениях... Надовали советов,  но толком разобраться я не смог.
procedure SQLZapros;
var
SQLString:string;
begin
SQLString:='SELECT COUNT(*) AS Expr1 FROM usb WHERE id = '''+a+'''';
form1.Query1.Active:=false;
form1.Query1.SQL.Clear;
form1.Query1.SQL.Add(SQLString);
// перехват исключения
try
 form1.Query1.Active:=true;
Except On E:EDBEngineError do EjectUSB()
end;
if form1.DBText1.Caption='1' then
else
EjectUSB();
end;
подсакажите что не так. после строки form1.Query1.Active:=true; программа выдаёт ошибку при недоступной базе.

---

Сергей М.   (2009-10-21 15:38:00) [81]

> procedure SQL Zapros;
> SQLString:='SELECT COUNT(*) AS Expr1FROM usb WHERE id =


Почему же Expr1, а не Vyrazh1 ?)
Что за жуткая смесь из транслита и буржуйского языка ? Чтобы запутать вражескую разведку ?)

---

Медвежонок Пятачок   (2009-10-21 15:31:00) [82]

чудесный код.
глобальные переменные, контроль чего-то там по содержимому контролов на формах, напроч отсутствующие параметры процедур и функций.
плюс уверенность, что кроме EDBEngineError ничего плохого произойти не может.

---

Сергей М.   (2009-10-21 15:22:00) [83]

Сними крыжик "Stop On Delphi Exceptions" в Debuger Options -> Language Exceptions

---

Anatoly Podgoretsky   (2009-10-21 15:21:00) [84]

Вылазь из подполья.

---

Игорь Шевченко   (2009-10-21 15:20:00) [85]

> программа выдаёт ошибку при недоступной базе.


Секретную ошибку.

Война давно кончилась, пора перестать пускать поезда под откос.

---

Страницы:   < 1 2 3 4 5 >

Наверх