Текущий архив: 2002.02.25;
Скачать: CL | DM;

Вниз

Код ошибки BDE   Найти похожие ветки 

← →
Andrews ©   (2002-01-30 11:45) [0]

Привет всем!

try
MainForm.Table1.Open;
except
on EDBEngineError do
begin
//Как получить в этом месте код ошибки BDE
...
end;
end;

Заранее всем спасибо

---

← →
TSV ©   (2002-01-30 12:12) [1]

Я делаю вот так:

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
try
// открытие БД
Database1.Open;
except
on E: Exception do
begin
MessageBeep(MB_ICONEXCLAMATION);
MessageDlg("Ошибка открытия БД. Приложение будет закрыто." +
#13#13 + E.Message, mtError, [mbOk], 0);
Application.Terminate;
Exit;
end;
end; // try
end;

Удачи.

---

Страницы: 1 вся ветка

Текущий архив: 2002.02.25;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.022 c