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

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

Игнор ошибки!!! [D7, IB6.x]


Goast ©   (2005-12-09 18:01:00) 

Здравствуйте мастера!!!

Вопрос с Interbase. Каждые 5 мин приходят данные и я их  «загоняю» в таблицу….
insert into telephon values (1,1,1,1); но вот проблема иногда приходят не нежные данные и программа выдает ошибку типа «несоответствие данных» и программа подвисает пока я не нажму ок на вылетевшей ошибке….так вот не знаю поняли вы меня или нет…как мне сделать так что бы если sql запрос не выполнился то программа не выдавала бы ошибки а продолжала бы работать дальше (игнорируя эти данные).фуф….вроде все….Пасибо


Goast   (2005-12-09 18:41:00) [1]


> Vlad ©   (09.12.05 18:37) [4]
>
> > Goast   (09.12.05 18:19) [2]
>
>
> > мне всегда было интересно что это значит....так это именно
>
> > для этого???
> > и куда мне сам запрос вставлять после try?
>
> в справке по-моему все предельно ясно описано.
> Что касается твоего случая, можно сделать что нибудь наподобие
> такого:
>
> var
> WasErrors: Boolean;
> begin
> <цикл>
> try
>  // тут делаем попытку вставки записи
> except
>  // Пишем ошибку в лог-файл (например)
>  WasError := True;
> end;
> <конец_цикла>
> if WasError then ShowMessage('Выполнено с ошибками, см.
> лог файл')

ок пасибо огромное...


Vlad   (2005-12-09 18:37:00) [2]


> Goast   (09.12.05 18:19) [2]


> мне всегда было интересно что это значит....так это именно
> для этого???
> и куда мне сам запрос вставлять после try?

в справке по-моему все предельно ясно описано.
Что касается твоего случая, можно сделать что нибудь наподобие такого:

var
WasErrors: Boolean;
begin
<цикл>
try
 // тут делаем попытку вставки записи
except
 // Пишем ошибку в лог-файл (например)
 WasError := True;
end;
<конец_цикла>
if WasError then ShowMessage('Выполнено с ошибками, см. лог файл')


MU   (2005-12-09 18:24:00) [3]

try
//здесь все, что угодно  .....
except
end;

и почитай help про try except


Goast   (2005-12-09 18:19:00) [4]


> Johnmen ©   (09.12.05 18:03) [1]
> try
> except
> end

мне всегда было интересно что это значит....так это именно для этого???
и куда мне сам запрос вставлять после try?


Johnmen   (2005-12-09 18:03:00) [5]

try
except
end


Наверх

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