Текущий архив: 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.007 c
