Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Помогите с исключительной ситуацией  (Прочитано 5547 раз)
0 Пользователей и 1 Гость смотрят эту тему.
simandr
Гость
« : 30-07-2010 09:12 » 

создаю обработчик

Код:
  DM.AConnect.begintrans;
      {Ставим защитный блок try-except}
     try
         dm.L_schetInsProc.ExecProc;
использую ADO для доступа к mssql 2000
вот кусок кода
Код:
       {Если возникло исключение}
      except

       on EDBEngineError do

        {Откатываем транзакцию}
         DM.AConnect.RollbackTrans;
        {Сообщаем пользователю об ошибке}
         ShowMessage('Операция не удалась. Повторите попытку.');
        {Отменяем изменения внесенные пользователем}
        exit;
        end;

      end;
    {Если исключений не возникло при сохранении,
    то подтвердить транзакцию}
    DM.AConnect.CommitTrans;
Пишет что [Pascal Error] UL_Schet.pas(286): E2003 Undeclared identifier: 'EDBEngineError'
« Последнее редактирование: 30-07-2010 09:30 от Алексей1153++ » Записан
zubr
Гость
« Ответ #1 : 30-07-2010 10:05 » new

А модуль DBTables у тебя подключен?
Записан
PooH
Глобальный модератор

ru
Offline Offline
Пол: Мужской
... и можно без хлеба!


« Ответ #2 : 30-07-2010 17:10 » 

Цитата
except
      on E: EDBEngineError do
        ShowError(E);
    end;
Записан

Удачного всем кодинга! -=x[PooH]x=-
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines