Понедельник, 20.08.2018
Королевство Delphi
Главное меню
Статьи
Наш опрос
Как часто ви на этот сайт заходите?
Всего ответов: 148
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Базы данных » Разные

Как проверять корректность доступа к базе данных?

Следующая функция проверяет доступ к базе данных и выдает возможные причины, если доступ не удается осуществить. Функция возвращает значение True в случае успешной операции и False в противном случае.

function TBDEDirect.CheckDatabase: Boolean;
var
 DS: TDataSource;
begin
 Result := False;
 DS := GetDataSource;
 if DS = nil then
 begin
 MessageDlg('Не установлена связь с элементом-источником данных.'+
 'Проверьте установку свойства DataSource.',
 mtError, [mbOK], 0);
 Exit;
 end;
 if DS.DataSet = nil then
 begin
 MessageDlg('Доступ к базе данных невозможен.', mtError,[mbOK], 0);
 Exit;
 end;
 if TDBDataSet(DS.DataSet).Database = nil then
 begin
 MessageDlg('Доступ к базе данных невозможен.', mtError,[mbOK], 0);
 Exit;
 end;
 if TDBDataSet(DS.DataSet).Database.Handle = nil then
 begin
 MessageDlg('Дескриптор (Handle) БД недоступен.', mtError,[mbOK], 0);
 Exit;
 end;
 if DS.DataSet.Handle = nil then
 begin
 MessageDlg('Дескриптор курсора (Cursor-Handle) недоступен.', mtError,[mbOK], 0);
 Exit;
 end;
 Result := True;
end;

Получить ссылку на материал

Категория: Разные | Добавил: Барон (21.12.2011)
Просмотров: 480 | Теги: база данных, доступ | Рейтинг: 0.0/0
[ Пожертвования для сайта ] [ Пожаловаться на материал ]

Если вам помог материал сайта кликните по оплаченной рекламе размещенной в центре

Поиск
Категории раздела
Access [1]
ADO [5]
Alias [4]
Oracle [1]
Delphi & SQL [15]
Разные [29]
Псевдоним [12]
СУБД клиент-сервер [3]
Королевство Delphi © 2010-2018
Яндекс цитирования