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

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

try...except ;при коннекции [D6, Win2k]

Explorer ©   (2002-07-01 13:00:00) 

Мастера!
Подскажите, как мне обработать исключение EDBEngineError в try...except, если, например, не правильно набран логин или пароль при доступе к БД (MSSQL)?

---

Игорь Шевченко   (2002-07-01 15:18:00) [1]

Анализировать код ошибки в EDBEngineError надо.

Для Interbase я делал так:


procedure TMainDataModule.DoConnect;
var I, RetryCount : Integer;
IllegalUser : Boolean;
begin
try
RetryCount := 0;
with MainDatabase do
repeat
IllegalUser := false;
if Assigned (Application.MainForm) then
SendMessage( Application.MainForm.Handle, WM_DBCONNECTSTARTED, 0, 0);
if Connected then
Close();
try
Open();
except
on E : EDBEngineError do begin
for I:=0 to Pred(E.ErrorCount) do
with E.Errors[i] do
if ErrorCode=$3303 then begin
IllegalUser := true;
Inc(RetryCount);
ShowMessage(E.Message);
end;
if NOT IllegalUser then
raise;
end;
end;
if RetryCount >= 3 then
raise Exception.Create("Слишком много неверных попыток войти в систему");
until Connected;
except
ShowMessageFmt("Исполнение программы будет завершено: %s",
[(ExceptObject() AS Exception).Message]);
Application.ShowMainForm := false;
Application.Terminate();
end;
end;



---

Skier   (2002-07-01 14:53:00) [2]

> Explorer
Не надо проверять.
При неправильном пароле и логине будет генерится
exception - EDBEngineError, и тебе нужно его "взять" на себя,
т.е. нужно написать примерно так :


try
//допустим здесь вводится неправильный пароль или логин
except
on EDBEngineError do
ShowMessage("Не правильный пароль или логин !")
end; //try

---

Explorer   (2002-07-01 14:35:00) [3]

>Игорь Шевченко ©
Выдать сообщение("Не правильный пароль или логин") и закрыть приложение.

>Skier ©
А вот как проверить, что пользователь ввел не правильный логин или пароль?
Что надо после try... писать?

---

Skier   (2002-07-01 13:10:00) [4]

>Explorer
Так что ли ?

try
//invalid login or password
except
on EDBEngineError do begin
// твоя реакция на EDBEngineError
//raise - если нужно...
end;
end;

---

Игорь Шевченко   (2002-07-01 13:02:00) [5]

А что надо сделать в случае except ?

---

Наверх