Скачать: CL | DM;

тсключение EDBEngineError   Найти похожие ветки 

← →
defen ©   (2009-10-21 15:16) [0]

Здравствуйте. Недавно поднимал тему о исключениях... Надовали советов,  но толком разобраться я не смог.
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:20) [1]

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


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

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

---

← →
Anatoly Podgoretsky ©   (2009-10-21 15:21) [2]

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

---

← →
Сергей М. ©   (2009-10-21 15:22) [3]

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

---

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

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

---

← →
Сергей М. ©   (2009-10-21 15:38) [5]

> procedure SQLZapros;
> SQLString:="SELECT COUNT(*) AS Expr1 FROM usb WHERE id =


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

---

← →
defen ©   (2009-10-21 15:41) [6]

Все те же лица! :) Добре...

---

← →
Anatoly Podgoretsky ©   (2009-10-21 15:41) [7]

Тут просто китайский метод, ноль фантазии.

---

← →
Медвежонок Пятачок ©   (2009-10-21 15:44) [8]

Вот интересно мне, что движет эстетами, которые кладут TQuery на Form1, а процедуру обработки оформляют как ordinal procedure.

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

---

← →
defen ©   (2009-10-21 15:46) [9]

У Вас, я так полагаю своеобразный способ ответов...

---

← →
Медвежонок Пятачок ©   (2009-10-21 15:47) [10]

Except
On E:EDBEngineError do EjectUSB()
end;

А если не EDBEngineError, то кто вражескую флешку с секретными картами аеродрома выплюнет?

---

← →
defen ©   (2009-10-21 15:49) [11]

:) Дык поможете?

---

← →
Медвежонок Пятачок ©   (2009-10-21 15:50) [12]

Ну например вот так

Except
EjectUSB()
end;

---

← →
Сергей М. ©   (2009-10-21 15:52) [13]

Кто-кто ..
Он же сам сказал, что все флешки проходят через него)
Т.е. если стрёмный софт не справился с плевательной задачей, то автор софта всегда рядом на шухере - сам выдернет)

---

← →
Сергей М. ©   (2009-10-21 15:54) [14]

> Ну например вот так


И тоже не факт что выплюнет..
Мало ли чудес скрывается в теле EjectUSB - та ведь тоже немаловероятно зачатие непредвиденных исключений ..

---

← →
Медвежонок Пятачок ©   (2009-10-21 15:56) [15]

вообще конечно своеобразный юмор в этом есть.
делаем запрос, который считает каунт.
к запросу судя по всему прикручен dbtext.
открываем запрос и бегом бежим смотреть что там в дбтексте нарисовалось.
и если флешка зарегистрирована только один раз, то позволяем ей пользоваться.

почти даже жаль, что задорнов с петросяном еще не освоили тему хумора в исходниках.

---

← →
defen ©   (2009-10-21 15:58) [16]

Не доходит до Except. Стопорит на try Query1.Active:=true;

---

← →
Плохиш ©   (2009-10-21 15:59) [17]

> defen ©   (21.10.09 15:58) [16]

Что в ответе [3] не понятно?

---

← →
Медвежонок Пятачок ©   (2009-10-21 15:59) [18]

Не доходит до Except

Да ладно. Нас не обманешь.
Либо стопорится на
form1.Query1.Active:=false;

Либо доходит до перехватчика.

---

← →
Anatoly Podgoretsky ©   (2009-10-21 16:01) [19]

> Не доходит до Except. Стопорит на try Query1.Active:=true;

Дольше ждать нужно.

---

← →
defen ©   (2009-10-21 16:01) [20]

Не вижу юмора. Объясни...

---

← →
Игорь Шевченко ©   (2009-10-21 16:02) [21]

http://ln.com.ua/~openxs/articles/smart-questions-ru.html

---

← →
defen ©   (2009-10-21 16:03) [22]

> Да ладно. Нас не обманешь.Либо стопорится на form1.Query1.
> Active:=false;Либо доходит до перехватчика.

Врать мысла не вижу. Говорю как есть.

---

← →
Сергей М. ©   (2009-10-21 16:04) [23]

> Не доходит до Except


Это он тебе сам сказал, что до него не доходит ?
На основании сделано чего такое умозаключение ?

---

← →
Anatoly Podgoretsky ©   (2009-10-21 16:07) [24]

> Врать мысла не вижу. Говорю как есть.

Именно что говоришь, а Москва словам не верит.

---

← →
defen ©   (2009-10-21 16:07) [25]

Прохожу код построчно... F7

---

← →
Плохиш ©   (2009-10-21 16:08) [26]

> defen ©   (21.10.09 16:07) [25]

Образование в анкете поправь.

---

← →
clickmaker ©   (2009-10-21 16:09) [27]

> после строкиform1.Query1.Active:=true;  программа выдаёт
> ошибку при недоступной базе

а чего в этом странного? не понимаю

---

← →
Сергей М. ©   (2009-10-21 16:11) [28]

> Прохожу код построчно... F7


Ну и ?
Вот дошагал ты успешно до

form1.Query1.Active:=true;

делаешь очередной шаг и что видишь выскочившее окошко с дословной фразой "Я, программа, выдаю ошибку при недоступной базе" ?)

---

← →
Anatoly Podgoretsky ©   (2009-10-21 16:15) [29]

> У Вас, я так полагаю своеобразный способ ответов...

А ты у нас стойкий партизан...

---

← →
defen ©   (2009-10-21 16:17) [30]

Хм... почти.
// Project raised exeption class EDBEngineError with message "Unknown database.

---

← →
defen ©   (2009-10-21 16:19) [31]

> А ты у нас стойкий партизан...

Уж и не знаю как расценивать подобное высказывание...

---

← →
Сергей М. ©   (2009-10-21 16:23) [32]

> defen ©   (21.10.09 16:17) [30]


Ну так разуй наконец глаза на [3] !

И разве это штопор ?)
Вполне внятная реакция на ожидаемое)

---

← →
Медвежонок Пятачок ©   (2009-10-21 16:25) [33]

// Project raised exeption class EDBEngineError with message "Unknown database.

Ну и испугался что ли?
Жми F9 и проваливайся в свой еджект

---

← →
defen ©   (2009-10-21 16:25) [34]

Я уже отработал этот вариант. Паботает. Но мне хотелось бы разобраться с исключениями. :)

---

← →
Медвежонок Пятачок ©   (2009-10-21 16:28) [35]

"Unknown database

как же так, дифен?
такая важная система на страже родины, и вдруг анкновн датабасе.

"а если бы он вез патроны" ?

---

← →
defen ©   (2009-10-21 16:29) [36]

> Ну и испугался что ли?Жми F9 и проваливайся в свой еджект
Не жмется.... Всё рухает насмерть...

---

← →
Сергей М. ©   (2009-10-21 16:32) [37]

> Всё рухает насмерть


Это как ?)

---

← →
defen ©   (2009-10-21 16:32) [38]

> как же так, дифен?такая важная система на страже родины,
>  и вдруг анкновн датабасе.

я думаю не сложно догадаться, что один из способов обойти отключение флешки, вытащить шнурок из сетевухи. Так что стёб в не зачёт! :)

---

← →
Медвежонок Пятачок ©   (2009-10-21 16:34) [39]

почему не зачет?
а ну как подойдет генерал с планом наступления на флешке?
а там ему отлуп так как анкновн датабас.

---

← →
Медвежонок Пятачок ©   (2009-10-21 16:35) [40]

и все.
трибунал за пособничество врагу и измену родине

---

Страницы: 1 2 3 вся ветка

Скачать: CL | DM;



Память: 0.53 MB
Время: 0.021 c