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

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

Вытащить номер ошибки из ADOQuery [D7, MySQL]


parovoZZ ©   (2006-04-13 20:58:00) 

СабжЪ.


sniknik   (2006-04-20 00:32:00) [1]

нет, если внимательно посмотриш на коллекцию Errors в вышепреведенном примере.


parovoZZ   (2006-04-19 23:50:00) [2]

Ну ясно, придётся слова в квадратных скобках самому вырезать.


ORMADA   (2006-04-18 14:57:00) [3]

try
     MainADOConnection.Open;
   except
     ExceptionMessage := '';
     for i := 0 to MainADOConnection.Errors.Count - 1 do
       ExceptionMessage := ExceptionMessage + MainADOConnection.Errors.Get_Item(i).Description;

     Application.MessageBox(PAnsiChar('Произошла следующая ошибка!' + #13 + ExceptionMessage + #13
       + 'Обратитесь к Администратору!'), 'Ошибка !', MB_ICONERROR);
   end;


parovoZZ   (2006-04-18 10:11:00) [4]

И?


Хозяин   (2006-04-18 10:01:00) [5]

уп


parovoZZ   (2006-04-16 01:14:00) [6]

Не, это мы знаем. Мне не нужна та билиберда, которую посылает драйвер.

SQL Explorer в поле server error пишет номер исключения. Как такое можно организовать?


liver   (2006-04-15 23:38:00) [7]


try
 выполнение запроса.
except
 on E: Exception do MessageDlg(E.Message, mtWarning, [mbOK], 0);
end;


parovoZZ   (2006-04-14 19:31:00) [8]

Получается, что это невозможно((


Наверх

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