Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.006 c