тсключение 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;

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

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

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

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

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

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

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

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

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

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

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

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

"Unknown database

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

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

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

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

Это как ?)

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

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

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

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

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