Вытащить номер ошибки из ADOQuery

← →
parovoZZ © (2006-04-13 20:58) [0]

СабжЪ.

← →
parovoZZ © (2006-04-14 19:31) [1]

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

← →
liver (2006-04-15 23:38) [2]

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

← →
parovoZZ © (2006-04-16 01:14) [3]

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

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

← →
Хозяин (2006-04-18 10:01) [4]

уп

← →
parovoZZ © (2006-04-18 10:11) [5]

И?

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;

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

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

Вытащить номер ошибки из ADOQuery Найти похожие ветки