VPF::правильно обрабатываю ошибки?

Aprol

Дата 10.10.2007, 14:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 259
Регистрация: 15.6.2007

Репутация: нет
Всего: нет

Код


try
  form1.base.Open;

except
 on e:exception do
   if pos('Your user name',e.Message)<>0 then
       showmessage('Неверный пользователь')
    else
          showmessage('Ошибка подключения к базе данных');
 end;

При коннекте к базе класс ошибки один EIBInterBaseError.
Делаю проверку ошибки:нет подключения к серверу и неверный логин/пароль.
Правильно я делаю?

Rodman

Дата 10.10.2007, 14:27 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122

вот так я делаю конект, только к Access

Код


    try
      ADOConnection.Close();
      ADOConnection.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Maximus.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password='+PassEdt.Text;
      ADOConnection.Open();
    except
      on E: Exception do
      begin
       ShowMessage(e.Message);
       Exit;
      end;
    end;

Цитата(Aprol @ 10.10.2007, 14:21

)

Делаю проверку ошибки:нет подключения к серверу и неверный логин/пароль.

как?

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Deniz

Дата 11.10.2007, 05:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1251
Регистрация: 16.10.2004
Где: Новый Уренгой

Репутация: 8
Всего: 44

Немного дополню код:

Код


try
  form1.base.Open;
except
  on e:exception do 
  begin
    if pos('Your user name', e.Message)<>0 then
      s:='Неверный пользователь'
    else
      s:='Ошибка подключения к базе данных';
    s:=s + #13#13 + e.Message;
    showmessage(s);
  end;
end;

Все таки оригинальный текст ошибки тоже надо выводить, а то получишь 'Ошибка подключения к базе данных' и думай, что там случилось.
Лучше сделать не ShowMessage, а свою форму с кнопкой "Подробно" и показывающимся/скрывающимся Memo.
В Memo запихать все нужные поля из E:Exception(или EIBInterBaseError), в простом случае E.Message.

--------------------

"Для того чтобы сделать шаг вперед, достаточно пинка сзади" (с)

Aprol

Дата 12.10.2007, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 259
Регистрация: 15.6.2007

Репутация: нет
Всего: нет

Я уже спрашивал, но спрошу еще.
Где можно взять описание ошибок на русском и сообщения на английском которые выдаются при ошибке?
Например неверное имя или пароль-Your user name... и т.д.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »