Форум: "Базы";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
ВнизКод ошибки 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c